大佬教程收集整理的这篇文章主要介绍了vb.net – 如何为组合框项添加值，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。
像html下拉框一样.
或者无论如何要为每个项目添加值？
我正在从MySQL数据库添加项目,如下所示：
Command = New MySqlCommand("@R_801_10288@CT * FROM `maillist` WHERE l_id = '" & id & "'",connection)
Command.CommandTimeout = 30
Reader = Command.ExecuteReader()
If Reader.HasRows = True Then
While Reader.Read()
ComboBox1.Items.Add(Reader("name"))
End While
End If
我需要添加Reader(“ID”)作为每个项目的值…
要设置组合框：
ComboBox1.Datasource = GetMailItems() ComboBox1.Displaymember = "Name" ComboBox1.ValueMember = "ID"
要获取数据：
Function GetMailItems() As List(Of MailItem)
Dim mailItems = New List(Of MailItem)
Command = New MySqlCommand("@R_801_10288@CT * FROM `maillist` WHERE l_id = '" & id & "'",connection)
Command.CommandTimeout = 30
Reader = Command.ExecuteReader()
If Reader.HasRows = True Then
While Reader.Read()
mailItems.Add(New MailItem(Reader("ID"),Reader("name")))
End While
End If
Return mailItems
End Function
Public Class MailItem
Public Sub New(ByVal id As Integer,ByVal name As String)
mID = id
mname = name
End Sub
Private mID As Integer
Public Property ID() As Integer
Get
Return mID
End Get
Set(ByVal value As Integer)
mID = value
End Set
End Property
Private mname As String
Public Property Name() As String
Get
Return mname
End Get
Set(ByVal value As String)
mname = value
End Set
End Property
End Class
以上是大佬教程为你收集整理的vb.net – 如何为组合框项添加值全部内容，希望文章能够帮你解决vb.net – 如何为组合框项添加值所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。