Mengakses File PDF dari VB6

Sebuah software akan lebih menarik bila memiliki utilitas atau kegunaan yang cukup baik, Alangkah lebih menarik bila sebuah software ditambaah beberapa fitur diantaranya dapat mengakses file multi media baik gambar, musik atau video, yang telah diuraikan DISINI, dapat membuka file Microsoft Office yang telah diuraikan DISINI, juga dapat membuka file PDF.

Penambahan utilitas memiliki keuntungan, selain kelihatan lebih menarik juga penggunaan memory dapat ditekan lebih kecil, diantaranya kita tidak usah membuka Win Amp untuk mendengarkan musik, kita tidak usah membuka Microsoft Word untuk membuka file DOC, tidak usah membuka MS Excel untuk membuka file XLS, tidak usah membuka MS Power Point untuk membuka file PPT, dan tidak usah membuka Adobe Acrobat Reader untuk membuka file PDF

Untuk membuka file PDF kita memerlukan sebuah file ActiveX yang bernama XpdfViewerCtrl.ocx

saya akan mencoba, menguraikan cara menggunakan activeX tersebut. pertama-tama susun objek-objek pada form seperti berikut

• Command1 untuk membuka file PDF
• Command2 untuk menuju ke halaman pertama
• Command3 untuk mundur satu halaman
• Command4 untuk maju satu halaman
• Command5 untuk menuju halaman terakhir
• Command6 untuk mencetak
• label1 untuk menunjukan halaman yang sedang aktip
• Combo1 untuk pengaturan ukuran (Zoom)
• Text1 untuk mencari kata pada dokumen pdf

syntaknya sebagai berikut untuk memasukan nilai zoom pada combo1

Private Sub Form_Load()

With Combo1

.AddItem "200%"

.AddItem "150%"

.AddItem "125%"

.AddItem "100%"

.AddItem "50%"

.AddItem "25%"

.AddItem "fit width"

.AddItem "fit page"

.Text = "fit width"

End With

End Sub

Untuk membuka file PDF

Private Sub Command1_Click()

CommonDialog1.ShowOpen

XpdfViewer1.loadFile CommonDialog1.FileName

End Sub

Untuk menuju Halaman Pertama

Private Sub Command2_Click()

XpdfViewer1.gotoFirstPage

End Sub

Mundur satu Halaman

Private Sub Command3_Click()

XpdfViewer1.gotoPreviousPage

End Sub

Maju satu halaman

Private Sub Command4_Click()

XpdfViewer1.gotoNextPage

End Sub

Menuju halaman akhir

Private Sub Command5_Click()

XpdfViewer1.gotoLastPage

End Sub

Mencetak dokumen PDF

Private Sub Command6_Click()

XpdfViewer1.printWithDialog

End Sub

Menampilkan halaman yang sedang aktip

Private Sub XpdfViewer1_pageChange()

Label2.Caption = XpdfViewer1.currentPage

End Sub

Zoom

Private Sub Combo1_Click()

If Combo1.Text = "fit page" Then

XpdfViewer1.Zoom = XpdfViewer1.zoomPage

ElseIf Combo1.Text = "fit width" Then

XpdfViewer1.Zoom = XpdfViewer1.zoomWidth

Else

XpdfViewer1.Zoom = CDbl(Left(Combo1.Text, Len(Combo1.Text) - 1))

End If

End Sub

Mencari kata tertentu pada dokumen PDF

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

XpdfViewer1.find Text1.Text

End If

End Sub