Ejemplos usando el Api de windows para Visual basic
Volver al Listado Api - Anterior - Siguiente
La función GetSystemMenu lo que hace es poder acceder ( retorna un handle ) al menú de sistema de una ventana. DeleteMenu para eliminar un elemento del mismo.
El ejemplo además de lo dicho, permite hacer que el formulario no se pueda redimensionar ( cambiar de tamaño) ni tampoco mover.
La Sub Aplicar_Cambios, tiene como primer parámetro el Hwnd del formulario-ventana , luego tres valores boolean. El primero es para el command de cerrar, el segundo para impedir el Resize y el tercero para impedir mover la ventana
Nota: para restaurar la barra de menú se debe hacer lo siguiente:
Dim Hwnd_Menu As Long
Hwnd_Menu = GetSystemMenu(Me.hwnd, True)
Es decir pasar un valor True en el segundo parámetro de GetSystemMenu. Además, luego hay que llamar a otra función Api: DrawMenubar, pasandole el Hwnd de la ventana.
DrawMenuBar Me.hwnd
Esto último es necesario, ya que si no los cambios solo serán reflejados si se repinta la ventana.
Código fuente en un formulario
Buscar en Recursos vb
Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2009 - www.recursosvisualbasic.com.ar