تتعلق المسألة بأحداث الماوس لأحداتها
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
تتعلق المسألة بأحداث الماوس لأحداتها
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
انا عايز لما اضغط على البوتن يفضل معلم الضغطة باللون الثانى لغيت ما انا اضغط على البوتن الثانى وال بوتن الاول يرجع تانى زاى ما كان
ضع مجموعة RadioButton داخل بانل Panel وغير الخاصية Appearance إلى Button لكل المجموعة ثم ضع هذا الكود
لاحظ أن المجموعة تشترك في هذه الحدث CheckedChanged وتأكد من وجود كامل المجموعة بعد كلمة Handles
تفضل الكود
كود :
Private Sub RadioButton_CheckedChanged(sender As System.Object, e As System.EventArgs) _
Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged
If sender.Checked Then
sender.BackColor = Color.Orange
Else
sender.BackColor = Nothing
End If
End Sub
(24-01-17, 01:42 AM)مساعدة كتب : ضع مجموعة RadioButton داخل بانل Panel وغير الخاصية Appearance إلى Button لكل المجموعة ثم ضع هذا الكود
لاحظ أن المجموعة تشترك في هذه الحدث CheckedChanged وتأكد من وجود كامل المجموعة بعد كلمة Handles
تفضل الكود
كود :
Private Sub RadioButton_CheckedChanged(sender As System.Object, e As System.EventArgs) _
Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged
If sender.Checked Then
sender.BackColor = Color.Orange
Else
sender.BackColor = Nothing
End If
End Sub
(24-01-17, 01:42 AM)مساعدة كتب : ضع مجموعة RadioButton داخل بانل Panel وغير الخاصية Appearance إلى Button لكل المجموعة ثم ضع هذا الكود
لاحظ أن المجموعة تشترك في هذه الحدث CheckedChanged وتأكد من وجود كامل المجموعة بعد كلمة Handles
تفضل الكود
كود :
Private Sub RadioButton_CheckedChanged(sender As System.Object, e As System.EventArgs) _
Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged
If sender.Checked Then
sender.BackColor = Color.Orange
Else
sender.BackColor = Nothing
End If
End Sub
24-01-17, 02:05 AM (آخر تعديل لهذه المشاركة : 24-01-17, 02:06 AM {2} بواسطة MOSTAFA.KAMEL.)
(24-01-17, 02:01 AM)bidaya كتب :
(24-01-17, 01:58 AM)MOSTAFA.KAMEL كتب :
(24-01-17, 01:42 AM)مساعدة كتب : ضع مجموعة RadioButton داخل بانل Panel وغير الخاصية Appearance إلى Button لكل المجموعة ثم ضع هذا الكود
لاحظ أن المجموعة تشترك في هذه الحدث CheckedChanged وتأكد من وجود كامل المجموعة بعد كلمة Handles
تفضل الكود
كود :
Private Sub RadioButton_CheckedChanged(sender As System.Object, e As System.EventArgs) _
Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged
If sender.Checked Then
sender.BackColor = Color.Orange
Else
sender.BackColor = Nothing
End If
End Sub
معليش هتعب حضرتك معايا شوف كده المقطع ده
تفظل مثال بسيط
تمام تسلم
(24-01-17, 01:42 AM)مساعدة كتب : ضع مجموعة RadioButton داخل بانل Panel وغير الخاصية Appearance إلى Button لكل المجموعة ثم ضع هذا الكود
لاحظ أن المجموعة تشترك في هذه الحدث CheckedChanged وتأكد من وجود كامل المجموعة بعد كلمة Handles
تفضل الكود
كود :
Private Sub RadioButton_CheckedChanged(sender As System.Object, e As System.EventArgs) _
Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged
If sender.Checked Then
sender.BackColor = Color.Orange
Else
sender.BackColor = Nothing
End If
End Sub