+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] دالة تتعرف علي الزر الذي تم النقر عليه وتغير قيمة مربع النص المقابل (/showthread.php?tid=14375)
دالة تتعرف علي الزر الذي تم النقر عليه وتغير قيمة مربع النص المقابل - musab - 12-01-16
عندي دالة للتعرف علي الزر الذي تم النقر عليه بواسطة المستخدم ثم تغير لون خلفية مربع النص المقابل والكود يعمل بشكل صحيح ، الا انه لتغيير قيمة مربع خيار لا يعمل ويعطي خطا يوضح ان الخاصية (.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 SubRE: دالة تتعرف علي الزر الذي تم النقر عليه وتغير قيمة مربع النص المقابل - silverlight - 12-01-16
سبب الخطأ هنا هو أنك تستخدم 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