ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Boão Maximizar e Minimizar VBA [RESOLVIDO].

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
lunatico
Colaborador
Colaborador
Mensagens: 12
Registrado em: Sáb Jan 31, 2015 8:10 am

Boão Maximizar e Minimizar VBA [RESOLVIDO].

Mensagem por lunatico » Qua Fev 04, 2015 7:30 am

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.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Rafael Monteiro
Consultor
Consultor
Mensagens: 277
Registrado em: Seg Nov 28, 2011 8:27 am
Localização: Sorocaba - SP
Contato:

Re: Boão Maximizar e Minimizar VBA

Mensagem por Rafael Monteiro » Sex Fev 06, 2015 8:56 am

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


Abs.

Rafael R Monteiro.

Marciel Silva
Colaborador
Colaborador
Mensagens: 98
Registrado em: Qui Nov 01, 2012 2:37 pm

Re: Boão Maximizar e Minimizar VBA

Mensagem por Marciel Silva » Sex Fev 06, 2015 2:52 pm

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,


Marciel Silva
Se suas dúvidas foram esclarecidas, marque o tópico como [RESOLVIDO].
E agradeça aqueles que voluntariamente pôde te auxiliar clicando no joinha.
m-m@r7.com

lunatico
Colaborador
Colaborador
Mensagens: 12
Registrado em: Sáb Jan 31, 2015 8:10 am

Re: Boão Maximizar e Minimizar VBA

Mensagem por lunatico » Seg Fev 09, 2015 2:13 pm

[RESOLVIDO]



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder