Hallo,
Ik ben nieuw met VB 2010 en wil graag een form maken met daarin 3 Listboxes: in listbox 1 heb ik een verzameling met machinesoorten,als ik in deze lijst een machine selecteer wil ik dat er in listbox2 alleen de types voor deze specifieke machine komen te staan en als een ander selecteer in listbox1 alleen de types van deze machine.
In listbox 3 heb een aantal waardes staan die vast staan (technische tekeningen,foutcodes etc.).Nu wil ik als er in alle 3 de lijsten een keuze is gemaakt en ik op de knop druk de gegevens (bv. technische tekeningen van toyota type 7fbmf)geopend worden van mijn harde schijf.Nu ben ik een eindje op weg maar ik zit vast.Dit is wat ik tot nu toe heb:
Hij zegt: complete member initialization
Ook weet ik niet hoe ik de koppeling moet maken tussen listbox2,listbox3 en de drukknop.
Ik hoop dat iemand mij kan helpen.
Ik ben nieuw met VB 2010 en wil graag een form maken met daarin 3 Listboxes: in listbox 1 heb ik een verzameling met machinesoorten,als ik in deze lijst een machine selecteer wil ik dat er in listbox2 alleen de types voor deze specifieke machine komen te staan en als een ander selecteer in listbox1 alleen de types van deze machine.
In listbox 3 heb een aantal waardes staan die vast staan (technische tekeningen,foutcodes etc.).Nu wil ik als er in alle 3 de lijsten een keuze is gemaakt en ik op de knop druk de gegevens (bv. technische tekeningen van toyota type 7fbmf)geopend worden van mijn harde schijf.Nu ben ik een eindje op weg maar ik zit vast.Dit is wat ik tot nu toe heb:
Code:
Public Class Form1
Private MachineCollection As List(Of Machine)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MachineCollection = New List(Of Machine)
Call AddMachine()
ListBox1.DataSource = MachineCollection
ListBox1.ValueMember = "Merk"
End Sub
Private Sub AddMachine()
Dim Atlet As Machine = New Machine With {.Merk = "Atlet", .Type = {"LEH 16c", "PLL", "PLP", "TLP"}}
Dim BT As Machine = New Machine With {.Merk = "BT", .Type = {"LPE 180"}}
Dim Caterpillar As Machine = New Machine With {.Merk = "Caterpillar", .Type = {"DP15", "DP40", "EP10", "GP15", "GP40"}}
Dim Cesab As Machine = New Machine With {.Merk = "Cesab", .Type = {"Blitz", "B200", "B300", "B400", "B600", "B800", "Centauro"}}
Dim Hyster As Machine = New Machine With {.Merk = "Hyster", .Type = {"A1.3", "E1.6", "J1.5", "J2.2"}}
Dim Toyota As Machine = New Machine With {.Merk = "Toyota", .Type = {"7FBMF", "7FBEF"}}
MachineCollection.addrange({Atlet, BT, Caterpillar, Cesab, Hyster, Toyota})
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
ListBox2.Items.Clear()
ListBox2.Items.AddRange(MachineCollection.Item(ListBox1.SelectedIndex).Type)
End Sub
End Class
Public Structure Machine
Sub New()
' TODO: Complete member initialization
End Sub
Public Property Merk As String
Public Property Type As String
End Structure
Hij zegt: complete member initialization
Ook weet ik niet hoe ik de koppeling moet maken tussen listbox2,listbox3 en de drukknop.
Ik hoop dat iemand mij kan helpen.
Laatst bewerkt door een moderator: