• Lunes 18 de Noviembre de 2024, 06:51

Autor Tema:  Popupmenu  (Leído 1342 veces)

Jeremy

  • Miembro activo
  • **
  • Mensajes: 40
    • Ver Perfil
Popupmenu
« en: Lunes 7 de Junio de 2004, 13:26 »
0
Hola a tod@s. Por favor, necesito saber cómo crear un PopUpMenu para mi aplicación. De antemano, muchas gracias.
"Cuando quieres algo, todo el Universo conspira para que realices tu deseo..."

vradok

  • Miembro activo
  • **
  • Mensajes: 97
    • Ver Perfil
Re: Popupmenu
« Respuesta #1 en: Lunes 7 de Junio de 2004, 16:20 »
0
Hola Jeremy:
Yo lo hago asi: primero creo otro formulario con el menu que deseo. Despues en el formulario que quiera , en el evento que quiera escribo :

Código: Text
  1. PopupMenu [I]mimenu[/I]
  2.  


Saludos  :D
********************************************************
                  ladrones

Jose Arriagada

  • Miembro MUY activo
  • ***
  • Mensajes: 373
    • Ver Perfil
Re: Popupmenu
« Respuesta #2 en: Martes 8 de Junio de 2004, 15:39 »
0
Nada mejor que un codigo que se ejecute, y asi podras ver como funciona y adaptarlo a tus necesidades
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.

Jeremy

  • Miembro activo
  • **
  • Mensajes: 40
    • Ver Perfil
Re: Popupmenu
« Respuesta #3 en: Martes 8 de Junio de 2004, 17:50 »
0
Muchas gracias amig@s. He visto lo fácil que ha sido. Así también se aprende  :smartass:
"Cuando quieres algo, todo el Universo conspira para que realices tu deseo..."

Jeremy

  • Miembro activo
  • **
  • Mensajes: 40
    • Ver Perfil
Re: Popupmenu
« Respuesta #4 en: Martes 8 de Junio de 2004, 17:55 »
0
También se puede crear el menú con todas las opciones que queramos sobre el propio form y ya por último hay que establecer la opción Visible a False dentro de la ventana de opciones del propio Menu. Y para implementarlo un código como este:
Citar
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
    Me.PopupMenu mnuOp ' mnuOp tendrá todas las opciones del menú
End If
End Sub
"Cuando quieres algo, todo el Universo conspira para que realices tu deseo..."