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
作用:該控件可提供諸如打開和保存文件、設置打印選項、選擇顏色和字體等操作的一組標準對話框。
使用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