วิธีการตั้งค่าเป็น Combox อย่างนี้ตลอดกับเดียวกับข้อมูลอย่างที่เป็นของผู้ใช้ควบคุมที่จะใช้กับหลายแบบฟอร์ม

คุณสามารถใส่เล็ก Class Examiner

Public Class Examiner
    Public Property Examiner_ID As Integer
    Public Property Last_Name As String
    Public Sub New(ID As Integer, lname As String)
        Examiner_ID = ID
        Last_Name = lname
    End Sub
End Class

งั้น,ตอนแรกรูปแบบความสนไปเอาข้อมูลในรายการประกาศในมอดูลดังนั้นมันสามารถเข้าถึงได้จากรูปแบบในการทำงานของโปรแกรม แน่นอนคุณอาจจะมีอย่างอื่นที่อยู่ในศูนย์ควบคุม kde ในโมดูล.

Module Module1
    Public ExaminerData As New List(Of Examiner)
End Module

Private Sub MyWinform_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    FillExaminerList()
    ComboBoxExaminer.ValueMember = "Examiner_ID"
    ComboBoxExaminer.DisplayMember = "Last_Name"
    ComboBoxExaminer.DataSource = ExaminerData
End Sub

มีอีกรูปแบบที่ต้องการข้อมูลเพื่อเติมเต็มเป็นกล่องคอมโบสามารถใช้ได้ ExaminerData. เพียงแต่คุณโทรหา FillExaminerList ครั้งนึงตอนจุดเริ่มต้นของการทำงานของโปรแกรม มันเป็นแค่นัดเดียวยิงจากฐานข้อมูลเหมือนกัน

Private OPConStr As String = "Your connection string."

Private Sub FillExaminerList()
    Dim dt As New DataTable
    Using cn As New SqlConnection(OPConStr),
            cmd As New SqlCommand("MyStoredProcedure", cn)
        cmd.Parameters.Add("@ExaminerType", SqlDbType.Int).Value = 3
        Using reader = cmd.ExecuteReader
            dt.Load(reader)
        End Using
    End Using
    For Each row As DataRow In dt.Rows
        Dim ex As New Examiner(CInt(row("Examiner_ID")), row("Last_Name").ToString)
        ExaminerData.Add(ex)
    Next
End Sub