VB.net中RadioButton代码的简化

以下代码的简化
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
KIND = "focus"
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
KIND = "news"
End Sub

....................

End Sub
Private Sub RadioButton15_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
KIND = "study"
End Sub
Private Sub RadioButton16_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
KIND = "culture"
End Sub

1.ASP.NET可以用RadioButtonList
    Select Case RadioButtonList1.SelectedItem.Value
    Case 1
    KIND = "sports"
    Case 2

    ……

    End Select
2.RadioButtonList好像只有ASP.NET才有把。
可以用AddHandler把这些Event Handle到一个函数上，然后通过sender is radiobutton1这样判断一下。
?

Private Sub RadioButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.Click,RadioButton2.click,...
KIND = ctype(sender,radiobutton).text '将radiobutton的text设为需要的文字
End Sub

用click事件比较好，用checkedchange的事件，当其checked由true变为false时也引发，和你的意思似乎就有些不符了，或者代码中就需要判断：
if ctype(sender,radiobutton).checked then
...
end if



http://community.csdn.net/Expert/TopicView3.asp?id=3774477