Dichiarare la funzione API ShellExecute . Per fare questo, digitare il seguente codice ( tutto su una riga) nella zona del modulo " generale delle dichiarazioni " :
Private Declare Function ShellExecute Lib " shell32.dll " Alias " ShellExecuteA " ( ByVal hwnd As Long , ByVal lpOperation As String , ByVal lpFile come stringa, lpParameters ByVal As String , ByVal lpDirectory As String , ByVal nShowCmd As Long ) As Long
2
Trovare il nome del file PDF che si desidera visualizzare . Il nome del file deve contenere il percorso completo del file :
Dim PDFPath come String
PDFPath = " C : \\ Documenti \\ esempio.pdf "
3
Visualizza il file PDF con la funzione ShellExecute :
ShellExecute Me.hWnd , "aperto" , PDFPath , 0 & , " " , vbNormalFocus
Programmazione © www.354353.com