Câu lạc bộ Visual Basic

Posted: **Sun 14/12/2008 10:48 am**

Thủ thuật: Chương trình vẽ 13 dòng code
Tác giả: Nguyễn Trung Tín
Mô tả: Chương trình vẽ 13 dòng code

    Dim bNhan As Boolean
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        bNhan = True
    End Sub
    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        bNhan = False
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If bNhan Then
            Dim graphic As Graphics = CreateGraphics()
            graphic.FillRectangle(New SolidBrush(Color.Red), e.X, e.Y, 4, 4)
        End If
    End Sub