01 | <%@ Page Language= "VB" %> |
02 | <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" |
05 | <script language= "VB" runat= "server" > |
06 | Sub Page_Load(s As Object , e As EventArgs) Handles Me .Load |
07 | If Not Page.IsPostBack Then |
08 | dim mycountries = New Hashtable |
09 | mycountries.Add( "N" , "Norway" ) |
10 | mycountries.Add( "S" , "Sweden" ) |
11 | mycountries.Add( "F" , "France" ) |
12 | mycountries.Add( "I" , "Italy" ) |
13 | rb.DataSource = mycountries |
14 | rb.DataValueField = "Key" |
15 | rb.DataTextField = "Value" |
20 | Sub displayMessage( s as Object ,e As EventArgs ) |
21 | lbl1.text = "Your favorite country is: " & _ |
29 | <asp:RadioButtonList id= "rb" runat= "server" |
31 | onSelectedIndexChanged= "displayMessage" /> |
32 | <asp:label id= "lbl1" runat= "server" /> |
|
|
|