Haciendo menús PopUp en Visual Basic 6.0

Hace mucho tiempo escribí como hacer menús usando Visual Basic 6.  Esto era para hacer un menú “normal” porque Visual Basic 6 no tiene la funcionalidad “nata” de un control que haga menús PopUp (también conocidos como menús de contexto o menús de “clic derecho”), a la diferencia de Visual Basic 2005 que tiene un control que te permite hacerlo de forma nativa (lo cual expliqué aquí).  En este post voy a explicar la forma de crear este tipo de menús en Visual Basic 6.

Para esto, hice un proyecto en blanco y abrí el editor de menús e hice un menú normalito (si tienes duda de como lo hice, revisa este post donde lo explico).  Así se ve el editor de menús cuando termino:

Nota: todos los “name” son el mismo nombre que aparece con las anteponiendo las letras “mnu”  (mnuArchivo, mnuSalir, mnuAyuda y mnuAcercaDe).

Ahora mi ventana se ve de la siguiente manera:

Ahora voy a escribir código en el evento Form_MouseDown para ver si presionó el botón derecho sobre la ventana.  En caso que esto suceda, voy a mostrar el menú de ayuda (o sea, todo lo que está debajo de mnuAyuda) para que aparezca la opción “Acerca de…”.  Este es el código:

En el IF reviso si el botón presionado fue el derecho (esto se hace con una operación de bits con el número 2: si está prendido este bit del parámetro Button, que ya viene por default, quiere decir que el usuario en efecto presionó el botón derecho).  Si esto sucede, llamo la función Me.PopupMenu que muestra los submenus del menú indicado (en mi caso, mnuAyuda).  ¡Y listo!  Al ejecutar el programa, se ve así:

¡Y listo!  Espero que te sea de utilidad.  ¡Hasta la próxima!