منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

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

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

أو Label

(24-01-17, 12:29 AM)مساعدة كتب : [ -> ]السلام عليكم

تتعلق المسألة بأحداث الماوس لأحداتها
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
تفضل الكود

(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: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, 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

شكرااااااا اخى تعبتك معايا

الكود يعمل مثل ما في الفيديو، لكن لم تعرف تطبيقه،

الحمد لله، طالما حصلت على المطلوب،

فمشاركتي قد يستفيد منها غيرك.