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 !!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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 !!
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" <tlosson@waid.fr> a écrit dans le message de news:
067601c33fe1$00ff7900$a001280a@phx.gbl...
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 !!
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 !!
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
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.
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.