Página 1 de 1
Fechar forrmulario Automaticamente
Enviado: Dom Fev 21, 2016 12:45 pm
por vilmarmoc
Olá!
Será que conseguem me ajudar?
Como fechar automaticamente um formulario apos segundos, independente da ação do usuário?
Preciso de um codigo para esta ação automática;
Muito Obrigado;
Re: Fechar forrmulario Automaticamente
Enviado: Ter Fev 23, 2016 9:08 am
por Rafael Monteiro
Bom dia Vilmarmoc,
Coloque esse código no formulário:
Código: Selecionar todos
Private Sub UserForm_Initialize()
Application.OnTime Now + TimeValue("00:00:05"), "Fechar"
End Sub
E coloque em um módulo esse código:
Re: Fechar forrmulario Automaticamente
Enviado: Ter Fev 23, 2016 12:08 pm
por vilmarmoc
Obrigado,
Rafael Monteiro;
o seu código funcionou perfeitamente.
identifiquei que o motivo de não funcionar na minha planilha é pelo motivo que estou tentando aplicar este codigo em um webbrowser e não em um formulario;
segue o código abaixo;
Private Sub anterior_Click()
End Sub
Private Sub endereço_Change()
End Sub
Private Sub ir_Click()
WebBrowser.Navigate endereço.Value
End Sub
Private Sub proximo_Click()
WebBrowser.GoForward
UserForm_Initialize
End Sub
Private Sub TextBox1_Change()
TextBox1 = WebBrowser.FullScreen
End Sub
Private Sub LOGIN_Click()
Unload Me
Log_in.Show
End Sub
Private Sub UserForm_Initialize()
WebBrowser.Navigate endereço.Value
endereço = WebBrowser.LocationURL
WebBrowser.SetFocus
End Sub
Private Sub WebBrowser_StatusTextChange(ByVal Text As String)
endereço = WebBrowser.LocationURL
End Sub
será que você consegue aplicar este código de maneira que este browser feche em 05 segundos apos aberto?
tentei mas não consegui aplicar.
desde já agradeço
Re: Fechar forrmulario Automaticamente
Enviado: Ter Fev 23, 2016 4:04 pm
por Rafael Monteiro
Não sei se entendi. mas acredito que você quer que o formulario fique aberto e feche somente o Webbrowser.
Então seria assim.
Código: Selecionar todos
Sub Fechar()
Userform1.Webbrowser1.visible = False
End Sub
Re: Fechar forrmulario Automaticamente
Enviado: Dom Jun 02, 2019 11:29 am
por Simoa
Rafael Monteiro escreveu: ↑Ter Fev 23, 2016 9:08 am
Bom dia Vilmarmoc,
Coloque esse código no formulário:
Código: Selecionar todos
Private Sub UserForm_Initialize()
Application.OnTime Now + TimeValue("00:00:05"), "Fechar"
End Sub
E coloque em um módulo esse código:
Ficou assim
No Form
Private Sub UserForm_Initialize()
Application.Visible = False
Application.OnTime Now + TimeValue("00:0:30"), "Fechar"
Dim hWnd As Long
'Vai para o topo do formulário
ScrollTop = 0
'Define os botões minimizar e maximizar do form
hWnd = FindWindow(vbNullString, Login.Caption)
SetWindowLong hWnd, -16, &H20000 Or &H10000 Or &H84C80080
End Sub
No módulo (Coloquei no final após as linhas de comandos existentes )
Sub Fechar()
Unload UserForm1
End Sub
Nada aconteceu.
Na vdd aparece erro já nos primeiros segundo que a form é aberta
Podem ajudar?
valeu