Newsgroup: it.comp.appl.access
Titolo: Disabilitare/abilitare voci dalla barra degli strumenti personalizzata

Salve a tutti, volevo chiedere se è possibile abilitare o disabilitare le 
voci di una barra personalizzata tramite codice.
grazie della pazienza
gianni


Io faccio tutto con queste tre funzioni che mi sono creato, e che mi
permettono di abilitare o disabilitare le varie voci di menu, fino a tre
livelli. Sono in ordine di priorietà (la prima modifica un gruppo
principale, la seconda un sottogruppo, la terza una singola voce di menu).
Devi aggiungere in Visual Basic un riferimento alla libreria "Microsoft
Office 9.0" o superiore.
Prova ad usarle, magari personalizzandole
Function ControlloMenuGruppi(BarraMenu As String, VocePopup As String,
VeroFalso As Boolean)
' Attiva/Disattiva i gruppi di Menu
' BarraMenu = La barra da mdificare
' VocePopup = Il gruppo di menu da modificare
' VeroFalso = Abilita/Disabilita la voce di menu
' Si utilizza la libreria "Microsoft Office 9.0" o superiore
On Error GoTo Err_ControlloMenuGruppi
    Dim MiaBarra As CommandBar
    Dim MioPopup As CommandBarPopup
    '
    Set MiaBarra = CommandBars(BarraMenu)
    Set MioPopup = MiaBarra.Controls(VocePopup)
    '
    MioPopup.Enabled = VeroFalso
    MiaBarra.Visible = True
Exit_ControlloMenuGruppi:
    Exit Function
Err_ControlloMenuGruppi:
    MsgBox "Si è verificato il seguente errore:@N° " & Err.Number & " - " &
Err.Description & "@"
    Resume Exit_ControlloMenuGruppi
End Function
Function ControlloMenuPopup(BarraMenu As String, VocePopup1 As String,
VocePopup2 As String, VeroFalso As Boolean)
' Attiva/Disattiva i sottogruppi di Menu
' BarraMenu = La barra da mdificare
' VocePopup1 = Il gruppo di menu da modificare
' VocePopup2 = Il sottogruppo di menu da modificare
' VeroFalso = Abilita/Disabilita la voce di menu
' Si utilizza la libreria "Microsoft Office 9.0" o superiore
On Error GoTo Err_ControlloMenuPopup
    Dim MiaBarra As CommandBar
    Dim MioPopup1 As CommandBarPopup
    Dim MioPopup2 As CommandBarPopup
    '
    Set MiaBarra = CommandBars(BarraMenu)
    Set MioPopup1 = MiaBarra.Controls(VocePopup1)
    Set MioPopup2 = MioPopup1.Controls(VocePopup2)
    '
    MioPopup2.Enabled = VeroFalso
    MiaBarra.Visible = True
Exit_ControlloMenuPopup:
    Exit Function
Err_ControlloMenuPopup:
    MsgBox "Si è verificato il seguente errore:@N° " & Err.Number & " - " &
Err.Description & "@"
    Resume Exit_ControlloMenuPopup
End Function
Function ControlloMenuVoci(BarraMenu As String, VocePopup As String,
VoceMenu As String, VeroFalso As Boolean)
' Attiva/Disattiva le voci di Menu
' BarraMenu = La barra da mdificare
' VocePopup = Il gruppo di menu da modificare
' VoceMenu = La voce di menu da modificare
' VeroFalso = Abilita/Disabilita la voce di menu
' Si utilizza la libreria "Microsoft Office 9.0" o superiore
On Error GoTo Err_ControlloMenuVoci
    Dim MiaBarra As CommandBar
    Dim MioPopup As CommandBarPopup
    Dim MioMenu As CommandBarButton
    '
    Set MiaBarra = CommandBars(BarraMenu)
    Set MioPopup = MiaBarra.Controls(VocePopup)
    Set MioMenu = MioPopup.Controls(VoceMenu)
    '
    MioMenu.Enabled = VeroFalso
    MiaBarra.Visible = True
Exit_ControlloMenuVoci:
    Exit Function
Err_ControlloMenuVoci:
    MsgBox "Si è verificato il seguente errore:@N° " & Err.Number & " - " &
Err.Description & "@"
    Resume Exit_ControlloMenuVoci
End Function
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ha scritto:

Scusami, ho letto solo dopo che ti interessava modificare una barra degli
strumenti, mentre le mie funzioni operano su una barra dei menu.
Scusa
Franco


 ha scritto nel messaggio 
news:217Z222Z110Z44Y...@usenet.libero.it...

Grazie comunque della risposta.
Quindi non c'è nessuno che mi può aiutare?
ciao gianni


Commandbars(NomeBarraStrumenti).Controls(NomeControllo).Visible=False/
True
@Alex

 ha scritto nel messaggio 
news:1174599617....@y80g2000hsf.googlegroups.com...

Commandbars(NomeBarraStrumenti).Controls(NomeControllo).Visible=False/
True
@Alex
Ti ringrazio tantissimo.
ciao gianni