用javascript为DropDownList控件下拉式选择添加一个Item至定义索引位置
更新时间:2013年01月16日 09:23:59 作者:
用Javascript为DropDownList控件下拉式选择添加一个Item至定义索引位置;准备数据,创建一个对象,将是存储DropDownList控件每个Item数据
用Javascript为DropDownList控件下拉式选择添加一个Item至定义索引位置。
准备数据,创建一个对象,将是存储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
准备数据与环境后,写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:
准备数据,创建一个对象,将是存储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
准备数据与环境后,写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:
相关文章
.NET Framework 的项目如何使用 FTP 下载文件
本文专门针对面向 .NET Framework 的项目, 对于面向 .NET 6 及更高版本的项目,不再支持 FTP,此示例演示如何从 FTP 服务器下载文件,感兴趣的朋友跟随小编一起看看吧2024-01-01CheckBox控件默认选中,提交时永远获得选中状态的实现代码
下面小编就为大家带来一篇CheckBox控件默认选中,提交时永远获得选中状态的实现代码。小编觉得挺不错的,现在就分享给大家,也给大家做个参考。一起跟随小编过来看看吧2016-05-05asp.net 模拟提交有文件上传的表单(通过http模拟上传文件)
通过HTTP模拟GET或POST请求,提交数据到服务端获取响应,比较常见些;但如上传文件到服务端,使用html form当然简单了,而因环境所限有时需要使用模拟方法去提交有附件(文件上传)的表单。2010-02-02
最新评论