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

نسخة كاملة : التعديل على كود زر RadioButton
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
هل يمكن التعديل على هذا الكود الغبي
علماً بأن الكود شغال لكنه غبي جداً هههههه

المطلوب إذا كان  ....  (RadioButton1 = true  +  RadioButton2 = false)
فإن لون
(RadioButton1 = White   +  RadioButton2 = red)))

أما إذا كان  ....  (RadioButton1 = false  +  RadioButton2 = true)
فإن لون
(RadioButton1 = red  +  RadioButton2 = White)

كود :
       If RadioButton1.Checked = True Then
           RadioButton1.ForeColor = Color.White

       ElseIf RadioButton1.Checked = False Then
           RadioButton1.ForeColor = Color.Red

       End If

       If RadioButton2.Checked = True Then
           RadioButton2.ForeColor = Color.White

       ElseIf RadioButton2.Checked = False Then
           RadioButton2.ForeColor = Color.Red

       End If
لا أعرف ماذا تعني بكلمة ( الكود غبي )

بما ان الكود يعمل ما الغبي في الموضوع، أعتقد أنه خانك  التعبير بإختيارك لكلمة ( غبي )، يمكن تقصد أنه لم تعجبك الطريقة التي إستخدمتها.

أتمنى أن لا يكون هذا الكود غبي أيضاً  :

كود :
Me.RadioButton1.ForeColor = IIf(Me.RadioButton1.Checked, Color.White, Color.Red)
Me.RadioButton2.ForeColor = IIf(Me.RadioButton2.Checked, Color.White, Color.Red)
(31-10-22, 01:36 AM)مصمم هاوي كتب : [ -> ]السلام عليكم

أرجو المساعدة في فلترة بيانات اداة AdvancedDataGridView

قمت بالاتصال بقاعدة البيانات بطرقيتين كلُ طريقة في فورم مستقل
الطريقة الأولى: عن طريقة الكود كما في الفورم الأول، وهنا فشلتُ في فلترة البيانات
الطريقة الثانية: كما هى موضحة في الفورم الثانية؛ وهذه الاتصال يفشل إذا لم تكن قاعدة البيانات بجوار البرنامج

المطلوب فلترة البيانات في الفورم الأولى عن طريق الأداة  AdvancedDataGridView

(21-11-22, 01:13 AM)عبدالله الدوسري كتب : [ -> ]لا أعرف ماذا تعني بكلمة ( الكود غبي )

بما ان الكود يعمل ما الغبي في الموضوع، أعتقد أنه خانك  التعبير بإختيارك لكلمة ( غبي )، يمكن تقصد أنه لم تعجبك الطريقة التي إستخدمتها.

أتمنى أن لا يكون هذا الكود غبي أيضاً  :

كود :
Me.RadioButton1.ForeColor = IIf(Me.RadioButton1.Checked, Color.White, Color.Red)
Me.RadioButton2.ForeColor = IIf(Me.RadioButton2.Checked, Color.White, Color.Red)

صدقت والله أستاذي الكريم عبد الله الدوسري
عموماً بارك الله فيك على الكود المختصر والرائع جداً