Menggunakan Common Dialog Box di VB

Common Dialog Box merupakan kontrol yang menyediakan fasilitas dialog-dialog umum yang sering digunakan  pada lingkungan Windows seperti File Dialog, Font Dialog, dan Printer Dialog.

Pada saat kontrol tersebut diletakkan pada form, kontrol tersebut tidak dapat diubah ukurannya seperti kontrol timer, namun kontrol tersebut dapat dilihat pada saat program dijalankan (runtime) dalam bentuk dialog.

Meskipun kontrol tersebut merupakan kontrol yang umum, namun kontrol ini tidak diletakkan pada ToolBox. Untuk menambahkan kontrol tersebut pada Toolbox ikutilah langkah-langkah berikut ini:

  1. Pilih menu Project-kemudian ambil Components atau boleh juga dengan cara menekan kombinasi Ctrl-T, maka akan ditampilkan Components Dialog box, seperti yang terlihat pada gambar berikut ini.
  2. Pilih Microsoft Common Dialog Box Control pada ListBox dan klik OK, maka Kontrol Dialog Box akan ditampilkan pada ToolBox.
  3. Untuk menambahkan pada form, double click pada kontrol tersebut

Untuk menampilkan Dialog box dapat digunakan salah satu Method berikut ini:

  • ShowColor untuk menampilkan sebuah color dialog.
  • ShowFont untuk menampilkan sebuah font dialog.
  • ShowHelp untuk menampilkan sebuah help dialog.
  • ShowOpen untuk menampilkan sebuah open file dialog.
  • ShowPrinter untuk menampilkan sebuah printer dialog.
  • ShowSave untuk menampilkan sebuah save file dialog

CommonDialog1.DialogTitle = “File Open”

CommonDialog1.Filter = “*.txt” ‘Tampilkan file text saja

CommonDialog1.FileName = “*.txt”    ‘Default nama file

CommonDialog1.ShowOpen ‘ menampilkan dialog open file

contoh

Tambahkan 1 Common Dialog Control dan 5 Command button di Form. Kemudian atur seperti gambar berikut :

Ketikkan kode program berikut :

Private Sub cmdOpen_Click()

cdb.DialogTitle=”File Open”

cdb.Filter=”*.txt”  ‘ Tampilkan file text saja

cdb.FileName=”*.txt”   ‘ Default nama file

cdb.ShowOpen ‘ menampilkan dialog open file

End Sub

 

Private Sub cmdSave_Click()

cdb.DialogTitle=”File Save”

cdb.Filter=”*.*”    ‘ Show all files

cdb.FileName=”test.txt”  ‘ Default filename

cdb.ShowSave   ‘ Trigger the dialog box

End Sub

 

Private Sub cmdFont_Click()

cdb.DialogTitle = “Font”

cdb.FontName = “Arial”

cdb.FontBold = cdlCFBoth

cdb.ShowFont

End Sub

 

Private Sub cmdColor_Click()

cdb.DialogTitle = “Select a Color”

cdb.ShowColor     ‘ Display the dialog box

End Sub

 

Private Sub cmdPrinter_Click()

cdb.DialogTitle = “Select a Printer”

cdb.ShowPrinter

End

 

LATIHAN : Rancanglah form untuk menampilkan gambar seperti gambar berikut (1 label, 3 command button, 1 common dialog dan 1 image), kemudian ketik program di bawah ini.

KODE PROGRAM

Private Sub Command1_Click()

CommonDialog1.DialogTitle = “Membuka File”

CommonDialog1.ShowOpen

Image1.Picture = LoadPicture(CommonDialog1.FileName)

End Sub

 

Private Sub command2_click()

CommonDialog1.DialogTitle = “Menyimpan File”

CommonDialog1.ShowSave

End Sub

 

Private Sub Command3_Click()

END

End Sub

Print Friendly, PDF & Email
Hari

Written by 

admin "Ilmu Itu Tak Ada Yang Tak Bermanfaat"

Leave a Reply

Your email address will not be published.