用javascript為DropDownList控件下拉式選擇添加一個Item至定義索引位置
更新時間:2013年01月16日 09:23:59 作者:
用Javascript為DropDownList控件下拉式選擇添加一個Item至定義索引位置;準備數據,創(chuàng)建一個對象,將是存儲DropDownList控件每個Item數據
用Javascript為DropDownList控件下拉式選擇添加一個Item至定義索引位置。
準備數據,創(chuàng)建一個對象,將是存儲DropDownList控件每個Item數據。
Imports Microsoft.VisualBasic
Namespace Insus.NET
Public Class Catalog
Private _ID As Integer
Private _Name As String
Public Property ID As Integer
Get
Return _ID
End Get
Set(value As Integer)
_ID = value
End Set
End Property
Public Property Name As String
Get
Return _Name
End Get
Set(value As String)
_Name = value
End Set
End Property
End Class
End Namespace
在.aspx放置一個DropDownList控件:
<asp:DropDownList ID="DropDownListCatalog" runat="server"></asp:DropDownList>
在.aspx.vb綁定數據:
Imports Insus.NET
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
Data_Binding()
End If
End Sub
Private Sub Data_Binding()
Me.DropDownListCatalog.DataSource = GetData()
Me.DropDownListCatalog.DataValueField = "ID"
Me.DropDownListCatalog.DataTextField = "Name"
Me.DropDownListCatalog.DataBind()
End Sub
Private Function GetData() As List(Of Catalog)
Dim cls As New List(Of Catalog)
Dim cl As Catalog = New Catalog()
cl.ID = 1
cl.Name = "新聞頻道"
cls.Add(cl)
cl = New Catalog()
cl.ID = 2
cl.Name = "體育頻道"
cls.Add(cl)
cl = New Catalog()
cl.ID = 3
cl.Name = "軍事頻道"
cls.Add(cl)
cl = New Catalog()
cl.ID = 4
cl.Name = "教育頻道"
cls.Add(cl)
Return cls
End Function
End Class
準備數據與環(huán)境后,寫Javascript:
window.onload = function () {
var catalog = document.getElementById("<%=DropDownListCatalog.ClientID%>");
var obj = document.createElement("option")
obj.text = "請選擇..."
obj.value = 0
catalog.options.insertBefore(obj, catalog.options[0]);
}
DEMO:
準備數據,創(chuàng)建一個對象,將是存儲DropDownList控件每個Item數據。
復制代碼 代碼如下:
Imports Microsoft.VisualBasic
Namespace Insus.NET
Public Class Catalog
Private _ID As Integer
Private _Name As String
Public Property ID As Integer
Get
Return _ID
End Get
Set(value As Integer)
_ID = value
End Set
End Property
Public Property Name As String
Get
Return _Name
End Get
Set(value As String)
_Name = value
End Set
End Property
End Class
End Namespace
在.aspx放置一個DropDownList控件:
復制代碼 代碼如下:
<asp:DropDownList ID="DropDownListCatalog" runat="server"></asp:DropDownList>
在.aspx.vb綁定數據:
復制代碼 代碼如下:
Imports Insus.NET
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
Data_Binding()
End If
End Sub
Private Sub Data_Binding()
Me.DropDownListCatalog.DataSource = GetData()
Me.DropDownListCatalog.DataValueField = "ID"
Me.DropDownListCatalog.DataTextField = "Name"
Me.DropDownListCatalog.DataBind()
End Sub
Private Function GetData() As List(Of Catalog)
Dim cls As New List(Of Catalog)
Dim cl As Catalog = New Catalog()
cl.ID = 1
cl.Name = "新聞頻道"
cls.Add(cl)
cl = New Catalog()
cl.ID = 2
cl.Name = "體育頻道"
cls.Add(cl)
cl = New Catalog()
cl.ID = 3
cl.Name = "軍事頻道"
cls.Add(cl)
cl = New Catalog()
cl.ID = 4
cl.Name = "教育頻道"
cls.Add(cl)
Return cls
End Function
End Class
準備數據與環(huán)境后,寫Javascript:
復制代碼 代碼如下:
window.onload = function () {
var catalog = document.getElementById("<%=DropDownListCatalog.ClientID%>");
var obj = document.createElement("option")
obj.text = "請選擇..."
obj.value = 0
catalog.options.insertBefore(obj, catalog.options[0]);
}
DEMO:

相關文章
relaxlife.net發(fā)布一個自己開發(fā)的中文分詞程序
relaxlife.net發(fā)布一個自己開發(fā)的中文分詞程序...2007-03-03.NET?Framework?的項目如何使用?FTP?下載文件
本文專門針對面向?.NET?Framework?的項目,?對于面向?.NET?6?及更高版本的項目,不再支持?FTP,此示例演示如何從?FTP?服務器下載文件,感興趣的朋友跟隨小編一起看看吧2024-01-01CheckBox控件默認選中,提交時永遠獲得選中狀態(tài)的實現(xiàn)代碼
下面小編就為大家?guī)硪黄狢heckBox控件默認選中,提交時永遠獲得選中狀態(tài)的實現(xiàn)代碼。小編覺得挺不錯的,現(xiàn)在就分享給大家,也給大家做個參考。一起跟隨小編過來看看吧2016-05-05asp.net 模擬提交有文件上傳的表單(通過http模擬上傳文件)
通過HTTP模擬GET或POST請求,提交數據到服務端獲取響應,比較常見些;但如上傳文件到服務端,使用html form當然簡單了,而因環(huán)境所限有時需要使用模擬方法去提交有附件(文件上傳)的表單。2010-02-02