studyradiobuttonlist.aspx.vb

来自「该文件包括了WEB标单控件应用的所有实例代码」· VB 代码 · 共 28 行


Partial Class studyRadioButtonList
    Inherits System.Web.UI.Page

    Protected Sub Button_click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button1.Click
        If RadioButtonList1.SelectedIndex > -1 Then
            Label1.Text = "Your programming language is" & RadioButtonList1.SelectedItem.Text
        End If
    End Sub

    Protected Sub chkLayou_CheckChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles chkLayout.CheckedChanged
        If chkLayout.Checked Then
            RadioButtonList1.RepeatLayout = RepeatLayout.Table
        Else
            RadioButtonList1.RepeatLayout = RepeatLayout.Flow
        End If
    End Sub

    Protected Sub chkDirection_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles chkDirection.CheckedChanged

        If chkDirection.Checked Then
            RadioButtonList1.RepeatDirection = RepeatDirection.Horizontal
        Else
            RadioButtonList1.RepeatDirection = RepeatDirection.Vertical
        End If
    End Sub
End Class