Como abrir una pagina web desde vb6 PREGUNTA!!!

[jimc569]

Hola comunidad, he estado buscando informacion de como puedo abrir una pagina web desde visual, pero cuando le doy en buscar y coloco mi palabra y le doy en ir, este no me devuelve ningun resultado. Pero bueno aca va mi prengunta:

¿Como le puedo hacer para abrir una pagina web especifica mediante codigo vb6?

Alguien que me pueda pasar un ejemplo o algo por el estilo, se lo agradeceria mucho. De antemano gracias por la posibles respuestas.

SALU2 Jim

[black_devil]

Mira yo tengo un código ej. para abrir una página web, como a modo ej. la página del autor de tu sistema

en un form, tenemos un label (lbllink)

declaramos esto en el form, en declaraciones...

Código:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

en el evento click del label anotamos esto

Código:

Private Sub lbllink_Click()
Dim X
X = ShellExecute(Me.hwnd, "Open", "http://www.mipagina.cl", &O0, &O0, SW_NORMAL) 
'donde mipagina.cl colocas la url que quieras
End Sub

en el evento Form_MouseMove del form colocamos

Código:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbllink.ForeColor = vbBlue
'el label cambiara a color de azul cuando nos movamos en el form
End Sub

en el evento lbllink_MouseMove del label colocamos ...

Código:

Private Sub lbllink_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbllink.ForeColor = vbRed
'cuando pasemos el mouse por el link cambiará a rojo
End Sub

Espero te sirva, ya que funciona!!, lo tengo en un aplicación mía...

MYM CHILE

[jimc569]

Oye muchas gracias por la ayuda, si me funciono el codigo que me diste, MUCHAS GRACIAS.

SALU2

[black_devil]

para eso estamos, de nada....

SALUDOS

MYM CHILE