Ejecutar archivo (Ayudenme)

[alejo0317]

Bueno amigos soy novato en esto del visual basic, quisiera saber como hago para abrir un archivo Pps desde un comman button
P.D: el archivo esta ubicado en "C:\Brillantschildren\Suma.pps

[seba123neo]

Código (vb) [Seleccionar] Expandir

Private Declare Function ShellExecute Lib "Shell32.Dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal pOperation As String, ByVal pFile As String, ByVal pParameters As String, ByVal pdirectory As String, ByVal nShowCmd As Long) As Long


Private Sub Command1_Click()
Dim X As Long
X = ShellExecute(Me.hWnd, "open", "C:\Brillantschildren\Suma.pps", vbNullString, vbNullString, 1)
End Sub

[Danielitow]

Bueno, la verdad es que yo tengo otra duda, he hecho mi primer programilla en vb, bueno, casi, porque me falta una parte, que es que quiero que al darle a un boton se me abra el navegador en una pagina web, y la verdad es que en ninguno de los manuales que he leido lo explican, asi que si fuerais tan amables de explicarmelo os estaria muy agradecido.
Gracias de antemano.
P.D: Mi navegador predeterminado es el opera.

[Karcrack]

Bueno, la verdad es que yo tengo otra duda, he hecho mi primer programilla en vb, bueno, casi, porque me falta una parte, que es que quiero que al darle a un boton se me abra el navegador en una pagina web, y la verdad es que en ninguno de los manuales que he leido lo explican, asi que si fuerais tan amables de explicarmelo os estaria muy agradecido.
Gracias de antemano.
P.D: Mi navegador predeterminado es el opera.

Para que se habra con el navegador predeterminado simplemente has de usar el api ShellExecute...

Código (vb) [Seleccionar] Expandir

Call ShellExecute(Me.hWnd, "open", "http://www.google.es/", vbNullString, vbNullString, 1)

[Danielitow]

Buenas, en primer lugar gracias por contestar 
En segundo lugar (y perdon por mi ignorancia) yo quiero que al pulsar un boton salga el navegador con una pagina determinada (por ejemplo google) con lo cual, si tenemos en cuenta el codigo anterior quedaria asi (segun lo he entendido):

Private Sub Command2_Click()
Call ShellExecute(Me.hWnd, "open", "http://www.google.es/", vbNullString, vbNullString, 1)
end sub

pero a mi no me funciona, me salta un error al compilar, seguro que entendi algo mal, porque la verdad es que aun no se mucho de eso de las APIS, si fueras tan amable de explicarmelo...
Gracias de antemano.

[Karcrack]

Has de declarar el API en la parte superior del codigo:

Código (vb) [Seleccionar] Expandir

Private Declare Function ShellExecute Lib "Shell32.Dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal pOperation As String, ByVal pFile As String, ByVal pParameters As String, ByVal pdirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command2_Click()
      Call ShellExecute(Me.hWnd, "open", "http://www.google.es/", vbNullString, vbNullString, 1)
end sub


[Danielitow]

JEJE , muchisimas gracias y perdon por las molestias, bueno, ya se que estoy haciendo demasiadas preguntas pero, ¿si quisiera ejecutar un programa normal (por ejemplo un juego) y no el navegador predeterminado tambien tendria que recurrir a alguna api o seria un comando simple?, ¿si es asi serias tan amable de explicarmelo?
Gracias de antemano. 

[Karcrack]

JEJE , muchisimas gracias y perdon por las molestias, bueno, ya se que estoy haciendo demasiadas preguntas pero, ¿si quisiera ejecutar un programa normal (por ejemplo un juego) y no el navegador predeterminado tambien tendria que recurrir a alguna api o seria un comando simple?, ¿si es asi serias tan amable de explicarmelo?
Gracias de antemano. 

Puedes hacerlo de varias formas, para ejecutar un ejecutable puedes usar el comando Shell() que es un comando propio de VB, por lo tanto no hay que declarar APIs, pero se puede usar el API ShellExecute, yo recomiendo usar el API .

Como usar el Shell?

Código (vb) [Seleccionar] Expandir

Shell "RUTAexe",[ModoEjecucion]

Lo de ModoEjecucion es como se cargara el fichero, si sera invisible (VbHide) o sera normal(VbNormalFocus) y mas cosas...

[Danielitow]

Muchisimas gracias, me has sido de gran ayuda 

[Karcrack]

Muchisimas gracias, me has sido de gran ayuda 

Para eso estamos

Saludos