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
Contoh kode untuk menggunakan Common Dialog dalam mode Font Dialog
Contoh Form menggunakan Common Dialog bisa di download di Sini
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
Tidak ada komentar:
Posting Komentar