12-01-16, 11:04 AM
(آخر تعديل لهذه المشاركة : 12-01-16, 11:11 AM {2} بواسطة musab.
تعديل السبب: خطا في الكود
)
عندي دالة للتعرف علي الزر الذي تم النقر عليه بواسطة المستخدم ثم تغير لون خلفية مربع النص المقابل والكود يعمل بشكل صحيح ، الا انه لتغيير قيمة مربع خيار لا يعمل ويعطي خطا يوضح ان الخاصية (.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