第11章 界面设计.pptVIP

11.2.1 “打开”/“另存为”对话框 属性 1 FileName(文件名称）属性：在程序中可用该属性值设置或返回用户所选定的文件名（包含路径） 2 FileTitle（文件标题）属性：在程序中可用该属性值设置或返回用户所选定的文件名（不包含路径） 11.2 通用对话框 11.2 通用对话框 11.2 通用对话框 例11-1 设计一个如图所示的窗体，其中包含1个文本（Text1）和6个 命令按钮。程序运行后，单击命令按钮，可打开相应的对话框。 11.2 通用对话框 “打开”按钮的程序代码如下： Private Sub cmdOpen_Click() Dim StrText as string On Error Goto note 当出现错误时，跳转到note语句 With CommonDialog1 .DialogTitle = 打开对话框 .InitDir = “C:\ .Filter = Word文档(*.doc)|*.doc|文本文件 _ (*.txt)|*.txt|所有文件(*.*)|*.* .FilterIndex = 2 ： Text1.Text = .ShowOpen 或使用 CommonDialog1