ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 1070|ตอบกลับ: 0

[VB.NET] การเปิดอ่านไฟล์ PDF (Portable Document Format)

[คัดลอกลิงก์]

198

กระทู้

278

โพสต์

2164

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2164



เป็นอีกคำถามที่ถามเข้ามา จะทำฐานข้อมูลจัดเก็บเอกสาร PDF ได้อย่างไร? แต่ก่อนจะไปถึงจุดนั้นเราก็ต้องทำการเปิดไฟล์ PDF ให้ได้ซ่ะก่อนซิขอรับ โดยการใช้ Adobe Acrobat Reader Component เป็นตัวช่วยเปิดไฟล์ PDF ซึ่งถ้าหากเครื่องคอมฯเราไม่มี Adobe Reader ก็ต้องไปดาวน์โหลดฟรีมาติดตั้งก่อนแหละครับ ...

ดาวน์โหลด Adobe Acrobat Reader DC ฟรี ... จากนั้นก็ทำการติดตั้งเข้าไปเลยครับ ...


เรียกใช้งาน Adobe Reader Component ... (จากหมายเลข 1 เราจะเอาไปเข้าในกลุ่มเครื่องมือ หรือ ToolBox ตัวไหนก็เลือกได้ตามใจชอบเอาเองครับ)  


จับลาก Component มาวางบนฟอร์ม

มาดูโค้ดง่ายๆกันเถอะ ...
  1. ' / ----------------------------------------------------------------
  2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
  3. ' / eMail : [email protected]
  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.         ' / ตั้งค่าการใช้งาน Open File Dialog
  20.         With dlgOpenFile
  21.             .InitialDirectory = MyPath(Application.StartupPath)
  22.             .Title = "เลือกไฟล์ PDF File"
  23.             .Filter = "PDF Files (*.pdf)|*pdf"
  24.             .FilterIndex = 1
  25.             .RestoreDirectory = True
  26.         End With
  27.         ' หากเลือกปุ่ม OK หลังจากการ Browse ...
  28.         If dlgOpenFile.ShowDialog() = DialogResult.OK Then
  29.             txtFileName.Text = dlgOpenFile.FileName
  30.             Me.AxAcroPDF2.LoadFile(dlgOpenFile.FileName)
  31.         End If

  32.     End Sub

  33.     Private Sub frmReadPDF_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
  34.         Me.Dispose()
  35.         Application.Exit()
  36.     End Sub

  37.     ' / --------------------------------------------------------------------------------
  38.     ' / Get my project path
  39.     ' / AppPath = C:\My Project\bin\debug
  40.     ' / Replace "\bin\debug" with ""
  41.     ' / Return : C:\My Project\
  42.     Function MyPath(ByVal AppPath As String) As String
  43.         '/ MessageBox.Show(AppPath);
  44.         AppPath = AppPath.ToLower()
  45.         '/ Return Value
  46.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
  47.         '// If not found folder then put the \ (BackSlash) at the end.
  48.         If Microsoft.VisualBasic.Right(MyPath, 1) <> "" Then MyPath = MyPath & ""
  49.     End Function

  50. End Class
คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010)

ReadPDFNet.zip

16.32 KB, ดาวน์โหลดแล้ว: 0

สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

4

กระทู้

16

โพสต์

94

เครดิต

Member

Rank: 2

เครดิต
94
โพสต์ 2019-8-21 16:15:08 | ดูโพสต์ทั้งหมด

VB6 ได้ไหมครับ

198

กระทู้

278

โพสต์

2164

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2164
 เจ้าของ| โพสต์ 2019-8-21 20:12:39 | ดูโพสต์ทั้งหมด

ผมใช้ FoxIt Reader ครับ ดาวน์โหลดได้จากที่นี่ มันจะให้ตัว Viewer แบบ OCX มาให้ใช้งานด้วย โดยเราต้องเลือก Project --> Components (ตามภาพ)
  1. Me.FoxitPhantomOCX1.OpenFile (App.Path & "\test.pdf")
คัดลอกไปที่คลิปบอร์ด


FoxItReaderOCX.jpg
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

4

กระทู้

16

โพสต์

94

เครดิต

Member

Rank: 2

เครดิต
94
โพสต์ 2019-8-22 10:10:02 | ดูโพสต์ทั้งหมด

แก้ไขครั้งสุดท้ายโดย my2alee เมื่อ 2019-8-22 10:12

ผมใช้เลือกใช้ Acrobat เพราะว่าทุกเครื่องที่ทำงาน เป็นโปรแกรมสามัญประจำเครื่อง
เลยใช้ตัวนี้ครับ Adobe Acrobat 7.0 Browser Control Type Library 1.0 รันบน Win8 / 7 / xp ได้..แต่พอรันบน Win10 แล้วไม่เวิร์ค ยังหาสาเหตุไม่เจอ

AcroPDF1.src = App.Path & "\DES-1026G_ds.pdf"

Acrobat Library

Acrobat Library

198

กระทู้

278

โพสต์

2164

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2164
 เจ้าของ| โพสต์ 2019-8-22 15:23:48 | ดูโพสต์ทั้งหมด

AcroPDF.dll มันมีปัญหากับ Windows 10 ครับ เมื่อใช้ VB6 เอ๋อตลอดกาล
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

4

กระทู้

16

โพสต์

94

เครดิต

Member

Rank: 2

เครดิต
94
โพสต์ 2019-8-23 10:03:24 | ดูโพสต์ทั้งหมด

thongkorn ตอบกลับเมื่อ 2019-8-22 15:23
AcroPDF.dll มันมีปัญหากับ Windows 10 ครับ เมื่อใช้ VB6 เอ๋อตลอดกาล

เศรา้เลยครับงานนี้ เขาเร่งจะใช้พอดี อุตส่าห์เขียนอยู่หลายวัน (พอดีเครื่องที่ผมใช้อยู่เป็น win8.1 เห็นรันผ่านเลยคิดว่า Win10 น่าจะใช้ได้)

VB6-PDFSCAN

VB6-PDFSCAN
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2019-10-19 13:49 , Processed in 0.676879 second(s), 6 queries , File On.

Powered by Discuz! X3.3 R20170401, Rev.54

© 2001-2017 Comsenz Inc.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้