Komponen Common Dialog pada Visual Basic

Komponen Common Dialog digunakan untuk menampilkan dialog-dialog seperti Open Dialod, Save Dialog, Font Dialog dan sebagainya. Seperti halnya timer Common Dialog merupakan komponen non visual, jadi saat dijalankan tidak terlihat. Bila Common Dialog belum ada di ToolBox anda bisa cari di Menu Project - Components ( Ctrl + T ) - pilih Controls - isi centang pada "Microsoft Common Dialog Control 6.0 - OK. Tambahkan komponen Command Button pada Form untuk menaruh perintah  Common Dialog.

Contoh kode untuk menggunakan Common Dialog dalam mode Open Dialog

Private Sub Command1_Click()     CommonDialog1.Filter = "JPEG|*.jpg|Bitmap|*.bmp"     CommonDialog1.ShowOpen     Image1.Picture = LoadPicture(CommonDialog1.FileName) End Sub

Contoh kode untuk menggunakan Common Dialog dalam mode Font Dialog

Private Sub Command2_Click()     CommonDialog1.Flags = 1     CommonDialog1.ShowFont     Label1.Font = CommonDialog1.FontName     Label1.FontBold = CommonDialog1.FontBold     Label1.FontItalic = CommonDialog1.FontItalic     Label1.FontSize = CommonDialog1.FontSize     Label1.FontStrikethru = CommonDialog1.FontStrikethru     Label1.FontUnderline = CommonDialog1.FontUnderline End Sub

Contoh Form menggunakan Common Dialog bisa di download di Sini