Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

PopupMenu et fenetre modale - VB

2 réponses
Avatar
thierry
Contexte du pb :
creer un projet VB
ajouter 1 control:=20
- y placer une zone de texte par exemple
- y cr=E9er un menu (mnufichier) et sous menu (nouveau)
Ajouter 2 formes contenant le controle que l'on a cr=E9er

Code du UserControl
Option Explicit

Private Sub mnuNouveau_Click()
Form2.Show vbModal
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As=20
Integer, X As Single, Y As Single)
PopupMenu mnufichier, , Text1.Left + X, Text1.Top + Y
End Sub


Conclusion : si l'appel de la fenetre 2 est modale alors=20
le popup menu issu de cette fenetre ne marche plus !!

2 réponses

Avatar
Jérôme VERITE
Bonsoir,

j'ai déjà eu ce problème. La solution que j'ai adopté consiste uniquement à
initialiser une variable lors du clique sur le menu et de la lire après le
popup

popupmenu MENU
select case MenuContextuel
case 1
Form2.Show vbModal
case 2
Form3.Show vbModal
...
end select

Private Sub mnuNouveau_Click()
MenuContextuel = 1
End Sub

Private Sub mnuNouveau2_Click()
MenuContextuel = 2
End Sub


En espérant avoir répondu à ta question.

Jérôme

"thierry" a écrit dans le message de news:
067601c33fe1$00ff7900$
Contexte du pb :
creer un projet VB
ajouter 1 control:
- y placer une zone de texte par exemple
- y créer un menu (mnufichier) et sous menu (nouveau)
Ajouter 2 formes contenant le controle que l'on a créer

Code du UserControl
Option Explicit

Private Sub mnuNouveau_Click()
Form2.Show vbModal
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
PopupMenu mnufichier, , Text1.Left + X, Text1.Top + Y
End Sub


Conclusion : si l'appel de la fenetre 2 est modale alors
le popup menu issu de cette fenetre ne marche plus !!
Avatar
Thierry
Merci pour ta réponse MAIS ... elle ne marche pas à mon pb
(ou je suis trop bête pour la faire fonctionner !) Note je
ne suis pas certain d'avoir placer les éléments
correctement (Controle ou fenetre ?)

En fait mon soucis est de pouvoir "ouvrir" 2 popup menu à
la suite contenu dans 2 fenetres modales distinctes !!!

Le Menu est contenu dans un controle qui est placé dans
les 2 fenetres. => la méthode "popupMenu" est donc
contenue dans le controle (UserControl) et non dans les
fenetre modale.

Le premier popupMenu fonctionne normalement et attend un
évènement dans la fenetre alors que le second n'attend
rien et continue les instructions suivantes sans avoir
attendu un évènement dans cette nouvelle fenetre
Ton pb recouvrait-il le mien ?

Merci tout de même de m'avoir consacrer un peu de ton
temps, et espère une réponse de ta part.

Thierry