Link Para Web Site Em Vb

[Antonio A L Pereira]

Gostaria de saber como faço para, em um formulário vb, abrir o browser e acessar determinada página em um site.

Obrigado,

Antonio A L Pereira

tony@technosoftsp.com

[Antonio A L Pereira]

Será que ninguém conhece alguma ocx que faça isso ???

[Denis Bittencourt Muniz]

Bom cara... Vou tentar te ajudar, mas o código que vou te passar só serve se o usuário tiver instalado o Internet Explorer

NoIE:
If Err Then
    MsgBox "Internet Explorer não encontrado ou versão antiga ou com algum problema!"
    Exit Sub
End If

On Error GoTo NoIE
Set x = CreateObject("Application.InternetExplorer")
x.Visible = True
x.Location "www.exemplo.com"

Explicando o código:

Com a palavra `Set` e com a função `CreateObject` crio um objeto que é o InternetExplorer, resumindo para facilitar: "x vale o objeto(programa) InternetExplorer`

A propriedade `Visible` faz o IE se abrir e a propridade `Location` faz o IE ir para o site escolhido...

Note também que eu incluí um tratamento de erro, caso o usuário não tenha o IE ou aconteça outro problema!

Espero que eu tenha te ajudado! Qualquer dúvida post!

[Antonio A L Pereira]

Legal Denis,

É exatamente isso q preciso, porém na execução ocorreu o erro:

429 - Activex component can't create object

Seria necessária alguma referência ou componente?

[Decio]

Fiz uma pesquisa aqui no fórum e encontrei estes dois tópicos que podem te ajudar:

http://scriptbrasil.com.br/forum/index.php...0002&hl=browser

http://scriptbrasil.com.br/forum/index.php...4315&hl=browser

[Denis Bittencourt Muniz]

Estranho... pois eu já inclui um tratamento de erro, caso desse algum erro...

Faz o seguinte: Copie o código do jeito que eu postei e cole no evento Click de algum botão de algum formulário do seu projeto.

Poste ai depois pra ve se deu certo o q te eu falei!

[Graymalkin]

É "InternetExplorer.Application" e não "Application.InternetExplorer".

Abraços,

Graymalkin