تقييم الموضوع :
  • 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 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال مهم بالنسبة لي أرجوا الاجابة عليه nrkarat 1 41 16-10-18, 03:49 PM
آخر رد: DOX.1
  كيف ابحث عن قيمة متغيرة في مصفوفة سعود 13 2,289 15-10-18, 10:17 PM
آخر رد: سعود
  [سؤال] عدم تغيير قيمة NumericUpdown Simo1991 7 90 09-10-18, 12:21 PM
آخر رد: Simo1991
  نسخ قاعد بيانات اكسس من مسار الى اخر وتغير الاسم nabil.1710 6 144 25-09-18, 10:55 AM
آخر رد: elgokr
  اظهار قيمة NumericUpDown Simo1991 2 91 20-09-18, 02:47 PM
آخر رد: Simo1991
  تلوين صف باللون الأحمر في الداتا جريدفيو بناءً على قيمة مُحددة Hazem1 1 137 16-09-18, 10:27 PM
آخر رد: aljzazy
  ممكن مساعده اريد وضع مواعيد للحجوزات وعند ادخال قيمة وقت معين يعطي رساله بان الوقت ده thementalist 6 170 14-09-18, 08:47 PM
آخر رد: حريف برمجة
  حفظ معلومات الزر bidaya 14 315 14-09-18, 10:07 AM
آخر رد: elgokr
  [VB.NET] ملأ الكومبوبكس اثناء الكتابة عليه و items تأخذ من البحث larbihamri 21 521 03-09-18, 06:14 AM
آخر رد: elgokr
  دالة الجمع في كريستل ريبورت makky 7 198 30-08-18, 07:01 PM
آخر رد: elgokr

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


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