Barre de menu non visible

Le
ePilot
Bonjour groupe,

est-ce possible de contrôler la barre de menu pour la rendre invisible
dans une form avec des api ou qqch d'autre en VB6

Google ne m'a rien donné de concret.

Merci

Jacquelin Hardy
Canada
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jean-marc
Le #15363161
ePilot wrote:
Bonjour groupe,

est-ce possible de contrôler la barre de menu pour la rendre invisible
dans une form avec des api ou qqch d'autre en VB6

Google ne m'a rien donné de concret.



Hello,

il y a un truc qui marche, pas très élégant et un peu
frustre, mais fonctionnel: il suffit de rendre invisible
tous les items de premier niveau du menu, et il devient
alors invisible.

Pour rendre invisible un menu (par exemple) "mnu_A"
mnu_A.visible = False

Pour tester c'est tout simple:
Une forme, un bouton de commande
Avec l'éditeur de menu, créer un menu avec une
seule entrée : "mnu_test"

Puis dans le bouton de commande:

Private Sub Command1_Click()
mnu_Test.Visible = Not mnu_Test.Visible
End Sub

le menu devient visible/chahé/visible/caché/etc.

Cordialement;

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Dr John
Le #15363151
Le 19/04/2008, Jean-marc a supposé :

Hello,

il y a un truc qui marche, pas très élégant et un peu
frustre, mais fonctionnel: il suffit de rendre invisible
tous les items de premier niveau du menu, et il devient
alors invisible.

Pour rendre invisible un menu (par exemple) "mnu_A"
mnu_A.visible = False

Pour tester c'est tout simple:
Une forme, un bouton de commande
Avec l'éditeur de menu, créer un menu avec une
seule entrée : "mnu_test"

Puis dans le bouton de commande:

Private Sub Command1_Click()
mnu_Test.Visible = Not mnu_Test.Visible
End Sub

le menu devient visible/chahé/visible/caché/etc.

Cordialement;




Pourtant dans l'assistant intitulé Créateur de menus il y a l'option
"visible". Pas besoin de rendre invisible les sous-menus.

Puis si le menu s'appelle test, un test.visible = false le cache
également.

Pour faire apparaitre un menu invisible il y a PopupMenu.


copie/colle
===========

Affiche un menu contextuel sur un objet MDIForm ou Form à l'emplacement
occupé par le pointeur de la souris ou aux coordonnées indiquées. Ne
gère pas lesarguments nommés.

Syntaxe

object.PopupMenu menuname, flags, x, y, boldcommand

La syntaxe de la méthode PopupMenu comprend les éléments suivants :

Élément Description
object Facultatif.Expression d'objet qui prend la valeur d'un objet
figurant dans la rubrique Application. Si l'élément object est omis, la
feuille qui a lefocus est considérée comme object.
menuname Nom du menu contextuel à afficher. Le menu indiqué doit
contenir au moins unsous-menu.
flags Facultatif. Valeur ou constante précisant l'emplacement et le
comportement d'un menu contextuel, comme indiqué dans la section
Valeurs.
x Facultatif. Indique la coordonnée x de l'endroit où le menu
contextuel est affiché. Si cet élément est omis, la coordonnée du
pointeur de la souris est utilisée.
y Facultatif. Indique la coordonnée y de l'endroit où le menu
contextuel est affiché. Si cet élément est omis, la coordonnée du
pointeur de la souris est utilisée.
Boldcommand Facultatif. Indique le nom d'un contrôle Menu dans le menu
contextuel pour permettre l'affichage de sa légende en gras. Si cet
élément est omis, aucun contrôle du menu contextuel n'apparaît en gras.


Valeurs

L'élément flags peut prendre les valeurs suivantes :

Constante (emplacement) Valeur Description
vbPopupMenuLeftAlign 0 (Valeur par défaut) Le côté gauche du menu
contextuel est situé au niveau du point x.
vbPopupMenuCenterAlign 4 Le menu contextuel est centré sur le point x.
vbPopupMenuRightAlign 8 Le côté droit du menu contextuel est situé au
niveau du point x.

Constante (comportement) Valeur Description
vbPopupMenuLeftButton 0 (Valeur par défaut) Un élément du menu
contextuel ne réagit qu'au clic du bouton gauche de la souris.
vbPopupMenuRightButton 2 Un élément du menu contextuel réagit aux clics
des boutons gauche ou droit de la souris.



-----------------------------------
epilot10
Le #15363121
Merci bien Jean-Marc,

>pas très élégant et un peu frustre, mais fonctionnel
Mais fallait tout de même y penser !

Salutations

Jacquelin H.

Jean-marc a écrit :
ePilot wrote:
Bonjour groupe,

est-ce possible de contrôler la barre de menu pour la rendre invisible
dans une form avec des api ou qqch d'autre en VB6

Google ne m'a rien donné de concret.



Hello,

il y a un truc qui marche, pas très élégant et un peu
frustre, mais fonctionnel: il suffit de rendre invisible
tous les items de premier niveau du menu, et il devient
alors invisible.

Pour rendre invisible un menu (par exemple) "mnu_A"
mnu_A.visible = False

Pour tester c'est tout simple:
Une forme, un bouton de commande
Avec l'éditeur de menu, créer un menu avec une
seule entrée : "mnu_test"

Puis dans le bouton de commande:

Private Sub Command1_Click()
mnu_Test.Visible = Not mnu_Test.Visible
End Sub

le menu devient visible/chahé/visible/caché/etc.

Cordialement;



Jean-marc
Le #15363111
epilot10 wrote:
Merci bien Jean-Marc,

pas très élégant et un peu frustre, mais fonctionnel


Mais fallait tout de même y penser !

Salutations
Jacquelin H.



Merci du retour!

Cordialement;

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Publicité
Poster une réponse
Anonyme