[VB6] Disabilitatare/Abilitare via codice voce di menu (era: menu)

[ilmagowalter]

raga sono abbastanza newbie per queanto riguarda visual basic

ho fatto un menù con l'editor di menu divisual basic 6
in questo menù ho una voce disabilitata
vorrei che da codice fare in modo di abilitare o disabilitare questa voce a seconda delle mie esigenze

ho provato a mettere il nome del menu e poi premere il "." e non mi compaiono le proprietà

se faccio
nomeform.nomemenu

al digitare del "." mi compaiono solo le proprietà

count
item
lbound
ubound

io pensavo che facendo
nomemenu.enabled = true
avrei risolto e invece no
cosa posso fare?

[ladyBlu]

Ogni menu e sottomenu ha una proprietà Name univoca. Per disabilitare o abilitare un menu o un sottomenu basta scrivere questo nome .Enabled = True/False.

per esempio, ho una voce del menu che si chiama sMenu, quindi

sMenu.Enabled = False

[ilmagowalter]

infatti io ero convinto così

però sei io scrivo

smenu_chiudi.enabled = true

mi dice "necessario oggetto"

[ladyBlu]

strano, a me funziona :master:
mi scrivi la sub dove devi eseguire questa istruzione?

[ilmagowalter]

Public Sub apri_campionato()
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path & "\campionato.mdb")
Set rs = db.OpenRecordset("select * from campionati where ucase(nome_campionato) " & _
" = ucase('" & F_apri_campionato.List_apri.Text & "')", dbOpenDynaset)
If rs.EOF Or rs.BOF Then
Else
campionato = rs("nome_campionato")
id_campionato = rs("id_campionato")
End If
db.Close
F_main.Caption = F_main.Caption & " - " & campionato
smenu_chiudi.Enabled = True
End Sub

[ilmagowalter]

secondo me è qualcosa che ha a che fare con i
"riferimenti"
del progetto
bisogna aggiungere qualcosa

perchè non riconosce l'oggetto

[ale500]

Originariamente inviato da ilmagowalter
Public Sub apri_campionato()
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path & "\campionato.mdb")
Set rs = db.OpenRecordset("select * from campionati where ucase(nome_campionato) " & _
" = ucase('" & F_apri_campionato.List_apri.Text & "')", dbOpenDynaset)
If rs.EOF Or rs.BOF Then
Else
campionato = rs("nome_campionato")
id_campionato = rs("id_campionato")
End If
db.Close
F_main.Caption = F_main.Caption & " - " & campionato
me.smenu_chiudi.Enabled = True
End Sub

oppure:

nome_del_form.smenu_chiudi.Enabled = True

[xegallo]

questa sub è scritta nel form in cui c'è il menù?

[ilmagowalter]

avevo provato anche così

F_main.smenu_chiudi.Enabled = True

ma mi dice
"Impossibile trovare il metodo o il menbro di dati"

[ladyBlu]

Originariamente inviato da xegallo
questa sub è scritta nel form in cui c'è il menù?

te lo richiedo...