Komponen Common Dialog pada Visual Basic

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

Sumber : https://filehippo.co.id/