[Tutorial]VB6 - Criando um navegador (WebBrowser)

Ter maio 29, 2012 2:18 pm

Keep

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:

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) !!

Créditos: VB6

[Tutorial]VB6 - Criando um navegador (WebBrowser)

#1 [Tutorial]VB6 - Criando um navegador (WebBrowser) Ter maio 29, 2012 2:18 pm