|
Moin Ralf,
erstmal vielen Danke für deine Antwort, ich habe das ganze Alternativ so dargestellt:
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim ListValues(2, 1) As Variant
ListValues(0, 0) = "Case 1"
ListValues(0, 1) = "A"
ListValues(1, 0) = "Case 2"
ListValues(1, 1) = "B"
ListValues(2, 0) = "Case 4"
ListValues(2, 1) = "D"
Dim ListValues2(2, 1) As Variant
ListValues2(0, 0) = "Case 1"
ListValues2(0, 1) = "A"
ListValues2(1, 0) = "Case 3"
ListValues(1, 1) = "C"
ListValues2(2, 0) = "Case 5"
ListValues2(2, 1) = "E"
With ComboBox1
.Clear
Select Case Node.Key
Case "A"
.List = ListValues
Case "B"
.List = ListValues2
End Select
End With
End Sub
Private Sub ComboBox1_Change()
Me.TextBox1.Value = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)
End Sub
 Ich habe nun zwei Probleme:
- 1. Sobald ich den Unterpunkt SubItem1 anklicke, werden mir meine Elemente aus der ComboBox nicht mehr angezeigt. Eine Lösung wäre die Keys vom Child Knoten mit anzugeben. Allerdings muss es eine einfachere und schönere Lösung geben. Ich habs mit "node.parent" ausprobiert, aber ohne Erfolg
- 2. Ich habe zwei Listen erstellt für meine ComboBox, weil ich am Ende in einer TextBox den Index als Buchstaben ausgeben möchte, funktioniert auch soweit gut, aber sobald ich eine Auswahl getroffen habe und dann doch wechseln möchte, wirft er mir den Error Code 381 aus.
Hast du da vielleicht eine Ahnung?
Liebe Grüße
|