Comment configurer Un Combox , toujours avec les mêmes données, un contrôle de l'utilisateur pour être utilisé sur de multiples formes

Vous pouvez mettre un petit 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

Puis, lors de la première forme de charges, d'obtenir les données dans une liste déclarée dans un module de sorte qu'il peut être consulté à partir de n'importe quelle forme dans l'application. Bien sûr, vous pourriez avoir d'autres choses dans le Module.

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

Toute autre forme que les besoins de données pour remplir une zone de liste modifiable peut utiliser ExaminerData. Vous seul appel FillExaminerList une fois au début de l'application. Il n'existe qu'un seul coup sur la base de données.

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