Ejemplos usando el Api de windows para Visual basic
<Volver> - Anterior - Siguiente
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 ).
Agregar este código en un form1
Código fuente en el módulo bas
Buscar en Recursos vb
Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2009 - www.recursosvisualbasic.com.ar