在vb中如何添加commondialog控件

在工具箱中右键-->部件，在弹出的窗口中找到microsoft common dialog control 6.0 选中。确定
另附:
常用方法：
showopen---打开
showsave--保存
showcolor--颜色
属性：
filename--返回选中的文件路径
filter--文件过滤

简单实例：按钮一个，commondialog控件一个
Private Sub Command1_Click()
CommonDialog1.ShowOpen
FileName = CommonDialog1.FileName
If Dir(FileName) = "" Then
'填写的路径不存在就退出
Exit Sub
End If
MsgBox "您选的路径是：" & vbCrLf & FileName
End Sub

Private Sub Form_Load()
CommonDialog1.Filter = "文本文件|*.txt|"
End Sub

在VB左侧的工具栏内空白处，点击右键，选择“部件”，在控件列表里面勾选“Microsft Command Dialog Contrl 6.0”，然后确定
回到form1，点新添加的部件，在form1中添加

在VB左侧的工具栏内空白处，点击右键，选择“部件”，在控件列表里面勾选“Microsft Command Dialog Contrl 6.0”，然后确定即可！

注意：绿色版的VB可能没有这个组件，需要另外去下载！

用记事本打开 vbp 文件 在 Startup= 上加一行 保存后重新打开工程
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; comdlg32.ocx