Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Fechar forrmulario Automaticamente
Fechar forrmulario Automaticamente
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;
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;
- Rafael Monteiro
- Consultor
- Mensagens: 277
- Registrado em: Seg Nov 28, 2011 8:27 am
- Localização: Sorocaba - SP
- Contato:
Re: Fechar forrmulario Automaticamente
Bom dia Vilmarmoc,
Coloque esse código no formulário:
E coloque em um módulo esse código:
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
Código: Selecionar todos
Sub Fechar()
Unload UserForm1
End Sub
Re: Fechar forrmulario Automaticamente
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
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
- Rafael Monteiro
- Consultor
- Mensagens: 277
- Registrado em: Seg Nov 28, 2011 8:27 am
- Localização: Sorocaba - SP
- Contato:
Re: Fechar forrmulario Automaticamente
Não sei se entendi. mas acredito que você quer que o formulario fique aberto e feche somente o Webbrowser.
Então seria assim.
Então seria assim.
Código: Selecionar todos
Sub Fechar()
Userform1.Webbrowser1.visible = False
End Sub
Re: Fechar forrmulario Automaticamente
Rafael Monteiro escreveu: ↑Ter Fev 23, 2016 9:08 am Bom dia Vilmarmoc,
Coloque esse código no formulário:E coloque em um módulo esse código:Código: Selecionar todos
Private Sub UserForm_Initialize() Application.OnTime Now + TimeValue("00:00:05"), "Fechar" End Sub
Código: Selecionar todos
Sub Fechar() Unload UserForm1 End Sub
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