Private Sub Command1_Click()
 　　CD1.Filter＝"All File| * . * |Text File| * .txt|PPT| * .ppt"
 　　CD1.FilterIndex＝2
 　　CD1.InitDir＝"C："
 　　CD1.FileName＝"default"
 　　CD1.ShowSave
 End Sub
 
1.Filter:为文件过滤器，列举出需要打开的文件类型，此程序包含的类型有TXT和ppt两种
 2.Filterindex=1，表示另存为的类型为All File ，若
 Filterindex=2，表示另存为的类型为txt，若
 Filterindex=3，表示另存为的类型为PPt
 3.initDir:表示指定通用对话框的初始目录
 4.FileName：表示文件对话框默认的保存文件名
 5.ShowSave：表示表示打开另存为对话框，执行保存文件的操作。
 注意：CD1.showopen的程序位置很重要，如果放在程序开头，程序首先执行打开文件操作，而后面的程序则未执行到，需要第二次打开才执行后面的程序。

 
Windows应用程序里的Open对话框，Save As对话框在各个应用程序里看起来都是一样的，通用对话框控件就可以提供这些对话框的标准功能。下面是小编为大家带来的关于通用对话框控件的知识，欢迎阅读。
 
1.Open对话框及Save As对话框
 
打开Open对话框使用ShowOpen方法，打开Save As对话框使用ShowSave方法。
 
Private Sub mnuOpen_Click ()
 
On Error GoTo ErrorHandler
 
CommonDialog1.CancelError = True
 
CommonDialog1.Filter = "Text Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat|All Files (*.*)|*.*"
 
CommonDialog1.ShowOpen ' 显示打开对话框
 
Call OpenFile(CommonDialog1.FileName)
 
ErrorHandler:
 
Exit Sub
 
End Sub
 
其中第三行决定了在文件格式类型栏里出现的文件类型。第五行需要一个自己的打开文件的过程，这个过程需要的参数就是通用对话框返回的文件名。通用对话框的CancelError属性设为True的话，用户单击Cancel按钮将产生一个错误信息程序，凭借这个信息程序可以检测到用户的放弃操作。
 
1.计算机二级VB考点：报表制作
 
2.计算机二级考试VB考点：图象列表和图象组合框
 
3.计算机二级VB强化试题及答案
 
4.计算机二级vb练习题
 
5.计算机二级VB考试题及答案
 
6.计算机二级VB考试题
 
7.计算机二级考试VB选择题试题
 
8.计算机二级VB考试答题技巧
 
9.计算机二级考试考点PowerPoint篇
 
10.计算机二级office考点

二级VB培训笔记07：通用对话框
 
通用对话框（CommonDialog）控件提供了一组标准对话框界面，包括打开文件、保存文件、选择颜色、选择字体、设置打印机和帮助等六个对话框。这些对话框只能返回用户输入、选择或确认的信息，要实现诸如文件打开、保存文件、设置颜色等操作，还必须编写相应的代码才能实现。
 
在设计状态下，通用对话框控件显示为一个在运行时不可见的图标。在程序运行状态下，可以通过设置其Action属性或使用其Show方法来打开需要的某种对话框。通用对话框控件的Action属性值及相应的Show方法如下表所示。
 
 
 
1、演示添加通用对话框，利用Action属性的设置来显示打开对话框
 
 

filterindex是“打开”或“另存为”对话框（CommonDialog控件）中的一个缺省的过滤器，来打开或者保存文件的文件扩展名
 要使用这个属性值，就必须先给filter属性赋值，比如
 CommonDialog1.filter=“word文档|.doc|excel文档|.xlsl文本文件|.txt|所有文件|."
 （备注，共有4个过滤器，对应0-3）
 如果设置filterindex=0，那么默认打开对话框中显示的文件是所有后缀名为doc的word文档
 如果设置filterindex=1，那么默认打开对话框中显示的文件是所有后缀名为xls的exceld文档
 如果设置filterindex=2，那么默认打开对话框中显示的文件是所有后缀名为txt的文本文档
 如果设置filterindex=3，那么默认打开对话框中显示的文件是所有文件
 CommonDialog的用法：
 CommonDialog1.filter="word文档|.doc|excel文档|.xlsl文本文件|.txt|所有文件|.”
 CommonDialog1.filterindex=0 ‘备注，可以根据需求设置
 CommonDialog1.action=1 ’action的值不同，意义也不同。1，则表示打开文件，2表示 另存为，具体可去网上收缩搜索
 当选定打开或保存对话框的文件时，该文件名将保存在CommonDialog1.filename中
 比如 fn=CommonDialog1.filename ‘用fn变量来保存打开或另存为的文件名