Ejemplos usando el Api de windows para Visual basic

240 - Añadir SubMenu al menú de sistema

<Volver> - Anterior - Siguiente



 

 

Ejemplo para subclasificar una ventana en windows y poder añadir un Submenú al menú de sistema

 

Este ejemplo , usa las Api SetWindowLong y CallWindowProc para subclasificar un formulario, y con las Apis GetSystemMenu y AppendMenu, poder agregar un item o Submenú extra, por ejemplo una opción "Acerca de", "Ayuda" , "AlwaysOnTop" etc.. y como utilizan muchas aplicaciones.

En este ejemplo se usa para poner la ventana Always On Top, como muestra este gráfico

 

 

Form minimizado

 

Maximimizado o normal

 

Para poder añadir un item al menú de sistema, hay una función de ajuste llamada AgregarItem.

Esta función recibe dos parámetros:

 

Por ejemplo :

call AgregarItem (Me, "El texto del Nuevo Item" )

 

Una ves hecho esto, en el procedimiento que chequea los mensajes, hay un mensaje llamado WM_SYSCOMMAND. Dentro de este mensaje se coloca el código a realizar cuando se haga un clic en dicho menú. En este caso, se usa la función SetWindowPos para poder poner o quitar la ventana siempre visible por el resto de las demás ventanas en windows

Nota: Es recomendable no usar este procedimiento hasta que el programa esté completamente depurado y libre de errores, ya que cualquier fallo hará que el IDE se cierre en forma inesperada ( perdiendo el trabajo si previamente no lo guardamos ).

 

Ejemplo

Agregar este código en un form1

 

Código fuente en el módulo bas

 


Recursos Visual basic - Enlaces relacionados

 



Buscar en Recursos vb