28-02-13, 03:55 PM (آخر تعديل لهذه المشاركة : 28-02-13, 04:00 PM {2} بواسطة kslawy.)
استبدل كل الكود الخاص بالأداة UserControl1 بهذا الكود :
كود :
Public Class UserControl1
Private Sub UserControl1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDoubleClick
MessageBox.Show("Hi you click me!", "Helow", MessageBoxButtons.OK)
End Sub
Private Sub UserControl1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseHover, Label1.MouseHover, Label2.MouseHover
If Me.BackColor = Color.Silver Then
Exit Sub
End If
Me.BackColor = Color.GhostWhite
End Sub
Private Sub UserControl1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
If Me.BackColor = Color.Silver Then
Exit Sub
End If
Me.BackColor = Color.White
End Sub
Private Sub UserControl1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
For Each uc As UserControl In Me.Parent.Controls
uc.BackColor = Color.White
Next
Me.BackColor = Color.Silver
End Sub