【Wonder原创】CheckBoxList实现单选

<asp:CheckBoxList id="cklEmployeeAPP" runat="server" Width="700px" AutoPostBack="True" OnSelectedIndexChanged="cklEmployeeAPP_SelectedIndexChanged" ToolTip="-1" />

Protected Sub cklEmployeeAPP_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)

        Dim i As Integer = CType(cklEmployeeAPP.ToolTip, Int16)
        If (i <> -1) Then
            cklEmployeeAPP.Items(i).Selected = False
        End If
        cklEmployeeAPP.ToolTip = cklEmployeeAPP.SelectedIndex.ToString

        ' cklEmployeeAPP.SelectedItem.Text       '''Selected Text

End Sub