Open PDF dengan VB6.

Jika didalam program anda memerlukan form untuk membuka file .pdf semisal untuk menampilkan petunjuk tentang program dimana anda membuatnya dengan format .pdf maka disini saya tampilkan program bagaimana membuka file .pdf dengan menggunakan vb6.

Adapun control yang diperlukan adalah AcroPDF.dll yang biasanya berada didalam folder “C:\Program Files\Common Files\Adobe\Acrobat\ActiveX”

Atau jika anda belum mempunyai control AcroPDF.dll mungkin anda bisa mencarinya di internet.

Dan control Command Dialog pada toolbox anda.

Untuk design formnya adalah seperti ini :

Dimana tampak di form tersebut saya menambahkan control Picture, Button, Commond Dialog dan AcroPDF.

Sedangkan script command dari form tersebut  :

Private Sub cmdOpen_Click()

dlg.Filter = "PDF (*.pdf)|*.pdf"

dlg.ShowOpen

pdf.src = dlg.FileName

End Sub

Private Sub Form_Load()

Me.WindowState = 2

End Sub

Private Sub Form_Resize()

pct.Width = Me.Width

pdf.Width = Me.Width - 500

pdf.Height = Me.Height

End Sub

Maka jika program dijalankan akan tampak seperti ini :

Jika anda ingin membuka file yang ada di computer tersebut maka anda tinggal klik tombol Open PDF dimana command dialog sudah memfilter hanya file yang ber ekstensi .pdf yang akan tampak.

Seperti pada script

…….

dlg.Filter = "PDF (*.pdf)|*.pdf"

dlg.ShowOpen

…..

 Mungkin apliksi ini bisa ditambahkan pada program anda. Silahkan mencoba…

Media Player dengan VB6

Membuat media player dengan menggunakan VB6 kita memerlukan library  wmp.dll yang ada di folder ..windows\system32\wmp.dll ada pun cara add component seperti ini :

Maka kita perlu mencari control Windows Media Player :

Tampak pada toolbox kita sudah ada control Windows Media Player, kemudian kita tambahkan control Commond Dialog yang nantinya berguna untuk kita mencari file-file multimedia seperti .mp3, .avi, .dat, .wmv juga .mpg yang nantinya kita siap untuk play di control Windows Media Player.

Maka untuk script commandnya adalah :

Private Sub cmdOpen_Click()

dlg.ShowOpen

Label1.Caption = dlg.FileName

wdp.URL = Label1.Caption

End Sub

Private Sub cmdVolMin_Click()

wdp.settings.volume = wdp.settings.volume - 1

End Sub

Private Sub cmdVolPlus_Click()

wdp.settings.volume = wdp.settings.volume + 1

End Sub

Private Sub Form_Load()

wdp.settings.autoStart = False

End Sub

Maka jika setelah kita Run (F5) form yang sudah kita buat akan tampaklah seperti berikut 

Anda juga bisa mengembangkan program ini sesuai tampilan yang anda inginkan tampak pada tampilan script command : “wdp.settings.volume = wdp.settings.volume + 1 ” ini adalah seting volume control, tampak gambar dibawah adalah kita akan memilih peoperties dari control Windows Media Player :

Dengan mengolah dari properties yang ada maka program anda akan tampak lebih mewah.

Untuk anda yang memerlukan Sourcecode nanti bisa saya kirim ke email anda.