✔ Menü zur Laufzeit erweitern?

[kuhlmaehn]

Hi!
Ich hab jetzt seit einer Stunde gesucht und nur gefunden dass es irgendwie mit Load gehen soll.
Wie kann man ein Menü dynamisch erstellen!?
Ich mein so ein Menü oben was man mit dem Menüeditor erstellt.

Danke!

 

[Shakie]

Load ist schon nicht schlecht. Zuerst musst du mit dem Menüeditor ein Menü erstellen, welches auch unsichtbar sein kann. Dann musst du noch den Index-Wert setzen, am sinnvollsten auf 0 oder 1 (wie du es lieber magst). Um das Menü nun dynamisch zu erweitern, erstellst du praktisch mit "Load" Kopien des 1.Menüs. Beachte: In einem Menü muss mindestens ein Menüeintrag sichtbar sein, sonst gibt's einen Fehler. Hier mal ein Codebeispiel um 5 neue Menüeinträge zu erstellen:
(mnuTest(0) ist das Menü, dass ich mit dem Menüeditor erstellt habe)

Dim i As Integer
For i = 1 To 5
    Load Me.mnuTest(i)
    Me.mnuTest(i).Caption = "neues Menü Nr." & i
    Me.mnuTest(i).Visible = True
Next

 

[kuhlmaehn]

Danke das hilft mir sehr weiter
Hatte wenig Zeit die letzen Tage aber jetzt am Wochenende gehts weiter *freu*