|
<%@ Page Language="VB" %>
<script runat="server">
sub ChangeNames(Sender as Object, e as EventArgs)
if rlSex.SelectedIndex = 0 then
'female
lbNames.Items(0).Text = "A"
lbNames.Items(1).Text = "B"
lbNames.Items(2).Text = "C"
lbNames.Items(3).Text = "D"
else
'male
lbNames.Items(0).Text = "E"
lbNames.Items(1).Text = "F"
lbNames.Items(2).Text = "G"
lbNames.Items(3).Text = "H"
end if
end sub
sub DisplayMessage(Sender as Object, e as EventArgs)
lblMessage.Text = Sender.SelectedItem.Text & _
" is a wonderful name!"
end sub
</script>
<html><body>
<form runat="server">
<asp:Label id="lblMessage" runat="server"/>
Choose the sex of your baby:
<asp:RadioButtonList id="rlSex" runat="server"
OnSelectedIndexChanged="ChangeNames"
AutoPostBack="true" >
<asp:ListItem>Female</asp:ListItem>
<asp:ListItem>Male</asp:ListItem>
</asp:RadioButtonList>
Possible names:<br>
<asp:ListBox id="lbNames" runat="server"
OnSelectedIndexChanged="DisplayMessage"
AutoPostBack="true" >
<asp:ListItem></asp:ListItem>
<asp:ListItem></asp:ListItem>
<asp:ListItem></asp:ListItem>
<asp:ListItem></asp:ListItem>
</asp:ListBox>
</form>
</body></html>
|