استفسار في ComboBox

وعليكم السلام ورحمة الله وبركاته

لنفرض أن جدول الأصناف اسمه dtItems يحتوى على رقم الصنف ItemID واسم الصنف ItemName والكومبو اسمه cmbItem

قم بكتابة هذا الكود

cmbItem.DataSource = dtItems
cmbItem.DisplayMember = "ItemName"
cmbItem.ValueMember = "ItemID"

ولمعرفة رقم الصنف المحدد يمكنك استخدام هذا الكود

MsgBox(cmbItem.SelectedValue.ToString)

Public Structure Item
   Public ID   As UInteger

   Public Name As String

   Public Overrides Function ToString() As String
       Return Name
   End Function
End Structure

cboItems.Items.Add( New Item With {.ID = 1, .Name = "Item1"} )
cboItems.Items.Add( New Item With {.ID = 2, .Name = "Item2"} )
cboItems.Items.Add( New Item With {.ID = 3, .Name = "Item3"} )
cboItems.Items.Add( New Item With {.ID = 4, .Name = "Item4"} )

للحصول على الصنف الذى تم إختياره كالتالى:

Dim sItem As Item = Nothing

If cboItems.SelectedIndex > -1 Then sItem = CType(cboItems.Items(cboItems.SelectedIndex), Item)

و الله ولي التوفيق

الأخ GHOST والأخ محمد جزاكم الله خير وبارك الله فيكم.

ألف شكر