用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:
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
桃源资源网 Design By www.nqtax.com
暂无“用javascript为DropDownList控件下拉式选择添加一个Item至定义索引位置”评论...
P70系列延期,华为新旗舰将在下月发布
3月20日消息,近期博主@数码闲聊站 透露,原定三月份发布的华为新旗舰P70系列延期发布,预计4月份上市。
而博主@定焦数码 爆料,华为的P70系列在定位上已经超过了Mate60,成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢?
根据目前爆料的消息来看,华为P70系列将推出三个版本,其中P70和P70 Pro采用了三角形的摄像头模组设计,而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智,但辨识度绝对拉满。