VB教程：對話框（CommonDialog）

10、對話框（Common Dialog）
    作用：該控件可提供諸如打開和保存文件、設置打印選項、選擇顏色和字體等操作的一組標準對話框。
    使用common dialog 控件必須加載microsoft common dialog conrtol6.0。方法為：打開菜單“工程”/“部件”，在部件對話框中選中microsoft common dialog conrtol6.0確定。則在工具箱中加入了對話框（Common Dialog）圖標。
    此圖標的大小不能改變，而且此圖標像timer控件一樣在程序運行時是不可見的。雙擊控件圖標或用鼠標把對話控件直接在窗體上繪出，加載控件。
    運行時，使用下面所列方法顯示需要的對話框：
    showopen——顯示“打開”對話框
    showsave——顯示“另存為”對話框
    showcolor——顯示“顏色”對話框
    showfont——顯示“字體”對話框
    showprinter——顯示“打印”對話框
    showhelp——調(diào)用Windows“幫助”
    例1：顯示打印對話框。
    界面：
    程序：
    Private Sub Command1_Click()
     CommonDialog1.ShowPrinter
     Text1.Text = CommonDialog1.FromPage
     Text2.Text = CommonDialog1.ToPage
     Text3.Text = CommonDialog1.Copies
     Exit Sub
    End Sub
    Private Sub Command2_Click()
    End
    End Sub
    例2：顯示各種對話框。
    界面：
    代碼：
    Private Sub Command1_Click()
     CommonDialog1.showhelp
    End Sub
    --------------------------------------------------------------------------------
    Private Sub Command2_Click()
     CommonDialog1.showfont
    End Sub
    --------------------------------------------------------------------------------
    Private Sub Command3_Click()
     CommonDialog1.showcolor
    End Sub
    --------------------------------------------------------------------------------
    Private Sub Command4_Click()
     CommonDialog1.showsave
    End Sub
    --------------------------------------------------------------------------------
    Private Sub Command5_Click()
     CommonDialog1.showopen
    End Sub
    --------------------------------------------------------------------------------
    Private Sub Command6_Click()
     End
    End Sub