تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن كود البوتن بالشكل ده
#1
يعنى ازاى يبقى البوتن لون ولما اضغط اللون يتغير ولما اختار بوتن تانى يرجع الى اللون الاساسى

وهل الى فى الصورة ده بوتن ولا حاجة تانى

الرد }}}
تم الشكر بواسطة: bidaya , bidaya
#2
السلام عليكم

تتعلق المسألة بأحداث الماوس لأحداتها
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
الرد }}}
تم الشكر بواسطة: bidaya
#3
(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

انا عايز لما اضغط على البوتن يفضل معلم الضغطة باللون الثانى لغيت ما انا اضغط على البوتن الثانى وال بوتن الاول يرجع تانى زاى ما كان
الرد }}}
تم الشكر بواسطة:
#4
ضع مجموعة 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
الرد }}}
تم الشكر بواسطة: bidaya , bidaya
#5
(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

معليش هتعب حضرتك معايا شوف كده المقطع ده



الرد }}}
تم الشكر بواسطة: bidaya , bidaya
#6
(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

معليش هتعب حضرتك معايا شوف كده المقطع ده



تفظل مثال بسيط Big Grin Big Grin Big Grin


الملفات المرفقة
.rar   MOSTAFA.KAMEL.rar (الحجم : 73.97 ك ب / التحميلات : 44)
الرد }}}
تم الشكر بواسطة:
#7
(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

معليش هتعب حضرتك معايا شوف كده المقطع ده



تفظل مثال بسيط Big Grin Big Grin Big Grin
تمام تسلم

(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

شكرااااااا اخى تعبتك معايا
الرد }}}
تم الشكر بواسطة: bidaya
#8
الكود يعمل مثل ما في الفيديو، لكن لم تعرف تطبيقه،

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

فمشاركتي قد يستفيد منها غيرك.
الرد }}}
تم الشكر بواسطة: bidaya



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم