Ejemplos usando el Api de windows para Visual basic

213 - Deshabilitar el botón de maximizar de una ventana

Ejemplo para poder activar y desactivar el botón de maximizar de una ventana en windows

El ejemplo usa las funciones del api GetWindowLong y SetWindowLong para obtener y modificar el estilo de la ventana indicada, y también SetwindowPos para que una ves aplicado y modificado el estilo, se vuelva a posicionar la ventana, haciendo como un Refresh para poder visualizar el cambio

vista del formulario con el boton de maximizar desactivado

A la función pasarle el Hwnd de la ventana , y el último parámetro de tipo Boolean, indica si se habilita o se desactiva dicho botón

Código fuente en el formulario con dos Option button

Option Explicit ' botón que habilita Private Sub Option1_Click() Maximizar Me.hwnd, WS_MAXIMIZEBOX End Sub ' botón que deshabilita Private Sub Option2_Click() Maximizar Me.hwnd, WS_MAXIMIZEBOX, False End Sub Private Sub Form_Load() Option1.Caption = "Habilitar botón maximizar " Option2.Caption = "Deshabilitar botón maximizar " End Sub

Código fuente en un módulo bas

Option Explicit ' DEclaraciones de funciones de api ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' verifica si una ventana de windows está visible Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long ' para los estilos Private Declare Function GetWindowLong Lib "user32" _ Alias "GetWindowLongA" _ (ByVal hwnd As Long, _ ByVal nIndex As Long) _ As Long Private Declare Function SetWindowLong Lib "user32" _ Alias "SetWindowLongA" _ (ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) _ As Long ' para redibujar y refrescar la ventana Private Declare Function SetWindowPos Lib "user32" _ (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal cx As Long, _ ByVal cy As Long, _ ByVal wFlags As Long) _ As Long ' constante ( Flag ) para el botón de maximizar Public Const WS_MAXIMIZEBOX = &H10000 ' constante para la función api GetWindowLong Private Const GWL_STYLE = (-16) ' constantes para la función api SetWindowPos Private Const SWP_FRAMECHANGED = &H20 Private Const SWP_NOSIZE = &H1 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOACTIVATE = &H10 Const FLAG As Long = SWP_NOACTIVATE Or SWP_FRAMECHANGED _ Or SWP_NOSIZE Or SWP_NOMOVE ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Función que cambia el estilo Ade la ventana, en este caso _ deshabilita y habilita el botón de maximizar ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Sub Maximizar(ByVal Hwnd_Ventana As Long, _ ByVal Flags As Long, _ Optional ByVal Accion As Boolean = True) Dim ret As Long ' Obtiene el estilo actual ret = GetWindowLong(Hwnd_Ventana, GWL_STYLE) ' asigna los flags al estilo actual dependiendo de la acción If Accion Then ret = ret Or Flags Else ret = ret And Not Flags End If ' aplica el nuevo estilo SetWindowLong Hwnd_Ventana, GWL_STYLE, ret ' si la ventana está visible ... If IsWindowVisible(Hwnd_Ventana) Then ' Es necesario ya que si no solo se verá el camio si se repinta la ventana SetWindowPos Hwnd_Ventana, 0, 0, 0, 0, 0, FLAG End If End Sub

Nota: si se desea deshabilitar en tiempo de ejecución el botón de Minimizar del formulario o una ventana de windows , utilizar en ves de la constante WS_MAXIMIZEBOX, esta otra : WS_MINIMIZEBOX

La declaración de la constante sería la siguiente :

Public Const WS_MINIMIZEBOX As Long = &H20000

también si queremos eliminar los dos botones , podemos unir las dos constantes con el operador Or, por ejemplo en el código fuente anterior seria :

Para habilitar

Maximizar Me.hwnd, WS_MINIMIZEBOX Or WS_MAXIMIZEBOX

Para deshabilitar:

Maximizar Me.hwnd, WS_MINIMIZEBOX Or WS_MAXIMIZEBOX, False

Enlaces relacionados

Deshabilitar botón cerrar

Buscar en Recursos vb