|
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="CheckAndRadio.aspx.vb" Inherits="CheckAndRadio" %>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Untitled Page</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:SqlDataSource
ID="SqlDataSource1"
runat="server"
ConnectionString="<%$ ConnectionStrings:ConnectionString %>"
SelectCommand="SELECT * FROM [Books]"></asp:SqlDataSource>
</div>
CheckBoxList:
<asp:CheckBoxList ID="CheckBoxList1"
runat="server"
DataSourceID="SqlDataSource1"
DataTextField="Title"
DataValueField="BookID">
</asp:CheckBoxList><br />
RadioButtonList:<br />
<asp:RadioButtonList ID="RadioButtonList1"
runat="server"
DataSourceID="SqlDataSource1"
DataTextField="Title"
DataValueField="BookID">
</asp:RadioButtonList><br />
<asp:Button ID="Button1" runat="server" Text="Click Me!" />
<br />
<br />
<asp:Label ID="results" runat="server"></asp:Label>
</form>
</body>
</html>
File: CheckAndRadio.aspx.vb
Partial Class CheckAndRadio
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
results.Text = String.Empty
For Each li As ListItem In CheckBoxList1.Items
If li.Selected Then
results.Text &= li.Text & "<br/>"
End If
Next
results.Text &= "<br/><br/><hr/>"
If RadioButtonList1.SelectedItem IsNot Nothing Then
results.Text &= RadioButtonList1.SelectedItem.Text
End If
End Sub
End Class
|