VB题编写程序

1、工程——部件——选中“Microsoft Common Dialog Control 6.0”——确定
2、把控件面板中刚添加的部件拖到窗体上
3、添加代码即可
Private Sub Open_Click()

Me.CommonDialog1.ShowOpen
End Sub

'首先 要从工程 部件 中选择加载 Microsoft Common Dialog Control 6.0
记得要先添加opendialog这个控件
Private Sub Command1_Click()
Me.CommonDialog1.DialogTitle = "打开文件"
Me.CommonDialog1.Filter = "bmp files(*.bmp)|*.bmp|jpg files(*.jpg)|*.jpg|all files(*.*)|*.*"
Me.CommonDialog1.ShowOpen
MsgBox Me.CommonDialog1.FileName
End Sub
上面是个例子，楼主自己看看~

晕了！

把分给吧！你是想弹出个打开文件的对话框是吧？

'代码开始

______________________________________________________________________

Private Sub Command1_Click()

CommonDialog1.Action = 1

CommonDialog1.FileName = " "

Label2.Caption = App.Path