Menus emergentes

[IP3]

Bueno, estoy un poco tenso ya que es mi primer tutorial, pero se apañarmelas

Bueno, este tutorial sirve para que salgan menus emergentes al dar click a algun comando (VB6) Bien, es muy simple.

Creamos un menu, yo le pondre de nombre "MnuEjemplo" y de submenu le pondremos otro de prueba, con el nombre que queremos, ya que este no lo usaremos.

Vamos al "Click" o "Mousedown"o el que queramos, del formulario (Puede ser MDI) y en el código insertamos

popupmenu

que quiere decir que al dar click se abrira un popup, luego nos pide el nombre del menu, en este caso seria "MnuEjemplo" Ahora si lo ejecutamos, obviamente saltara el menu al dar un click.

Pero si aun queremos especificar más donde queremos que se posicione, le hemos de insertar las coordenadas, para ello usaremos las coordenadas X, Y obviamente. De coordenada, ponemos el numero que nos apetezca, yo por ejemplo pondre 0, luego hemos de especificar la W y la Y, de W yo usare este "FrmMain.ScaleWidth", tambien podemos y usar un número y de Y pondre por ejemplo "FrmMain.ScaleHeight", en el tambien podemos especificar un número, esto nos quedaria al extremo derecho y abajo del formulario, pero si queremos que se nos quede justo a la mitad, lo dividimos por 2

Ejemplo

PopupMenu MnuEjemplo, 0, FrmMain.ScaleWidth, MnuEjemplo.ScaleHeight

Esto es todo para hacer saltar tu menu emergente

[PepiX]

yo preferiria usar el comando en el suceso MouseUp..
la diferencia esta en que si dejas pulsado el click y desplazas el puntero a otra direccion levanta el popup recien al soltar el click..
con el MouseDown te despliega de inmediato.
en sintesis depende de la funcion que cumplirá

[WarGhost]

si lo mejor es ponerlo en MouseUp es lo q yo ago

[CeLaYa]

yo me he encotrado que no siempre funciona lo del popupMenu y después de mucho investigar encontre que es un bug de visual para que funcione bien habría que poner:


MnuEjemplo.visible = false
MnuEjemplo.visible = true
PopupMenu MnuEjemplo, 0, FrmMain.ScaleWidth, MnuEjemplo.ScaleHeight