[VB6] popup menu

[FinalFantasy]

Come metto un popup menu nel form o nei textbox?

[xegallo]

Originariamente inviato da FinalFantasy
Come metto un popup menu nel form o nei textbox?

con la funzione popupmenu()

[FinalFantasy]

Ho fatto così

Private Sub Form_Load()
Me.PopupMenu ("Prova")
End Sub

Mi da Type mismatch

Why??

[xegallo]

Originariamente inviato da FinalFantasy
Ho fatto così

Private Sub Form_Load()
Me.PopupMenu ("Prova")
End Sub

Mi da Type mismatch

Why??

ma hai letto la guida della funzione

popupmenu(nomemenu)

[FinalFantasy]

Nome menu dove lo prendo? VB mi dice Menu As Object,Flag,X,Y,DefaultMenu

Come devo fare esattamente?

[xegallo]

nel form fai ctrl+e
crei un menù coi vari sotto menù e lo rendi invisibile
alla funzione popupmenu passi il nome del menu radice

[FinalFantasy]

Ho creato mnuexit (x fare una prova) ed è un sottomenu di mnufile

&File (mnufile)
....&Esci (mnuexit)

e ho scritto

Private Sub Form_Load()
  PopupMenu (mnuexit)
End Sub

Mi da sempre Type mismatch

[xegallo]

1) ho detto il menu radice
2) se ci tieni a usare le perentesi mettici call davanti
call popupmenu(mnufile)

o

popupmenu mnufile

[FinalFantasy]

Ok...di funzionare funziona, xo ci sarebbe un altro problema:

Private Sub Form_Click()
Me.PopupMenu mnufile
End Sub

Questo funziona se clicco nel form con il tasto sinistro, come faccio ad attivare il popupmenu quando clicco con il tasto destro?

[Foga27News]

Metti la chiamata di funzione in Form_MouseUp(...)