1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Dim myBrush As New System.Drawing.SolidBrush(System.Drawing.Color.Black)
Dim labelGraphics As System.Drawing.Graphics
Private Sub Label49_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label49.MouseClick
Dim labelGraphics As System.Drawing.Graphics
labelGraphics = Label49.CreateGraphics()
Label49.CreateGraphics.FillEllipse(myBrush, New Rectangle(e.X - 3, e.Y - 3, 4, 4))
End Sub
Private Sub Label51_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label51.MouseClick
Dim labelGraphics As System.Drawing.Graphics
labelGraphics = Label51.CreateGraphics()
Label51.CreateGraphics.FillEllipse(myBrush, New Rectangle(e.X - 3, e.Y - 3, 4, 4))
End Sub |
Partager