Trucos Abrir la aplicación asociada a un documento

Declarar en un formulario :

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

Y para, por ejemplo, arrancar el navegador por defecto y visualizar la página que queramos :

Dim res As Long
res = ShellExecute(Form1.hwnd, "open", "http://www.arrakis.es/~jrubi/index.html", "", "", 1)

Los valores de nShowCmd indican el estado de la ventana : normal, minimizado o maximizado (1, 2 ó 3, respectivamente)

Esta función sirve para ejecutar cualquier tipo de archivo "registrado" en el sistema.



Trucos Trucos

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com