editor menu

[simo97]

esempio copiato dal wiki

Codice: gambas [Seleziona]

' Dichiariamo il Menu principale:  
Private mn As Menu    
          
     
Public Sub Form_Open()  
 
' Dichiariamo anche le sotto-voci del Menu:    
 Dim mn1 As Menu  
 Dim mn2 As Menu  
 Dim mn3 As Menu  
 Dim mn4 As Menu  
     
' impostiamo il Menu principale, impostando come "contenitore" il Form:
   mn = New Menu(Me)  
     
' gli diamo il testo che sarà mostrato:
   mn.Caption = "File"  
     
' attribuiamo al Menu principale le sue sotto-voci,
' alle quali diamo il testo che sarà mostrato,
' e come "contenitore" il Menu principale:
   mn1 = New Menu(mn, False)
    With mn1
' Facciamo mostrare la denominazione della sotto-voce mediante ".Caption":
     .Caption = "Nuovo"
     .Name = "Nuovo"
    End With

   mn2 = New Menu(mn, False)
    With mn2
     .Caption = "Apri"
     .Name = "Apri"
    End With

   mn3 = New Menu(mn, False)
    With mn3
     .Caption = "Salva con nome..."
     .Name = "Salva con nome..."
    End With

   mn4 = New Menu(mn, False)
    With mn4
     .Caption = "Esci"
     .Name = "Esci"
    End With
     
End


Public Sub mn1_Click()  


    Print "funziona"
   ' qui fa qualcosa...
 
End

il problema è che non funziona...
cioè se si fa click su nuovo (mn1) non printa funziona...

 

[vuott]

Sì, era stata dimenticata, per il primo caso, l'attribuzione di ogni sotto-menu ad un proprio specifico Gruppo per la sollevazione dell'evento _Click() .

Ho corretto.
Grazie della segnalazione.

[simo97]

 

non è cambiato nulla....
 

[vuott]

La cosa mi sorprende, poiché ora a me funziona benissimo !