Vb 6.0 Sólo Botón De Minimizar En Formulario

[LuZbA]

Iniciado por Avellaneda

Hola, buen día...

Prueba con algo así:

Código:

Option Explicit

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
    
Private Const WS_MAXIMIZEBOX = &H10000
Private Const GWL_STYLE = (-16)


Private Sub Form_Load()
    Dim lRet As Long
    lRet = GetWindowLong(Me.hWnd, GWL_STYLE)
    lRet = lRet And Not (WS_MAXIMIZEBOX)
    lRet = SetWindowLong(Me.hWnd, GWL_STYLE, lRet)
    DesactivarMenu Me
End Sub

Private Sub DesactivarMenu(frm As Form)
    ' Desactiva las opciones del menú del Form (esq.superior izq)
    Dim hSysmenu As Long
    hSysmenu = GetSystemMenu(frm.hWnd, 0)
    RemoveMenu hSysmenu, 6, &H400&
    RemoveMenu hSysmenu, 5, &H400&
    RemoveMenu hSysmenu, 4, &H400&
    RemoveMenu hSysmenu, 2, &H400&
    RemoveMenu hSysmenu, 1, &H400&
End Sub

hola Avellaneda gracias por responder...

ya lo probe pero aun asi el único boton de control que me quita es el de maximizar me sigue dejando el de cerrar el formulario,,, algo extra que le pueda agregar para que ya si no lo quita que lo inhabilite?...

puedo aventurarme en que posiblemente el unico que estas indicando a desactivar es el maximizar ?? mi razon es que el unico que veo es (Private Const WS_MAXIMIZEBOX = &H10000),,,, si fuera quitar el de cerrar como seria???.... ayudenme estoy muy desorientadita??? jeje... gracias

abrazos...