DropDownList 控件 DataTextField 和 DataValueField 分开绑
作者：袖梨
2022-06-30
Sub Page_Load
If Not Page.IsPostBack Then
Dim URLs = New SortedList()
URLs.Add("Google", "http://www.g**o*ogle.com")
URLs.Add("MSN", "http://search.ms***n.com")
URLs.Add("Yahoo", "http://www.*y*ah*oo.com")
URLs.Add("Lycos", "http://www.l***ycos.com")
URLs.Add("AltaVista", "http://www.**alt*avista.com")
URLs.Add("Excite", "http://www.**excit*e.com")
'-- Bind SortedList to controls
RadioButtons.DataSource = URLs
RadioButtons.DataTextField = "Key"
RadioButtons.DataValueField = "Value"
RadioButtons.DataBind()
CheckBoxes.DataSource = URLs
CheckBoxes.DataTextField = "Key"
CheckBoxes.DataValueField = "Value"
CheckBoxes.DataBind()
DropDownList.DataSource = URLs
DropDownList.DataTextField = "Key"
DropDownList.DataValueField = "Value"
DropDownList.DataBind()
ListBox.DataSource = URLs
ListBox.DataTextField = "Key"
ListBox.DataValueField = "Value"
ListBox.DataBind()
End If
End Sub
