Crear link a un archivo pdf desde VB6

[ajojara]

¿Cómo se crea un enlace a un archivo pdf desde una aplicación visual basic? Es sólo para mostrar el archivo cuando pinchen en el menú 'Ayuda' por ejemplo
Muchas Gracias

[kalijunfan]

Ok, lo que podés hacer es usar el API de Windows llamando a la función ShellExecute, para hacerlo tenés que incluir en las declaraciones generales de tu código lo siguiente:

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 en un label, botón o lo que quieras ponés en el click:

Call ShellExecute(0&, vbNullString, "C:\RutaAlPdf\Archivo.pdf", vbNullString, vbNullString, vbNormalFocus)

Evidentemente el usuario TIENE que tener el Acrobat Reader o algún programa que le permita leer archivos pdf, sino esto no va a funcionar. Antes de llamar a la función tendrías que verificar que el usuario tenga el Acrobat instalado, lo cual no es muy complicado de verificar.

Eso debería ser suficiente para que puedas abrir cualquier archivo pdf. Probalo y después me contás que tal te resultó.

[ajojara]

Muchas gracias, me fue perfecto. Averigüé también que la función te devuelve el valor 31 si no tienes instalado el Acrobat Reader

saludos

[firma10s04]

Hola a tod@s, yo tenia este problema pero gracias a vosotros lo solucioné, pero lo que me gustaría ajojara es que si me pudieses decir la funcion que detecta el adobe porque no he encontrado nada por ahí. Gracias de antemano

Un saludo

[kalijunfan]

Como lo dijo ajojara en su mensaje anterior, la misma funcion ShellExecuteA te devuelve 31 si no tenés el Acrobat instalado, lo único que tenés que hacer es un simple if a ver si ShellExecuteA es igual a 31 y si es así le mostrás una advertencia al usuario que necesita tener el Acrobat o cualquier otro visor de archivos pdf antes de poder abrir el archivo.

Salu2

[JAIRO78]

Muchas gracias, sos un duro