Boão Maximizar e Minimizar VBA [RESOLVIDO].

[lunatico]

Muito obrigado a todos os que me ajudaram a resolver este problema.

[Rafael Monteiro]

Insira esse código no userform.

Código: Selecionar todos

Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
       (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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
Private Declare Function GetSystemMenu Lib "user32" _
       (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" _
       (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) _
        As Long

Private Const GWL_STYLE As Long = (-16)
Private Const WS_SYSMENU As Long = &H80000
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const SC_CLOSE As Long = &HF060

Private Sub CommandButton1_Click()

End Sub

Private Sub UserForm_Initialize()

  Dim lngFrmHndl As Long, lngStyle As Long
  lngFrmHndl = FindWindow(vbNullString, Me.Caption)
  lngStyle = GetWindowLong(lngFrmHndl, GWL_STYLE)
  lngStyle = lngStyle Or WS_SYSMENU Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
  SetWindowLong lngFrmHndl, GWL_STYLE, lngStyle
  DrawMenuBar lngFrmHndl

End Sub

[Marciel Silva]

lunatico,

Você abriu dois tópicos iguais. Neles você já obteve 3 ajudas e não deu nenhum feedback.

Posta o seu exemplo aqui que fica mais fácil lhe ajudar!

Att,

[lunatico]

[RESOLVIDO]