Afficher/masquer la barre des menus

Bonjour Touti,
TouTi a écrit :

J'ai bien suivi vos commentaires mais la mise en application me pose un
probleme.

J'ai 3 trois menus dont un est intitulé "Affichage" contenant une commande
"barre d'outils" qui me permettra afficher/masquer cette barre.

Lorsque la barre affichage est masquée, j'appelle le popupmenu de ce menu
avec le code suivant :

Private Sub mnuViewRefresh_Click()
Dim c As Control
Dim aff As Boolean

If mnuViewRefresh.Checked = True Then
mnuViewRefresh.Checked = False
aff = False
Else
mnuViewRefresh.Checked = True
aff = True
End If

For Each c In Controls
If TypeOf c Is Menu Then c.Visible = aff
Next c

End Sub

Malheureusement, ça coince lorsqu'il cache le menu contenant ce code. De
plus cela ne cache pas que que les menus principaux mais tous les menus de
commandes....

Exact, dans ce cas tu peux indexer ta barre de menu horizontale

http://cjoint.com/?ghl3zW7R6H


Caption Nom Index
======= === ==== Menu1 mnu 0
Menu2 mnu 1
Menu3 mnu 2

et pour cacher la barre faire une boucle :

Dim i As Integer

For i = 0 To 2
mnu(i).Visible = Aff
Next i

cela te permettra quand même d'affichier un PopupMenu :

PopupMenu mnu(3)

même si la barre est cachée.
--
Cordialement,

Jacques.

> Exact, dans ce cas tu peux indexer ta barre de menu horizontale
http://cjoint.com/?ghl3zW7R6H
Caption Nom Index
======= === ==== > Menu1 mnu 0
Menu2 mnu 1
Menu3 mnu 2
et pour cacher la barre faire une boucle :
Dim i As Integer
For i = 0 To 2
mnu(i).Visible = Aff
Next i
cela te permettra quand même d'affichier un PopupMenu :
PopupMenu mnu(3)
même si la barre est cachée.
Cordialement,
Jacques.

Autre problème
* lorsque l'on cache les menus tout va bien...
* mais lorsque l'on veut les afficher, le menu appelé par le popup ne
s'affiche pas

Voir le petit projet : Clic droit sur la form pour faire apparaître le popup

http://cjoint.com/?ghmGrJwlMe

TouTi

Bonjour Touti,
TouTi a écrit :

Exact, dans ce cas tu peux indexer ta barre de menu horizontale
http://cjoint.com/?ghl3zW7R6H
Caption Nom Index
======= === ==== >> Menu1 mnu 0
Menu2 mnu 1
Menu3 mnu 2
et pour cacher la barre faire une boucle :
Dim i As Integer
For i = 0 To 2
mnu(i).Visible = Aff
Next i
cela te permettra quand même d'affichier un PopupMenu :
PopupMenu mnu(3)
même si la barre est cachée.
Cordialement,
Jacques.

Autre problème
* lorsque l'on cache les menus tout va bien...
* mais lorsque l'on veut les afficher, le menu appelé par le popup ne
s'affiche pas

Voir le petit projet : Clic droit sur la form pour faire apparaître le popup

http://cjoint.com/?ghmGrJwlMe

TouTi

Projet modifié :

http://cjoint.com/?ghnsCcueMU

en indexant le menu. Modifs indiqués par 'J93

Lorsque l'on réactive la barre de menu via PopupMenu ,la propriété
visible du menu parent n'est pas prise en compte, d'où sa réaffection au
retour de PopupMenu (dans Form_MouseUp).


--
Cordialement,

Jacques.

> Projet modifié :
http://cjoint.com/?ghnsCcueMU
en indexant le menu. Modifs indiqués par 'J93
Lorsque l'on réactive la barre de menu via PopupMenu ,la propriété
visible du menu parent n'est pas prise en compte, d'où sa réaffection au
retour de PopupMenu (dans Form_MouseUp).

Heureusement que tu es là...

C tout simple mais il fallait le savoir...

Encore merci

TouTi

> Bonjour

J'ai créé une barre de menus en utilisant le "créateur de menu" : Est-il
possible de masquer/afficher cette barre???

Merci

Touti

Salut,

Tu peux aussi utiliser un OCX tels que FlatBar32.ocx qui te permet de faire
une joile barre avec icones.

De plus, cet OCX est gratuit.