Chương trình vẽ 13 dòng code
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
Tác giả: Nguyễn Trung Tín
Mô tả: Chương trình vẽ 13 dòng code



Code: Select all
- 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