Archief - [VB.NET] Meerdere Adressofs naar 1 sub?

 Public Function AddNewcombobox() 'As System.Windows.Forms.ComboBox
        Dim cmbSoort As New System.Windows.Forms.ComboBox()

        Me.Controls.Add(cmbSoort)
        cmbSoort.Top = cLeft
        cmbSoort.Left = 62
        cmbSoort.Items.Add("Maak een keuze")
        cmbSoort.Items.Add("Behuizingen")
        cmbSoort.Items.Add("Moederborden")
        cmbSoort.Items.Add("Processoren")
        cmbSoort.Items.Add("Grafische kaarten")
        cmbSoort.Items.Add("Geheugen")
        cmbSoort.Items.Add("DVD/Blu-ray")
        cmbSoort.Items.Add("Harddisks")
        cmbSoort.Items.Add("SSD")
        cmbSoort.Items.Add("Voedingen")
        cmbSoort.Items.Add("Invoerapparaten")
        cmbSoort.Items.Add("Monitoren")
        cmbSoort.SelectedIndex = 0
        cmbSoort.Name = "Soort" & mintI
        AddHandler cmbSoort.SelectedIndexChanged, AddressOf IndexVeranderd
        Return cmbSoort
    End Function

    Public Sub AddNewName()
        Dim cmbName As New System.Windows.Forms.ComboBox()

        Me.Controls.Add(cmbName)
        cmbName.Top = cLeft
        cmbName.Left = 292
        cmbName.Items.Add("Maak een keuze")
        cmbName.Name = "Naam" & mintI
        cmbName.Enabled = False
        CmbPrijs.Enabled = False
        txtStuks.Enabled = False
        'AddHandler AddNewcombobox.SelectedIndexChanged, AddressOf IndexVeranderd
        cLeft = cLeft + 40
        mintI += 1
    End Sub

    Private Sub cmbNaam_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'CmbPrijs.SelectedIndex = CmbNaam.SelectedIndex
    End Sub

    Private Sub IndexVeranderd(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim ComboVeranderd = DirectCast(sender, ComboBox)
        Dim combonaam = DirectCast(sender, ComboBox)
        MsgBox(combonaam.ToString)
        If ComboVeranderd.SelectedIndex = 0 Then
            'ComboNaam.Enabled = False
            txtStuks.Enabled = False
        End If
        For i = 0 To EasybyteDataSet.Stock.Rows.Count - 1
            If ComboVeranderd.SelectedItem = EasybyteDataSet.Stock.Rows(i)("Soort") Then
                'ComboNaam.Enabled = True
                txtStuks.Enabled = True
                'ComboNaam.Items.Add(EasybyteDataSet.Stock.Rows(i)("Product naam"))
                CmbPrijs.Items.Add(EasybyteDataSet.Stock.Rows(i)("Prijs"))
            End If
        Next
    End Sub