Add value to asp:DropDownList dynamically (VB.net)
<%@ Page Language="VB" %> <script runat="server"> Dim ColorList(6) as String Dim FontList as new ArrayList() Sub Page_Load ColorList(0) = "Red" ColorList(1) = "Orange" ColorList(2) = "Yellow" ColorList(3) = "Green" ColorList(4) = "Blue" ColorList(5) = "Indigo" ColorList(6) = "Violet" FontList.Add("Times New Roman") FontList.Add("Arial") FontList.Add("Verdana") FontList.Add("Comic Sans MS") If Not Page.IsPostback Dim ColorName as String For Each ColorName in ColorList ddlColorList.Items.Add(ColorName) Next ddlFontList.DataSource = FontList ddlFontList.DataBind() End If End Sub Sub btnSelectColor_Click(sender As Object, e As EventArgs) lblOutputMessage.Text = "You selected " & _ ddlColorList.SelectedItem.Value & " text written in " & _ ddlFontList.SelectedItem.Value lblOutputMessage.ForeColor = _ System.Drawing.Color.FromName(ddlColorList.SelectedItem.Text) lblOutputMessage.Font.Name = _ ddlFontList.SelectedItem.Text End Sub Sub btnAddFont_Click(sender As Object, e As EventArgs) FontList.Add(txtAddFont.Text) ddlFontList.DataSource = FontList ddlFontList.DataBind() End Sub </script> <html> <head> </head> <body> <form runat="server"> <p> Select a color from the list:<asp:DropDownList id="ddlColorList" runat="server"></asp:DropDownList> </p> <p> Then select a font sytle from the list: <asp:DropDownList id="ddlFontList" runat="server"></asp:DropDownList> </p> <p> <asp:Button id="btnSelectColor" onclick="btnSelectColor_Click" runat="server" Text="Click here!"></asp:Button> </p> <p> <asp:Label id="lblOutputMessage" runat="server"></asp:Label> </p> <p> Enter a new font for the list:<asp:TextBox id="txtAddFont" runat="server"></asp:TextBox> <asp:Button id="btnAddFont" onclick="btnAddFont_Click" runat="server" Text="Add New Font"></asp:Button> </p> </form> </body> </html>