LLamar doc Pdf desde Boton

[chiper1]

hola yo de nuevo por aca resulta q tengo un Tolbar con varios botones solo me falta la programacion del boton de ayuda! estuve buscando como hacer el manual de usuario con formato .hlp algo asi pero me reuslta muy dificil se me occurrio la idea de mejor hacerlo en pdf y llamar ese archivo desde boton estuve leyendo y consegui algo en el foro el cual aparece en este enlace...

http://helektron.com/abrir-cualquier-tipo-de-archivo-en-vb/

obviamente esta persona copio y pego lo q dicen en este foro en el suyo (no recuerlo la direccion de aca )

ok resulta q probe pero no me corre q opciones haynpara poder colocar el manual de usuario o la ayuda para explicar como funciona el sistema! ayuda por favor aca dejo el codigo y la especificacion de donde iria el codigo q necesito::

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Key

Case "Articulos"
Form2.Show
Case "Solicitante"
Form3.Show
Case "Pedido"
Form4.Show
Case "Devoluciones"
Form15.Show
Case "Consultas"
Form7.Show
Case "Pedidos"
Form16.Show
Case "Salir"

Dim Respuesta As String

Respuesta = MsgBox("¿ESTA DE ACUERDO CON FINALIZAR EL PROGRAMA Y SUS APLICACIONES? ", vbYesNo + vbQuestion, "Salir")

If Respuesta = vbYes Then
End
End If

Case "Ayuda"

AQUI VA EL CODIGO Q NECESITO DENTRO DE ESTE


End Select

[pkj]

Podría ser:

Shell "rundll32.exe url.dll,FileProtocolHandler " & (App.Path & "\Ayuda.pdf")

siempre que pongas el fichero ayuda.pdf en la carpeta del programa y tengas instalado un programa que cargue los pdf, como Acrobat Reader.

Saludos.

[erbuson]

Si no quieres complicarte puedes tambien abrir el archivo con la aplicación asociada al mismo, de este modo el archivo de ayuda puede ser un DOC, un RTF, un PDF un lo que se te ocurra.

Código:

'--- API para abrir archivo con la aplicacion asociada
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

Dim hProc As Long, Abrir As String
hProc = ShellExecute(Me.hwnd, "Open", "Lo que quieras abrir", vbNullString, vbNullString, 1)
If hProc = 31 Then
  ' Puedes dar un aviso de "No existe aplicación asociada para abrir archivo seleccionado"
End If

[chiper1]

Gracias... me sirvio la ayuda