افزودن ایتم به combobox با value

[yekta64]

سلام دوستان
چطور می تونم به combobox به سری ایتم رو به صورت دستی اضافه کنم به طوری که بتنونم به هر ایتم یک value اختصاص بدم در واقع من دیتاسورس ندارم و می خوام داده ها رو به صورت دستی اضافه کنم؟؟؟؟؟

مرسی

[omid-vbAuto]

سلام دوستان
چطور می تونم به combobox به سری ایتم رو به صورت دستی اضافه کنم به طوری که بتنونم به هر ایتم یک value اختصاص بدم در واقع من دیتاسورس ندارم و می خوام داده ها رو به صورت دستی اضافه کنم؟؟؟؟؟

مرسی

دوست عزیز بفرمائید:

[Reza,M]

به طوری که بتنونم به هر ایتم یک value اختصاص بدم
منظورت چيه ؟

[yekta64]

دوست عزیز بفرمائید:

ممنون دوست عزیز
ولی من نحوه ی اضافه کردن ایتم به combobox رو می دونم ولی سوال من چیز دیگه ی هستش
ببیند هر ایتم در combobox یک displaymember و یه valuemember داره حالا شما با این کد فقط displaymemebre رو مشخص کرده اید چطور می تونید برای هر ایتم valuemember رو تعیین کنید؟؟؟؟؟؟

مرسی

[pouyansaraf]

سلام
از کلاس زیر استفاده کنید


Public Class Mylist
Private sName As String
' You can also declare this as String,bitmap or almost anything.
' If you change this delcaration you will also need to change the Sub New
' to reflect any change. Also the ItemData Property will need to be updated.
Private iID As Integer
' Default empty constructor.
Public Sub New()
sName = ""
' This would need to be changed if you modified the declaration above.
iID = 0
End Sub
Public Sub New(ByVal Name As String, ByVal ID As Integer)
sName = Name
iID = ID
End Sub
Public Property Name() As String
Get
Return sName
End Get
Set(ByVal sValue As String)
sName = sValue
End Set
End Property
' This is the property that holds the extra data.
Public Property ItemData() As Int32
Get
Return iID
End Get
Set(ByVal iValue As Int32)
iID = iValue
End Set
End Property
' This is neccessary because the ListBox and ComboBox rely
' on this method when determining the text to display.
Public Overrides Function ToString() As String
Return sName
End Function
End Class
　


در برنامه تا مانند زیر از این کلاس استفاده کنید


With ComboBox1
.Items.Add(New Mylist("Goggle", 1))
.Items.Add(New Mylist("Msdn", 2))
.Items.Add(New Mylist("vbcity", 3))
.Items.Add(New Mylist("dotnet", 4))
.SelectedIndex = 0 'Set first item as selected item.
End With