Hi Leuts
Brauche *dringend* Hilfe bei folgendem Problem:
Ich sollte ein Menü anzeigen, welches aber dynamisch erstellt wird. D.h. einmal hat es 10 Einträge, ein anderes mal hat es 20 Einträge.
Das ganze sollte dann noch so klappen, dass bei Klick auf irgendeinen Menüpunkt in einer Variable der Text des Menüpunktes gespeichert wird…
Weiss jemand Rat ?
Was du brauchst ist ein Array.
Lege im Menu-Editor ein Untermenü (hier mnuTestKind) an. Setze die Index-Eigenschaft (links unten) auf 0.
Form-Code:
Private Sub Form\_Load()
Dim i As Long
For i = 1 To 5
Load mnuTestKind(i)
mnuTestKind(i).Tag = "was du willst " & i 'Speicherplatz für beliebige Daten
mnuTestKind(i).Caption = "neu " & i
Next
End Sub
'
Private Sub mnuTestKind\_Click(Index As Integer)
MsgBox mnuTestKind(Index).Caption & " Index: " & Index & " / Tag: " & mnuTestKind(Index).Tag
End Sub
cu, holli