Forum ViSiBLe

Bem Vindo
Se registrares neste fórum, podes fazer parte da nossa comunidade.Prezamos aqui pela participação ACTIVA de cada membro.


Atençao: Nao precisa Confirma a sua conta no hotmail (Basta Registrar e Começar a participar do forum.)

WWW.FORUMVISIBLE.COM

Temos vagas na STAFF !! Clique Aqui!

[VB6]Criando um sistema de busca

Compartilhe
avatar
MrViSiBLe
Administrador
Administrador

Número de Mensagens : 3778
Idade : 24
Localização : Cuiaba
Agradecimentos Agradecimentos : 864
Data de inscrição : 10/12/2008

[VB6]Criando um sistema de busca

Mensagem por MrViSiBLe em 7/20/2010, 21:41

~ Requerimentos ~

- Visual Basic 6
- Componente "Microsoft Internet Controls"
- 2 forms
- 1 textbox
- 1 commandbutton

~ Tutorial ~

- Inicie um novo projeto como Standard EXE.
- Adicione a textbox e o commandbutton no form1
- Adicione o código a seguir no commandbutton.

Código:

If Text1.Text = "" Then
MsgBox "Escreva o assunto da pesquisa"
Else
Form2.WebBrowser1.Navigate "http://www.google.com.br/search?hl=pt-BR&q=" & Text1.Text
Form2.Visible = True
Me.Hide
End If

- Adicione o componente "Microsoft Internet Controls" no form2
- Aperte F5 para rodar seu aplicativo e veja como ficou.

    Data/hora atual: 9/23/2017, 01:43