[VB6] Menu dei form

[GoldEmish]

Ciao, volevo sapere com'è possibile aggiungere dei sottomenu ad un menu già esistente in un form direttamente dal codice, senza usare l'editor dei menu.
Grazie

[tas]

Vai nell'editor di menu e crea un nuovo menu chiamato mnuLibero, imposta la proprietà Index = 0 e Visible = False. In pratica hai creato il primo elemento di un array di menu, a questo punto puoi fare una cosa tipo questa:

Private n As Integer

Private Sub Command1_Click()
    n = n + 1
    
    Load mnuLibero(n)
    With mnuLibero(n)
        .Visible = True
        .Caption = "Menu libero " & n
    End With
End Sub

Private Sub mnuLibero_Click(Index As Integer)
    MsgBox "Hai selezionato il menu " & Index
End Sub

[GoldEmish]

Bello!!
E posso gestire anche i sottomenu così oppure devo sempre fare un sottomenu di partenza?

[GoldEmish]

Emh, mi spiego meglio.
Se dovessi avere una cosa del genere:

MnuLibero(0)[hide]
MnuLibero(1)
-subMenuLibero1(0)
MnuLibero(2)
-subMenuLibero2(0)
-subMenuLibero2(1)

Come potrei fare?
Ogni menu dovrebbe contenere un numero di sottomenu variabile... è possibile?

[tas]

Devi creare anche i sottomenu di partenza,

[GoldEmish]

arghghgh

io ho provato a fare questo:
dal menu editor ho impostato
menu(0)
-submenu(0)

ok'?

Quando faccio load menu(1).. e load submenu(1)..
i submenu restano sempre contestuali al primo menu:
menu(0)
-submenu(0)
-submenu(1)
-submenu(2)
menu(1)
menu(2)

non riesco a creare anche quelli del menu(1) e menu(2)...

grazie e scusa il disturbo

[tas]

Non credo sia possibile fare come vorresti tu, probabilmente l'unica strada percorribile è cambiare il Parent del submenu ma VB6 non lo permette (Parent è una proprietà readonly). Bisognerebbe provare con una qualche funzione API...

[xegallo]

Originariamente inviato da tas
Bisognerebbe provare con una qualche funzione API...

l'api di riferimento è appendmenu e correlate, chiaramnte la gestione di questi menu aggiunti non può essere affidata al gestore eventi di vb ma bisogna crearsene uno proprio

[GoldEmish]

che tradotto vuol dire che non lo posso fare?

[xegallo]

Originariamente inviato da GoldEmish
che tradotto vuol dire che non lo posso fare?

tutto si può fare, ma è un lavoro improbo per il risultato che vuoi ottenere, che se non hai familiarità con la callback è difficile da fare