تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] دالة تتعرف علي الزر الذي تم النقر عليه وتغير قيمة مربع النص المقابل
#1
عندي دالة للتعرف علي الزر الذي تم النقر عليه بواسطة المستخدم ثم تغير لون خلفية مربع النص المقابل والكود يعمل بشكل صحيح ، الا انه لتغيير قيمة مربع خيار لا يعمل ويعطي خطا يوضح ان الخاصية (.Checked ) ليس عضو ، وكما تعلمون ان مربع الخيار له هذه الخاصية.

كود :
Private Sub BtnBlue_Click(sender As Object, e As EventArgs) Handles BtnRed.Click, BtnBlue.Click, BtnGreen.Click
[size=small][font=Consolas] [/font][/size]
[size=small][font=Consolas]        Dim BtnName As String = CType(sender, Button).Name[/font][/size]
[size=small][font=Consolas]        Dim ColorName as String = BtnName.Trimstart("B","t", "n")[/font][/size]
[size=small][font=Consolas]     [/font][/size][size=small][font=Consolas]   Dim RadioBtnName as string = [/font][/size][size=small][font=Consolas]ColorName + "RadioBtn"[/font][/size]
[size=small][font=Consolas]        dim TxtName as string = ColorName + "Txt"[/font][/size]
[size=small][font=Arial, sans-serif] [/font][/size]
[size=small][font=Consolas]    [/font][/size]
[size=small][font=Consolas]       Me.controls.Tabcontrol1(TxtName[/font][/size][size=small][font=Consolas]).Backcolor = colorname[/font][/size]
[size=small][font=Consolas]       [/font][/size]
[size=small][font=Consolas]       Me.controls.Tabcontrol1([/font][/size][size=small][font=Consolas]RadioBtnName).Checked = True [/font][/size]
[size=small][font=Consolas] [/font][/size]
    End Sub


اي اقتراح لتحسين الكود مقبول

وشكرا


كود :
Private Sub BtnBlue_Click(sender As Object, e As EventArgs) Handles BtnRed.Click, BtnBlue.Click, BtnGreen.Click

       Dim BtnName As String = CType(sender, Button).Name
       Dim ColorName as String = BtnName.Trimstart("B","t", "n")
       Dim RadioBtnName as string = ColorName + "RadioBtn"
       dim TxtName as string = ColorName + "Txt"

   
      Me.controls.Tabcontrol1(TxtName).Backcolor = colorname
     
      Me.controls.Tabcontrol1(RadioBtnName).Checked = True

   End Sub
الرد }}}}
تم الشكر بواسطة:
#2
سبب الخطأ هنا هو أنك تستخدم String و ليس Control عليك ان تقوم بعمل loop باستخدام ControlCollection لكي تجد الكونترول الذي تريده و ذلك باستخدام اسم الكونترول  ثم تقوم بعمل Cast لتغيير القيمة Checked الي True


الكود التالي يوضح الفكرة و عليك ان تتبع نفس الاسلوب في الكود الخاص بك

لكن كن حذرا عند تمرير اسم الكونترول لأنه يجب ان يتم تمرير الاسم بكل بدقة حتي لا يحدث معك أخطاءا

PHP كود :
Dim controlName As String "RadioButton1"
 
       Dim ctrl As Control CType(NothingControl)
 
       For Each contrl As Control In Controls
            If contrl
.Name controlName Then
                ctrl 
contrl
                Exit 
For
 
           End If
 
       Next

        Dim radioBtn 
As RadioButton CType(ctrlRadioButton)
 
       radioBtn.Checked Not radioBtn.Checked 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] فتح نموذج بناءا علي قيمة في الداتا جريد فيو haithammoftah 3 63 14-10-17, 07:55 PM
آخر رد: Amir_alzubidy
  مشكلة في قراءة قيمة من الريجستري سعود الشامان 14 264 13-10-17, 07:30 PM
آخر رد: سعود الشامان
Exclamation [VB.NET] جلب النص regex mervandzz 1 65 12-10-17, 08:08 PM
آخر رد: أحمد النجار
  [سؤال] كتابة قيمة ثنائية في الريجستري سعود الشامان 0 49 29-09-17, 04:26 AM
آخر رد: سعود الشامان
  [سؤال] كيف استدعي ملف وورد بالفجوال بيسك وإضافة تاريخ وبيانات عليه عبقرينو 1 78 20-09-17, 06:08 PM
آخر رد: Rabeea Qbaha
  حفظ النص بما فيه حجمه في my sittings visualist2015 1 58 15-09-17, 08:30 PM
آخر رد: سعود
  [VB.NET] احتاج كود وضع علامة خلف النص The Light Fire 1 89 12-09-17, 02:05 AM
آخر رد: hglogtd
Question [سؤال] كيفية سحب قيمة متغير ادخل Public alims 7 186 11-09-17, 04:39 AM
آخر رد: محمد كريّم
  [كود] كود لإظهار قيمة في TextBox حسب ما يقابلها من قيمة في combobox momiana1 7 5,104 02-09-17, 08:46 PM
آخر رد: ahmedgamal
  [سؤال] ياجماعة اريد كود ارتباط الكاميرا والتصوير المباشر عن طريق النقر على زر تصوير بالفورم محمد فرحان محمد 1 102 10-08-17, 01:11 AM
آخر رد: طـلال

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


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