Pontos
Moedas
Posts
Like
Warning![[Tutorial]VB6 - Criando um navegador (WebBrowser) Left_bar_bleue](https://2img.net/i/fa/i/left_bar_bleue.jpg)
![[Tutorial]VB6 - Criando um navegador (WebBrowser) Right_bar_bleue](https://2img.net/i/fa/i/right_bar_bleue.jpg)
Primeiro, Adicione um componente chamado Microsoft Internet Controls, liberando então, o WebBrowser.
Aplique o Webbrowser no projeto.
Crie 2 ComboBoxs, um com nome de cbLink. E Outro com nome de: cbOutros
Crie 2 Botões, com o caption: Navegar. E Outro com: Ok
O Botão Navegar ao lado do cbLink, o botão Ok, ao lado do cbOutros.
Adicione isso ao botão Navegar:
CÓDIGO:
Nas propriedades do cbOutros, terá "list", adicione esses:
CÓDIGO:
E no text deixe nada ( " " )
no text no outro combo box, deixe nada tmb.
agora adicione isso ao botão Ok:
CÓDIGO:
Pronto! Agora você tem seu próprio Navegador (WebBrowser) !!
Aplique o Webbrowser no projeto.
Crie 2 ComboBoxs, um com nome de cbLink. E Outro com nome de: cbOutros
Crie 2 Botões, com o caption: Navegar. E Outro com: Ok
O Botão Navegar ao lado do cbLink, o botão Ok, ao lado do cbOutros.
Adicione isso ao botão Navegar:
CÓDIGO:
- Código:
Webbrowser1.navigate cblink.text
Nas propriedades do cbOutros, terá "list", adicione esses:
CÓDIGO:
- Código:
Voltar
Avançar
Atualizar
Home Page
E no text deixe nada ( " " )
no text no outro combo box, deixe nada tmb.
agora adicione isso ao botão Ok:
CÓDIGO:
- Código:
If cbOutros.Text = "Atualizar" Then
WebBrowser1.Refresh
ElseIf cbOutros.Text = "Home Page" Then
WebBrowser1.GoHome
ElseIf cbOutros.Text = "Voltar" Then
WebBrowser1.GoBack
ElseIf cbOutros.Text = "Avançar" Then
WebBrowser1.GoForward
End if
Pronto! Agora você tem seu próprio Navegador (WebBrowser) !!
