Olá usuário , seja muito bem vindo ao nosso fórum !

Se esta visitando nosso fórum e de alguma forma nós te ajudamos com algum tutorial, download, espero que colabore com a gente se registrado no fórum que não leva mais que 1 minuto.

Outras formas de colaborar com o nosso fórum:

-> Se logando apos o registro.
-> Entrando diariamente.
-> Postando novos conteúdos no fórum como tutoriais, downloads, piadas, memes, notícias, vídeos, etc..
-> Leia nossas regras e participe de nossas promoções.

Até mais , aguardo seu registro e sua colaboração com o fórum.

Você não está conectado. Conecte-se ou registre-se

[Tutorial]VB6 - Criando um navegador (WebBrowser)

Ir em baixo  Mensagem [Página 1 de 1]

!skipper

avatar
RBFounder

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

Ver perfil do usuário http://www.thunderzone.co.cc

Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum