|
<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Not IsPostBack Then
rdoColorYellow.Checked = True
End If
End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim MyControl as Control
Dim MyRadioButton as RadioButton
For Each MyControl in frmMainForm.Controls
If MyControl.GetType().FullName = "System.Web.UI.WebControls.RadioButton" Then
MyRadioButton = MyControl
If MyRadioButton.GroupName = "rgColors" then
If MyRadioButton.Checked = "True" Then
lblColorSelected.Text = "You selected the color " _
& MyRadioButton.Text
End If
End If
End If
Next
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Setting and Retrieving the Selected Item in a RadioButton Control Group</TITLE>
</HEAD>
<form
id="frmMainForm"
runat="server"
>
<BR><BR>
<asp:Label
id="lblColorSelected"
runat="server"
/>
<BR>
Select your favorite Color:<BR>
<asp:radiobutton
id="rdoColorBlue"
text="Blue"
font-size="12pt"
font-name="Comic Sans MS"
groupname="rgColors"
runat="server"
/>
<BR>
<asp:radiobutton
id="rdoColorGreen"
text="Green"
font-size="12pt"
font-name="Comic Sans MS"
groupname="rgColors"
checked="True"
textalign="Left"
runat="server"
/>
<BR>
<asp:radiobutton
id="rdoColorYellow"
text="Yellow"
font-size="12pt"
font-name="Comic Sans MS"
groupname="rgColors"
textalign="Right"
runat="server"
/>
<BR><BR>
<asp:button
id="butOK"
text="OK"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
</form>
</BODY>
</HTML>
|
