请教下vb怎么打开选择文件的窗体有代码就最好啦！

来源：百度知道 编辑：UC知道 时间：2024/05/30 10:11:28
请教下vb怎么打开选择文件的窗体有代码就最好啦！ 我是想要个好像任务管理器里新任务的那种。工程文件，文本文件，网址各种各类的都行!
是打开文件,是开启程序
地址写在Text1,打开在Command1，取消在Command2，浏览在Command3，重置在Command4
打开是打开在浏览选的文件，也就是在地址表示的文件
取消是关闭这个窗口
浏览是选exe运行的窗口，窗口要和图中的浏览窗口差不多
重置是把地址清空，重新选择。（可以没，但最好有）

首先在菜单“工程”“部件”中勾选“microsoft common dialog control”,然后在窗体上建一个Commondialog1,其他控件如你所说的那样建立。

窗体代码如下：
--------------------------------------
Private Sub Command1_Click()
Shell text1.text
End Sub
--------------------------------------
Private Sub Command2_Click()
unload me
End Sub
--------------------------------------
Private Sub Command3_Click()
With CommonDialog1
.Filter = "程序|*.exe"
.InitDir = App.Path
.CancelError = True
.ShowOpen
text1.text = .FileName
End With
End Sub
--------------------------------------
Private Sub Command4_Click()
text1.text =“”
End Sub
--------------------------------------

先在菜单“工程”“部件”中勾选“microsoft common dialog control”,然后在窗体上建一个Commondialog1,Command1.
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Const O As String = "rundll32 url.dll,F