<%@Page Language="VB"%>
<script Language="VB" Runat="Server">
Sub Page_Load(Source As Object, E as EventArgs)
Dim Lista As New SortedList
Dim Item As DictionaryEntry
lista("Asp")= "Você selecionou Asp Coloque aqui o significado"
lista("Asp.NET")= "Você selecionou Asp.NET Coloque aqui o significado"
lista("PHP")= "Você selecionou PHP Coloque aqui o significado"
lista("HTML")= "Você selecionou HTML Coloque aqui o significado"
If Not Page.IsPostBack
For Each Item In Lista
Dim monta As New ListItem()
monta.Text = Item.Key
monta.Value = Item.Value
montalista.Items.Add(monta)
Next
End If
End Sub
Sub Click(Source As Object, E as EventArgs)
Texto.Text = montalista.SelectedItem.Value
End Sub
</script>
<head>
<title>.Net</title>
</head>
<form runat="server">
Lista de tecnologias:
<asp:DropDownList id="montalista" runat="server"/>
<asp:button id="MyButton" runat="server" OnClick="Click" Text="Ok"/>
<br/>
<br/>
<asp:LABEL id="Texto" runat="server"/>
</Form>t+
