[VB6] creer un menu contextuel

Version imprimable

29/05/2006, 15h56
ennamsaoui

[VB6] creer un menu contextuel

Bonjour
voila, j'aimerai créer un menu contextuel.
est ce que qqun peu me donner un lien pour un FAQ ou un tutoriel.
merci
:oops:
29/05/2006, 16h06
linda15975

As-tu essayé ton ami GOOGLE? Il peut te trouver beaucoup de codes sources pour ce genre de problème;)
29/05/2006, 16h23
Theocourant

Salut,

Si tu fais une recherche sur le forum, tu verras qu'il y a plus messages concernant ce sujet.

Merci de regarder un peu par toi-même

Théo
29/05/2006, 16h39
ennamsaoui

bonjour
avt je poster mon message, j'ai bien sur regarder usr goole et sur le forum
justement pour eviter des messages comme les votres.
mais merci comme meme!!;)
29/05/2006, 16h43
linda15975

Vu ta façon de poser la question, on ne pouvait pas savoir que tu avais fait des recherches!!
Mais du coup, je me demande quel est ton problème? Le forum et Google sont de très bonnes sources. Que cherches-tu de plus?

Je viens juste de faire une recherche dans l'index de l'aide (cd msdn) de VB6 et j'ai trouvé cet exemple
Code:

1 2 3 4 5 6 7 8 Private Sub Form_MouseUp(Button As Integer, Shift As _ Integer, X As Single, Y As Single) If Button = 2 Then ' Check if right mouse button ' was clicked. PopupMenu mnuFile ' Display the File menu as a ' pop-up menu. End If End Sub
S'il s'agit d'un menu qui n'est normalement pas affiché sur l'interface, t'as qu'à mettre sa propriété Visible à false.

J'ai testé et ça marche impec.

29/05/2006, 16h55
Catbull

Citation:

Envoyé par ennamsaoui

bonjour
avt je poster mon message, j'ai bien sur regarder usr goole et sur le forum
justement pour eviter des messages comme les votres.
mais merci comme meme!!;)

Hum!

Une recherche sur le forum abouti à plusieurs sujets ayant dans leur titre les mots menu et contextuel. Donc soit tu nous racontes des cracks, soit tu ne sais pas chercher...

http://www.developpez.net/forums/sho...enu+contextuel

http://www.developpez.net/forums/sho...enu+contextuel
29/05/2006, 17h12
ennamsaoui

Re-Bonjour a tous
c exactement ce que j'ai trouver lors de ma recherche sur le forum.
ceci dit, mon probleme c que avt d'avoir a aficher un menu contextuel, je n'arrive pas à le créer, càd, est ce que je doit le faire comme un menu normal et il y une manipe a faire pour le transformer en menu contextuel!!!
et vu que j'ai un VB en anglais, c rajoute des soucis:D
voila
merci a tous
29/05/2006, 17h18
zazaraignée

Bon alors, faut chercher pour la création de menus.

Comme je te l'ai dit, il s'agit d'un menu tout normal avec ses options de menu et tu mets ton menu invisible.

Pour créer ton menu, regarde dans Outils, Menu.

c j'ai fait
j'ai utiliser un menu que j'avais deja
et j'ai utiliser ton code
mais j'ai une ereur : Object required

Code:

1
2
3
4
5
6
7
8
 
Private Sub Form_MouseUp(Button As Integer, Shift As _
   Integer, X As Single, Y As Single)
   If Button = 2 Then   ' Check if right mouse button
                        ' was clicked.
      PopupMenu Edition   ' Edition c mon menu 
   End If
End Sub

voila
merci

29/05/2006, 17h24
Catbull

As-tu créé un menu qui s'appelle édition? Si la réponse est non, tu dois le faire via l'éditeur de menu (clique droit sur ta form pour afficher le menu contectuel de VB et ouvrir l'éditeur de menu ;))
29/05/2006, 17h25
zazaraignée

Et y'a quoi dans ton menu Edition?

J'y pense, Edition c'est le Caption du menu, tu dois l'appeler par sa propriété Name.
29/05/2006, 17h28
ennamsaoui

oui c le non que j'utilise ;)
et il contient : smenu_FichierWord
et
29/05/2006, 17h29
ennamsaoui

oui c le non que j'utilise ;)
et il contient : smenu_FichierWord
et : smenu_FichierXML
voila
29/05/2006, 17h30
zazaraignée

Et smenu_FichierWord doit être Visible. Sinon, ça marchera pas.
29/05/2006, 17h32
ennamsaoui

le menu Edition est invisible
et les sous menus smenu_FichierWord et smenu_FichierXML sont visible
merci les gas
vraiment
29/05/2006, 17h38
ennamsaoui

ourrahh:D
j'ai compri ou est porbleme
en fait j'essaier d'appler mon menu principale depuis une autre fenetre
alors qu'il faut pour chaque fentre un menu qui lui est propre:oops:

merci a vous tous
et tres bonne continuation
a charge de revanche;)

Pas forcément:

Code:

1
2
3
4
5
6
7
8
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
    X As Single, Y As Single)
    If Button = 2 Then   ' Check if right mouse button
                        ' was clicked.
      PopupMenu Form1.Edition   ' Display the File menu as a
                        ' pop-up menu.
   End If
End Sub

30/05/2006, 09h28
ennamsaoui

Merci encore
c me facilite les chose cette precision.
au plaisir de vous aidez a mon tour ;)