读书人

VB.net控件中性的置解决方法

发布时间: 2012-04-03 12:38:19 作者: rapoo

VB.net控件中性的置
在窗中建了5RadioButton控件,分是RadioButton1,RadioButto2,RadioButto3,RadioButto4,RadioButto5放在Panel1容器中,有5TextBox控件,分是TextBox1,TextBox2,TextBox3,TextBox4,TextBox5放在Panel2容器中。在我要的功能是:用控件,RadioButton控件被中,的TextBox控件得焦。
我的想法是:
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged, RadioButton5.CheckedChanged
Dim i%
For i = 0 To 4
If Panel1.Controls.Item(i).Checked = True Then
Panel2.Controls.Item(i).Focus()
End If
Next
End Sub
但在的是Panel1.Controls.Item(i)有Checked的性,不知道怎麽解,希望各位大能忙解一下。
要明一的是,我只想用控件,我知道一控件一控件去代也可以,但那有,最主要的是我想掌握知,或者是多了解一些方面的知。
小弟始VB.net,希望大家能多多指教,!

[解决办法]
Private Sub RadioButton1_CheckedChanged(ByVal s As Object, ByVal e As EventArgs) Handles RadioButton1.Click,
RadioButton2.Click, RadioButton3.Click, RadioButton4.Click, RadioButton5.Click

For i% = 0 To Panel1.Controls.Count - 1
If s.Equals(Panel1.Controls.Item(i)) Then Panel2.Controls.Item(i).Focus():exit sub
Next

End Sub


其实你只要判断事件传入的object是哪个就可以了

如果你要判断checked值
你可以这样:
Dim rb as RadioButton=Panel1.Controls.Item(i)
然后:
if rb.checked=true then

[解决办法]
因为参数的类型是Object

你需要进行类型转换

读书人网 >VB Dotnet

热点推荐