POPUPRésolu

Question

salut a tous
Dans VB7 il ya une evenement dynamique sur chaque fenetre il ya(onclick....) ya aussi popoup
la probleme que dans VB8 ya pas cette evenement(popup) 
comment je peut faire pour obtenir la meme resultat que popup avec vb8
NB: je l'utilise cette evenement pour desactiver les sous menu automatiquement qand il sont pas utile !!
MERCI A TOUS

fellyis · Accepted Answer

je repond tout seul 
hé moi c encore plus simple que popup
c l'evenement toolstripmenuitem.dropdownopening

cs_Willi · Answer

Salut,
Pour faire un popup menu je fais de cette manière
L'exemple suivant fera apparaitre un menu lors d'un clic droit sur ta feulle.

Private
Sub Form1_MouseUp(
ByVal sender 
As
Object, 
ByVal e 
As System.Windows.Forms.MouseEventArgs) 
Handles
Me.MouseUp

   If e.Button = Windows.Forms.MouseButtons.Right 
Then
      Dim MyMenu 
As MenuItem() = 
New MenuItem() {
New MenuItem(
"Ouvrir", 
AddressOf Ouvrir_OnClick), _

      New MenuItem(
"Nouveau", 
AddressOf Nouveau_OnClick, Shortcut.CtrlN), 
New MenuItem(
"Sauver", 
AddressOf Sauver_OnClick, Shortcut.CtrlS)}

      Me.ContextMenu = 
New ContextMenu(MyMenu)

      Me.ContextMenu.Show(
Me, 
New Point(e.X, e.Y))

   End
If

End
Sub

Private
Sub Ouvrir_OnClick(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs)
   MessageBox.Show(
"Ouvrir")

End
Sub

Private
Sub Nouveau_OnClick(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs)
   MessageBox.Show(
"Nouveau")

End
Sub

Private
Sub Sauver_OnClick(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs)
   MessageBox.Show(
"Sauver")

End
Sub

POPUP

2 réponses

Votre réponse

Discussions similaires