<%@ Page Language="VB" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script language="VB" runat="server">
Sub Page_Load(s As Object, e As EventArgs) Handles Me.Load
if Not Page.IsPostBack then
dim myCountries = New ArrayList
myCountries.Add( "Norway" )
myCountries.Add( "Sweden" )
myCountries.Add( "France" )
myCountries.Add( "Italy" )
myCountries.TrimToSize( )
myCountries.Sort( )
rb.DataSource = myCountries
rb.DataBind( )
end if
End Sub
Sub DisplayMessage( s as Object,e As EventArgs )
lbl1.text = "Your favorite country is: " & _
rb.SelectedItem.Text
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<body>
<form runat="server">
<asp:RadioButtonList id="rb" runat="server"
AutoPostBack="True"
onSelectedIndexChanged="DisplayMessage" />
<p><asp:label id="lbl1" runat="server" /></p>
</form>
</body>
</html> |
|
|