Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Boão Maximizar e Minimizar VBA [RESOLVIDO].
Boão Maximizar e Minimizar VBA [RESOLVIDO].
Muito obrigado a todos os que me ajudaram a resolver este problema.
Editado pela última vez por lunatico em Sáb Fev 21, 2015 9:27 am, em um total de 1 vez.
- Rafael Monteiro
- Consultor
- Mensagens: 277
- Registrado em: Seg Nov 28, 2011 8:27 am
- Localização: Sorocaba - SP
- Contato:
Re: Boão Maximizar e Minimizar VBA
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
-
- Colaborador
- Mensagens: 98
- Registrado em: Qui Nov 01, 2012 2:37 pm
Re: Boão Maximizar e Minimizar VBA
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,
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,