Sabtu, 15 September 2012

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

Tidak ada komentar:

Posting Komentar