如何通过VB实现从运行对话框打开文件？

来源：百度知道 编辑：UC知道 时间：2024/05/09 23:03:47
比如我的文件存放在F盘：F:\ttt.exe
我想利用系统的运行对话框来打开，怎么写呢？
普通的SHELL办法除外！
希望各位大全指教!
2楼朋友可能没注意到，我说的是“系统运行对话框”

首先从“工程”（project）下拉菜单中选择“部件”(components)选项打开部件对话框，在部件选项卡中选中“microsoft common dialog control 6.0”单击确定。
建立工程，在form中添加这个common dialog对话框，即控件栏中最后一个，再添加一个command1,text1
程序部分：

Private Sub Command1_Click()
CommonDialog1.Action = 1
Text1.Text = CommonDialog1.FileName
lp = Shell(Text1.Text, 1)

End Sub

Private Sub Form_Load()
CommonDialog1.InitDir = "f:\"
CommonDialog1.FileName = "*.*"
CommonDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.FilterIndex = 1
End Sub

运行，选中ttt.ext即可打开