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