VB中的对话框控件
VB编程中的CommonDialog 控件了提供一组标准的操作对话框,可以进行打开和保存文件,设置打印、提示帮助,选择颜色和字体等操作,在vb开发中具有非常广的应用。
在VB中要使用 CommonDialog 控件,首先要在部件中将其添加到窗体中并设置其属性。
控件所显示的对话框由控件的方法确定。
在运行时,对话框控件是看不到的,当其相应的方法被调用时,将显示对应对话框界面供用户选择;
在设计时,CommonDialog 控件是以图标的形式显示在窗体中。该图标的大小不会改变。
Private Sub cmdOpen_Click() '打开
CD1.ShowOpen
'打开对话框中选择的文件名(包括路径)显示在文本框中
Text1.Text = CD1.FileName
End Sub
Private Sub cmdSaveas_Click() '另存为
CD1.DefaultExt = 'txt' '保存文件时的缺省类型是文本文档
CD1.ShowSave
End Sub
Private Sub cmdColor_Click() '颜色
CD1.ShowColor
'用在颜色对话框中选择的颜色设置文本框字体
End Sub
Private Sub cmdFont_Click() '字体
'显示打印机和屏幕字体,并在字体对话框显示删除线和下划线检查框以及颜色组合框
CD1.Flags = cdlCFBoth Or cdlCFEffects
CD1.ShowFont
'在字体对话框中选择不同的内容设置文本框中的字体
Text1.FontName = CD1.FontName
Text1.FontSize = CD1.FontSize
Text1.FontBold = CD1.FontBold
Text1.FontItalic = CD1.FontItalic
Text1.FontUnderline = CD1.FontUnderline
End Sub
联系客服