|
<%@Page language="vb" debug="true" %>
<script runat="server" language="vb">
Sub Page_Load(Source As Object, E as EventArgs)
Dim myHashTable as new Hashtable
Dim Item As DictionaryEntry
myHashTable("UK") = "United Kingdom"
myHashTable("US") = "United States"
myHashTable("DE") = "Germany"
If Not Page.IsPostback Then
For Each Item In myHashtable
Dim newListItem As new ListItem()
newListItem.Text = Item.Value
newListItem.Value = Item.Key
myDropDownList.Items.Add(newListItem)
Next
End If
End Sub
Sub Click(Source As Object, E as EventArgs)
myLabel.Text = myDropDownList.SelectedItem.Value
End Sub
</script>
<html>
<form runat="server">
<asp:dropdownlist id="myDropDownList" runat="server" />
<asp:button id="myButton" runat="server" text="OK" Onclick="Click" />
<br /><br />
<asp:Label id="myLabel" runat="server" text="" />
</form>
</html>
|