Como puedo abrir iexpolorer desde vb

[woodstock773]

Hola: La verdad es que soy novato en esto de vb y estoy haciendo un programa para la escuela y quiero abrir iexplorer desde un boton de la barra de herramientas que he creado, vagando en al net he encontrado algunos codigos de como hacerlo pero como no se mucho lo pego tal cual esta el ejemplo pero me marca un error en la primera parte del codigo en donde hay una funcion que es ---Private declare function shell execute lib "shell32.dl"...... me dice que los comentarios no pueden ir despues del end sub

La verdad que no entiendo nada, les agradeceria si alguien pudiera ayudarme o explicarme como es

Muchas gracias

[Insomnia]

Hola

Puedes abrir una página web utilizando la API de Windows ShellExecute, para ello agrega un modulo a tu aplicación desde Proyecto / Agregar Módulo, haces doble clic en el módulo y copias lo siguiente tal y como lo pongo:

Código:

Public 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

Luego en el botón desde el que quieres abrir la página, llamas a la función anterior de la siguiente forma:

Código:

Resul = ShellExecute(Me.hwnd, "Open", "http://www.google.es", "", "", 1)

Con esto abres la página de google con el explorador por defecto que tenga cada usuario, es decir, si el usuario tiene instalado el ie abrirá google con el ie, pero si tiene instalado Firefox lo abrirá con el Firefox.

--Saludos--

[woodstock773]

Valla asi de facil era y yo quebrendome la cabeza jaja muchisimas gracias Insomnia de verdad que me ha servido

Nuevamente Gracias!!

[obedabdias]

gracias brother me sirvio, se que tiene mas de dos años pero muchas gracias jejeje

[viento045]

pero eso no funciona ps en visual studio 2008, sale errores en estas variables:
Resul = ShellExecute(Me.hwnd, "Open", "http://www.miflowlatino.tk", "", "", 1)
en donde dice Resul y me.hwnd hay sale error, variable no declarada...pero si esta llamando al modulo..porque sale error de variable no declara..no entiendo..ayudenme amigos por favor.

[pkj]

Tienes que declarar la variable Resul antes de poder usarla.
Incluye esto delante del Resut = .....
Dim Resul As Long

El hWnd en VB 2008 creo que se llama Handle.
Cambia Me.hWnd por Me.Handle

Suerte

[pkj]

Pues no funciona, no.

El hwnd es Handle como yo decía, solo que quizá sea necesario añadir .ToInt32

Resul = ShellExecute(Me.Handle.ToInt32, "Open", "http://www.google.es", "", "", 1)

El caso es que con SendMessage si me funciona, pero con ShellExecute estoy probando y no consigo que haga nada.

Espera que te muevan el mensaje a la sección .NET y quizá ahí te lo sepan solucionar. Esta sección es de VB clásico.

Saludos.

[pkj]

Solucionado. Hay que cambiar la declaración de ShellExecute por:

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


Y para usarla
Dim Resul As Integer
Resul = ShellExecute(Me.Handle.ToInt32, "Open", "http://www.google.es", "", "", 1)

Saludos