Solución: (VB6.0) ¿Cómo abrir un archivo PDF en el programa?
El siguiente código llama al programa predeterminado del sistema para abrir PDF. Preste atención para modificar la ruta del archivo D:\help.pdf
Función de declaración privada ShellExecute Lib "shell32.dll" alias "ShellExecuteA" (ByVal hwnd As). Largo, ByVal lpOperation como cadena, ByVal lpFile como cadena, ByVal lpParameters como cadena, ByVal lpDirectory como cadena, ByVal nShowCmd como largo) como largo
Const privado SW_SHOWNORMAL = 1
Subcomando privado1_Click()
Resultado atenuado
resultado = ShellExecute(0, vbNullString, "D. M. ayuda:\ help.pdf", vbNullString, vbNullString, SW_SHOWNORMAL)
Si el resultado <= 32 Entonces
MsgBox "¡Falló la apertura!", vbOKOnly + vbCritical, "Error:", 0
Finalizar si
Subtítulo final