ممكن كود البوتن بالشكل ده - MOSTAFA.KAMEL - 23-01-17
يعنى ازاى يبقى البوتن لون ولما اضغط اللون يتغير ولما اختار بوتن تانى يرجع الى اللون الاساسى
وهل الى فى الصورة ده بوتن ولا حاجة تانى
RE: ممكن كود البوتن بالشكل ده - مساعدة - 24-01-17
السلام عليكم
تتعلق المسألة بأحداث الماوس لأحداتها
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
RE: ممكن كود البوتن بالشكل ده - MOSTAFA.KAMEL - 24-01-17
(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
انا عايز لما اضغط على البوتن يفضل معلم الضغطة باللون الثانى لغيت ما انا اضغط على البوتن الثانى وال بوتن الاول يرجع تانى زاى ما كان
RE: ممكن كود البوتن بالشكل ده - مساعدة - 24-01-17
ضع مجموعة 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
RE: ممكن كود البوتن بالشكل ده - MOSTAFA.KAMEL - 24-01-17
(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
معليش هتعب حضرتك معايا شوف كده المقطع ده
RE: ممكن كود البوتن بالشكل ده - bidaya - 24-01-17
(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
معليش هتعب حضرتك معايا شوف كده المقطع ده
تفظل مثال بسيط
RE: ممكن كود البوتن بالشكل ده - MOSTAFA.KAMEL - 24-01-17
(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
شكرااااااا اخى تعبتك معايا
RE: ممكن كود البوتن بالشكل ده - مساعدة - 24-01-17
الكود يعمل مثل ما في الفيديو، لكن لم تعرف تطبيقه،
الحمد لله، طالما حصلت على المطلوب،
فمشاركتي قد يستفيد منها غيرك.
|