Mega Code Archive

 
Categories / ASP.Net Tutorial / ASP Net Controls
 

Get selected index from asp

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb"  Inherits="MyPage" %> <html xmlns="http://www.w3.org/1999/xhtml" > <head runat="server">     <title>Untitled Page</title> </head> <body>     <form id="form1" runat="server">     <div>         <asp:Label ID="Label1" runat="server" Style="z-index: 100; left: 151px; position: absolute;             top: 120px" Text="What is the date"></asp:Label>         <asp:Label ID="result" runat="server" Height="25px" Style="z-index: 101; left: 159px;             position: absolute; top: 242px" Text="Label" Width="324px"></asp:Label>         <asp:DropDownList ID="DropDownList1" runat="server" AutoPostBack="True" Height="48px"             Style="z-index: 102; left: 274px; position: absolute; top: 118px" Width="243px">         </asp:DropDownList>         <asp:Button ID="Button1" runat="server" Style="z-index: 104; left: 393px; position: absolute;             top: 168px" Text="OK" />          </div>     </form> </body> </html> File: Default.aspx.vb Partial Class MyPage     Inherits System.Web.UI.Page     Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click         Select Case Me.DropDownList1.SelectedIndex             Case 0                 Me.result.Text = "A"             Case 1                 Me.result.Text = "B"             Case 2                 Me.result.Text = "C"             Case 3                 Me.result.Text = "D"             Case 4                 Me.result.Text = "E"             Case 5                 Me.result.Text = "F"             Case 6                 Me.result.Text = "G"             Case 7                 Me.result.Text = "H"             Case 8                 Me.result.Text = "I"             Case 9                 Me.result.Text = "J"             Case 10                 Me.result.Text = "K"             Case 11                 Me.result.Text = "L"         End Select     End Sub     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load         If Page.IsPostBack = False Then             Me.DropDownList1.Items.Add("A")             Me.DropDownList1.Items.Add("B")             Me.DropDownList1.Items.Add("C")             Me.DropDownList1.Items.Add("D")             Me.DropDownList1.Items.Add("E")             Me.DropDownList1.Items.Add("F")             Me.DropDownList1.Items.Add("G")             Me.DropDownList1.Items.Add("H")             Me.DropDownList1.Items.Add("I")             Me.DropDownList1.Items.Add("J")             Me.DropDownList1.Items.Add("K")             Me.DropDownList1.Items.Add("L")         End If     End Sub End Class