منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - دالة تتعرف علي الزر الذي تم النقر عليه وتغير قيمة مربع النص المقابل

عندي دالة للتعرف علي الزر الذي تم النقر عليه بواسطة المستخدم ثم تغير لون خلفية مربع النص المقابل والكود يعمل بشكل صحيح ، الا انه لتغيير قيمة مربع خيار لا يعمل ويعطي خطا يوضح ان الخاصية (.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

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

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

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

PHP كود :

Dim controlName As String = "RadioButton1"
        Dim ctrl As Control = CType(Nothing, Control)
        For Each contrl As Control In Controls
            If contrl.Name = controlName Then
                ctrl = contrl
                Exit For
            End If
        Next

        Dim radioBtn As RadioButton = CType(ctrl, RadioButton)
        radioBtn.Checked = Not radioBtn.Checked 

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

musab

silverlight