Ejemplos usando el Api de windows para Visual basic

148 - DeleteMenu para deshabilitar el botón de cerrar en un form y otras opciones

Volver al Listado Api - Anterior - Siguiente



 

 

 

Ejemplo que usa el api DeleteMenu y GetSystemMenu para desactivar el command de cerrar de una ventana.

 

vista previa del formulario con el botón de cerrar deshabilitado

 

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

 


Recursos vb - Enlaces relacionados

 



Buscar en Recursos vb