Photobucket

Rabu, 21 November 2012

VB Share: Metode Common Dialog (Dialog Box)


Metode Common Dialog

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 control 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:

  • Pilih menu Project-Components atau dengan menekan Ctrl-T Maka akan ditampilkan eComponents Dialog box, lihat gambar

                   
  • Pilih Microsoft Common Dialog Box Control pada ListBox dan klik OK, maka Kontrol Dialog Box akan ditampilkan pada ToolBox.

  • Untuk menambahkan pada form, double click pada control 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


Kali ini saya akan men share tentang dasar pembuatan common dialog seperti di bawah ini.

 Yang dibutuhkan dalam form Common Dialog adalah:
1 buah Frame, 6 buah command button, dan 1 Dialog Box.

Codingnya seperti ini:




Private Sub CDialog_Click()
Cdbdialog.DialogTitle = "Membuka Color"
Cdbdialog.ShowColor
End Sub

Private Sub close_Click()
Unload Me
End Sub

Private Sub Fdialog_Click()
Cdbdialog.DialogTitle = "Membuka Font"
Cdbdialog.ShowFont
End Sub

Private Sub ODialog_Click()
Cdbdialog.DialogTitle = "Membuka File"
Cdbdialog.ShowOpen
End Sub

Private Sub PDialog_Click()
Cdbdialog.DialogTitle = "Membuka Printer"
Cdbdialog.ShowPrinter
End Sub

Private Sub SDialog_Click()
Cdbdialog.DialogTitle = "Menyimpan File"
Cdbdialog.Filter = "*.*"
Cdbdialog.FileName = " * .Frm"
Cdbdialog.ShowSave
End Sub


Sekian. Sampai ketemu di postingan berikutnya.

0 komentar:

Posting Komentar

Related Posts Plugin for WordPress, Blogger...

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Best Buy Coupons