CommonDialog ile Yardım Dosyası Açmak
Dialog.HelpFile = app.path &"\program.hlp"
Dialog.HelpCommand = cdlHelpContents
Dialog.ShowHelp
Bir Resim Dosyasını CommonDialog ile Açmak
CommonDialog1.DialogTitle = "Resim Dosyası Aç"
‘ Gizli ve sadece okunabilir dosyalarıda göster
CommonDialog1.Flags = cdlOFNHideReadOnly
‘ BMP uzantılı dosyaları listele
CommonDialog1.Filter = "BitMap Dosya(*.bmp)|*.bmp|"
CommonDialog1.FilterIndex = 0
‘ Open Dialog’ u aç
CommonDialog1.ShowOpen
‘ Resmi resim kutusuna yükle
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
Bir Resim Dosyasını CommonDialog ile Kaydetmek
CommonDialog1.DialogTitle = "Resim Dosyası Kaydet"
CommonDialog1.FileName = ".bmp"
CommonDialog1.ShowSave
SavePicture Picture1.Picture, CommonDialog1.FileName
TextBox’un Font Özelliklerini CommonDialog ile Ayarlamak
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
CommonDialog1.ShowFont
Text1.FontName = CommonDialog1.FontName
Text1.FontSize = CommonDialog1.FontSize
Text1.FontBold = CommonDialog1.FontBold
Text1.FontItalic = CommonDialog1.FontItalic
Text1.FontStrikethru = CommonDialog1.FontStrikethru
Text1.FontUnderline = CommonDialog1.FontUnderline
Text1.ForeColor = CommonDialog1.Color
TextBox İçeriğini CommonDialog ile Yazdırmak
CommonDialog1.CancelError = True
CommonDialog1.PrinterDefault = True
CommonDialog1.Copies = 1
CommonDialog1.ShowPrinter
For Kopya = 1 To CommonDialog1.Copies
Printer.Print Text1.Text
Printer.EndDoc
Next kopya
