vb 界面设计（打开文件对话框）

vb  界面设计（打开文件对话框）

通用话框控件【CommonDialog】

  它属于VB的AetiveX控件，在使用前需要添加到工具箱中。将通用
对话框添加到工具中的方法如下：

（1）单击“工程”菜单的“部件”选项，或用鼠标右键单击工具箱，
在弹出的菜单中选择“部件”，打开“部件”对话框。

（2）在“部件”对话框中，选中“Microsoft Common Dialog Control 6.0 (SP6)”

（3）单击“确定”按钮即可将通用对话框控件添加到工具箱中。

（4）把通用对话框控件【CommonDialog1】拖放到窗体。



表7-1  Action属性和Show方法

Action属性
Show方法
说明

1
ShowOpen
显示文件打开对话框

2
ShowSave
显示另存为对话框

3
ShowColor
显示颜色对话框

4
ShowFont
显示字体对话框

5
ShowPrinter
显示打印机对话框

6
ShowHelp
显示帮助对话框

如 CommonDialog1.DialogTitle = "标题名"


通用对话框具有的主要共同属性为：

（1）     CancelError属性：通用对话框里有一个“取消”按扭，用于向应用程序表示用户想取消当前操作。当CancelError属性设置为True时，若用户单击“取消”按扭，通用对话框自动将错误对象Err.Number设置为32755（cdlCancel）以便供程序判断。若CancelError属性设置为False，则单击“取消”按扭时不产生错误信息。

（2）     DialogTitle属性：每个通用对话框都有默认的对话框标题，通过

DialogTitle属性可由用户自行设计对话框标题上显示的内容。

    （3） Flags属性：通用对话框的Flags属性可以修改每个具体对话框的默认操作，其值可有3种形式，即符号常量、十六进制数和十进制数。

    （4）HelpCommand属性：指定Help的类型。

    （5）HelpContext属性：用来确定Help  ID的内容，与HelpCommand属性一起使用，指定显示的Help主题。

    （6）HelpFile和HelpKey属性：分别用来指定Help应用程序的Help文件名和Help主题能够识别的名字。

注意：
CommonDialog1.Filter = "*.dat | *.dat| *.TXT | *.TXT"  
'类型两个一组 " *.dat | *.dat" 表示 文件类型为 *.dat 只显示*.dat
' "*.dat | *.txt" 表示 文件类型为 *.dat 只显示*.txt
' "所有文件" 后面为空  表示 所有文件

列：
Private Sub Label2_Click()
CommonDialog1.Flags = vbOFNFileMustExist

CommonDialog1.InitDir = "F:\" '查找范围 显示 F盘 文件目录

CommonDialog1.DialogTitle = "标题名"

CommonDialog1.FileName = "文件名"

CommonDialog1.Filter = "Parasolid (*.x_t) |*.x_t|IGS (*.igs)|*.igs|STEP203 (*.stp) |*.stp|STEP214 (*.stp) |*.stp"

CommonDialog1.ShowOpen

文件准确途径 = CommonDialog1.FileName

'【判断文件是否存在】
If Dir(文件准确途径) <> "" Then
Text1 = 文件准确途径
Else
梅雷提示 = MsgBox("不存在", 32, "梅雷提示")
End If

End Sub

_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/