โค้ด:

1. ' / ----------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Open PDF File with VB.NET.
   
8. ' / Microsoft Visual Basic .NET (2010)
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / ----------------------------------------------------------------
    
13. Public Class frmReadPDF
    
14.     '// Download Adobe Reader DC
    
15.     '// https://get.adobe.com/reader/
    
16.     Private Sub btnBrowse_Click(sender As System.Object, e As System.EventArgs) Handles btnBrowse.Click
    
17.         '// ประกาศใช้งาน Open File Dialog ในแบบ Run Time
    
18.         Dim dlgOpenFile As OpenFileDialog = New OpenFileDialog()
    
19. 
    
20.         ' / ตั้งค่าการใช้งาน Open File Dialog
    
21.         With dlgOpenFile
    
22.             .InitialDirectory = MyPath(Application.StartupPath)
    
23.             .Title = "เลือกไฟล์ PDF File"
    
24.             .Filter = "PDF Files (*.pdf)|*pdf"
    
25.             .FilterIndex = 1
    
26.             .RestoreDirectory = True
    
27.         End With
    
28.         ' หากเลือกปุ่ม OK หลังจากการ Browse ...
    
29.         If dlgOpenFile.ShowDialog() = DialogResult.OK Then
    
30.             txtFileName.Text = dlgOpenFile.FileName
    
31.             Me.AxAcroPDF2.LoadFile(dlgOpenFile.FileName)
    
32.         End If
    
33. 
    
34.     End Sub
    
35. 
    
36.     Private Sub frmReadPDF_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
37.         Me.Dispose()
    
38.         Application.Exit()
    
39.     End Sub
    
40. 
    
41.     ' / --------------------------------------------------------------------------------
    
42.     ' / Get my project path
    
43.     ' / AppPath = C:\My Project\bin\debug
    
44.     ' / Replace "\bin\debug" with ""
    
45.     ' / Return : C:\My Project\
    
46.     Function MyPath(ByVal AppPath As String) As String
    
47.         '/ MessageBox.Show(AppPath);
    
48.         AppPath = AppPath.ToLower()
    
49.         '/ Return Value
    
50.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
51.         '// If not found folder then put the \ (BackSlash) at the end.
    
52.         If Microsoft.VisualBasic.Right(MyPath, 1) <> "" Then MyPath = MyPath & ""
    
53.     End Function
    
54. 
    
55. End Class

โค้ด:

1. Me.FoxitPhantomOCX1.OpenFile (App.Path & "\test.pdf")