Modalità di Installazione di Un Combox , sempre con gli stessi dati, come un controllo utente per essere utilizzato in molteplici forme

Si può mettere una piccola 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

Poi, quando la prima forma di carichi, di ottenere i dati in un elenco dichiarata in un modulo così è possibile accedervi da qualsiasi form dell'applicazione. Naturalmente, si può avere altre cose nel Modulo.

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

Qualsiasi altra forma che ha bisogno di dati per riempire una casella combinata è possibile utilizzare ExaminerData. È solo chiamata FillExaminerList una volta all'inizio di applicazione. C'è solo un singolo colpo sul database.

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