[مساعدة]

السلام عليكم

تتعلق المسألة بأحداث الماوس لأحداتها
MouseDown وMouseUp لحدثي ضغط زر الماوس ورفع ضغط زر الماوس عن الأداة
وMouseEnter مع MouseLeave لحدثي دخول الماوس منطقة الأداة والخروج من المنطقة

يمكن تطبيقها على البوتون Button

كود :

Private Sub Button1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
   Button1.BackColor = Color.Red
End Sub

Private Sub Button1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
   Button1.BackColor = Color.Pink
End Sub

Private Sub Button1_MouseEnter(sender As Object, e As System.EventArgs) Handles Button1.MouseEnter
   Button1.BackColor = Color.Pink
End Sub

Private Sub Button1_MouseLeave(sender As Object, e As System.EventArgs) Handles Button1.MouseLeave
   Button1.BackColor = Nothing
End Sub

أو Label

كود :

Private Sub Label1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
   Label1.BackColor = Color.Red
End Sub

Private Sub Label1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseUp
   Label1.BackColor = Color.Pink
End Sub

Private Sub Label1_MouseEnter(sender As Object, e As System.EventArgs) Handles Label1.MouseEnter
   Label1.BackColor = Color.Pink
End Sub

Private Sub Label1_MouseLeave(sender As Object, e As System.EventArgs) Handles Label1.MouseLeave
   Label1.BackColor = Nothing
End Sub