[VB6] Utiliser les PopUpMenu

Version imprimable

28/06/2006, 14h36
Lucas42

[VB6] Utiliser les PopUpMenu

Bonjour , j'aimerai savoir si vous avez des tutoriaux au sujet des PopUpMenu car j'ai créé un Menu dynamique , et j'aimerai maintenant , pouvoir associer des raccourcis à certains de mes menus , exemple :

Citation:

Fichier ' Nom du menu dans la barre en haut
>ouvrir ' sous menu1
>mise en page ' sous menu2
>enregistrer Ctrl+S ' sous menu3 ayant comme raccourci Ctrl+S

merci d'avance
amicalement lucas
28/06/2006, 14h50
avigeilpro

Que veut-tu dire par associer des raccourcis ?
28/06/2006, 14h51
Lucas42

et bien tu sais , dans par exemple WORD , qd tu clique sur Fichier , et bien a droite de " Enregistrer " tu as " Ctrl+S " et j'aimerai faire de même dans un PopUpMenu...........
28/06/2006, 15h23
avigeilpro

Un PopupMenu est un menu simple que tu affecte à un objet en temps que Popup. Créé ton menu avec ses raccourcis, et ton Popup sera le meme :roll:
28/06/2006, 15h27
Lucas42

J'ai REIN COMPRIS A CE QUE TU M'AS DIS ....
28/06/2006, 15h34
avigeilpro

Ok, je recommence :lol:

Tu as réussi à créer un PopupMenu en créant un menu simple (créateur de menu). En créant ton menu, tu peut lui associer un raccourci (Ctrl + ..). Ce raccourci existe toujours, meme si tu fait afficher ton menu en Popup.
28/06/2006, 15h35
Lucas42

oui bref , j'ai un autre soucis également avec PopUpMenu , en effet lorsque j'utiliser une FORM , aucun soucis en mode execution , mais lorsque j'utilise un UserControl , et bien en mode execution mon PopUpMenu n'apperait pas !!!!!!!!!!!!!!! pk ????????? 8O

merki
28/06/2006, 15h36
sovo

il y existe deux possibilite de faire ca:

1ere
En mode creation tu peux le faire juste par click (mais comme tu crees ton menu dynamiquement ...)

2eme
tu peux utiliser l'evenement "KeyDown" sur ton form pour que lorsque tu appui "Ctrl+S" alors il declanche la procedure associer a ton menu.
28/06/2006, 15h37
avigeilpro

Que veut-tu dire par "lorsque j'utilise un UserControl", ton menu est créé dans le usercontrol, ou tu essaye d'affecter un popup sur un usercontrol ?
28/06/2006, 15h43
Lucas42

d'aprés toi , c'est pas assez parlant ??
oui j'utilise un UserControl , ou bien encore un Contrôle ActiveX ....... et j'y affiche dessu un menu dynamique , ca marche lorsque l'importe mon .ocx dans InTouch ( logiciel de supervision ) mais dans VB6 mode execution , je vois pas mon popupmenu 8O 8O
28/06/2006, 15h52
avigeilpro

Du calme, t'agace pas comme ça! je cherche à comprendre, mais je vois pas du tout ce qui peut ce passer. Tu as bien vérifié en mode pas à pas que la ligne qui doit faire apparaitre le menu est bien éxécutée? Si oui, je peux pas t'aider plus:(

Désolé
28/06/2006, 16h54
ThierryAIM

et juste pour rire, on peut savoir ou tu l'as défini, ton menu, et ou tu l'appelles ?

J'ai bien une idée mais je veux te l'entendre dire :D

Pour info, l'affectation par le code de shortcuts a des menus n'est pas possible, à ma connaissance (mais je peux toujours apprendre)
28/06/2006, 18h17
sovo

Citation:

Envoyé par ThierryAIM

Pour info, l'affectation par le code de shortcuts a des menus n'est pas possible, à ma connaissance (mais je peux toujours apprendre)

oui affecter direcetement, a la propriete ShortCut, je croit pas. Mais en passant par les evenement du clavier (keydown,keypress etc...)je croit que ce soit possible.
28/06/2006, 18h50
ThierryAIM

Citation:

Envoyé par sovo

Mais en passant par les evenement du clavier (keydown,keypress etc...)je croit que ce soit possible.

j'ai pas dit le contraire, encore que ...
28/06/2006, 19h11
jmfmarques

Citation:

encore que ...

Encore que, bien évidemment...

L'événement Keypress de la Form intervient si le curseur est sur la Form ... et pas ailleurs.(sur un contrôle, par exemple).. sauf si l'on traite avec une API... et là... bonjour ... ou que l'on affecte la même instruction à tous les événements Keypress (donc de chaque contrôle)... et là .... rebonjour ...
29/06/2006, 00h21
avigeilpro

Où que l'on met la propriété KeyPreview a True : toute action sur une touche déclenche d'abord les evenements de la feuille avant ceux des controles :lol:

Pour repondre a ThierryAim , , j'ai mis tout mon code dans mon UserControl , donc j'ai crée 3 menu , car j'ai 3 niveau de menu ,
Code:

1 2 3 menu_niveau_1 = CreatePopupMenu() menu_niveau_2 = CreatePopupMenu() ..................
puis ensuite j'affecte les differents texte qui composeront le menu
Code:

1 2 AppendMenu menu_niveau_1, MF_STRING + MF_ENABLED, ((i + 1) * 100), texte_1 ..............................
puis ensuite je crée les liens entre les differents niveau de menu
Code:

1 2 ModifyMenu menu_niveau_1, i, MF_BYPOSITION + MF_POPUP, menu_niveau_2, texte_1 ................................
puis je detruit les menu autre ke le niveau 1
Code:

1 2 DestroyMenu menu_niveau_2 .................................
et pour finir j'affiche le menu à la position X,Y ..................
Code:

1 2 i = TrackPopupMenu(menu_niveau_1, TPM_RIGHTBUTTON + TPM_LEFTALIGN + TPM_NONOTIFY + TPM_RETURNCMD, p.X, p.Y, 0, GetForegroundWindow(), 0) MontrerMenu = i
ca te convient ou pas ??