Cambiare il nome del menu con il click del mouse.

[massimo]

scusate la banalità della domanda, ma sono alle primissime armi con vb6: voglio fare in modo che il nome di un menu cambi al click del mouse, ma non mi riesce, cosa ci metto qui in mezzo? :

Private Sub mnuModificaAnnulla_Click()

End Sub

ho provato a scrivere : if mnumodificaannulla.caption="annulla" then "ripeti"
if mnumodificaannulla.caption="ripeti" then "annulla"

MA NON FUNZIONA! mi spiegate perche? e come si fa?

[Toeke]

Originariamente inviato da massimo
scusate la banalità della domanda, ma sono alle primissime armi con vb6: voglio fare in modo che il nome di un menu cambi al click del mouse, ma non mi riesce, cosa ci metto qui in mezzo? :

Private Sub mnuModificaAnnulla_Click()

End Sub

ho provato a scrivere : if mnumodificaannulla.caption="annulla" then "ripeti"
if mnumodificaannulla.caption="ripeti" then "annulla"

MA NON FUNZIONA! mi spiegate perche? e come si fa?

Private Sub mnuModificaAnnulla_Click()
 if mnumodificaannulla.caption="annulla" then  
  mnumodificaannulla.caption ="ripeti"
 end if
End Sub

Non l'ho provato, ma a rigor di logica devi dire all'oggetto (mnumodificaannulla) che deve prendere il nuovo valore


Toeke

[massimo]

ho copiato ed incollato ma non funziona, o meglio funziona come prima, il nome "annulla" diventa "ripeti" ma se poi ci ri clicco su non torna "annulla"

in pratica il comando che mi hai dato tu è solo più lungo di quello che usavo io ma ha lo stesso effetto

Private Sub mnuModificaAnnulla_Click()
mnuModificaAnnulla.Caption = "Ripeti"
End Sub



Private Sub mnuModificaAnnulla_Click()
if mnumodificaannulla.caption="annulla" then
mnumodificaannulla.caption ="ripeti"
end if
End Sub

HANNO TUTTI E DUE LO STESSO EFFETTO.

[Toeke]

Private Sub mnuModificaAnnulla_Click()
 if mnumodificaannulla.caption="annulla" then  
  mnumodificaannulla.caption ="ripeti"
 end if
 if mnumodificaannulla.caption="ripeti" then  
  mnumodificaannulla.caption ="annulla"
 end if
End Sub

Toeke

[massimo]

adesso non funziona più...:quipy:

[Toeke]

Originariamente inviato da massimo
adesso non funziona più...:quipy:

Scusa mi errore

Private Sub mnuModificaAnnulla_Click()
 If mnuModificaAnnulla.Caption = "annulla" Then
  mnuModificaAnnulla.Caption = "ripeti"
Else
  mnuModificaAnnulla.Caption = "annulla"
 End If
End Sub

Toeke

[massimo]

Funziona!!!



in pratica si scrive cosi:
al click del mouse su menumodificaannulla()
se mnuannulla.caption="annulla" allora
il su detto="ripeti"
altrimenti
il su detto="annulla"
...o no?
ps e le parentesi a che servono?

ciao!