تقييم الموضوع :
  • 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)
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ممكن طريقة اخفاء ملف bat عند ضغط على زر في اداة jam3h 8 95 منذ 1 ساعه مضت
آخر رد: Anas Mahmoud
  [سؤال] ممكن كود فتح موقع على انترنت عند فتح الاداة تلقائي jam3h 2 31 , 08:01 PM
آخر رد: jam3h
  طريقة عرض البرنامج بالشكل الكامل عمور2016 9 187 23-09-20, 01:46 AM
آخر رد: عمور2016
  ممكن مساعدة (الخطأ غير واضح في كود الحفظ) sofiane-phy 2 54 22-09-20, 12:15 PM
آخر رد: sofiane-phy
  [VB.NET] ممكن كود تخطي اعلان للبرنامج مثل الفديو دا ahmed112001 2 97 21-09-20, 03:53 PM
آخر رد: ahmed112001
  [سؤال] هل ممكن كود فيجوال بيسك لزر تغير تاريخ الكمبيوتر للوراء وكود اخر ارجاعه طبيبعي jam3h 13 351 20-09-20, 08:46 PM
آخر رد: jam3h
Rainbow [سؤال] ممكن طريقة عمل زر يذهب الي اخر سطر بتيكس بوكس Ali 2020 9 171 13-09-20, 10:12 PM
آخر رد: Ali 2020
  [سؤال] ممكن شرح لتعامل مع مكتبه اليوم السابع 0 55 10-09-20, 05:08 PM
آخر رد: اليوم السابع
  مشكلة فى اضافة البيانات ممكن المساعدة talatm 7 342 04-09-20, 04:10 PM
آخر رد: عبد العزيز البسكري
  ممكن استفسار الى احبتى فى المنتدى خالد كامل1 4 234 30-08-20, 04:47 AM
آخر رد: خالد كامل1

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


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