Question

VB里怎么实现按一个按钮弹出“打开”对话框，并且复制选中文件地址到文本框

就是通过一个这种按钮 然后弹出这种对话框 选择文件以后 把文件的地址复制到这种文本框里 按钮的click事件要怎么写啊？ 除了click事件 还要写别的代码么？

Answer 1

Private Sub Command1_Click()
cd1.ShowOpen
Text1.Text = cd1.FileName
End Sub
上面代码中cd1是common dialog控件，添加方法：在vb6中单击菜单 工程-->部件，在部件对话框中选择microsoft common dialog control6.0 确定

Answer 2

'添加一个command、一个text控件Option Explicit
Private Sub Command1_Click()
Dim s As String
With CreateObject("MSComDlg.CommonDialog")
.Filter = "text|*.txt|All Files|*.*"
.ShowOpen
s = .FileName
End With
Text1 = IIf(s = "", "<取消了!>", s)
End Sub

Answer 3

点击工程部件，找到Microsoft Common Dialog control 6.0 ，添加控件 编写代码如下Private Sub Command1_Click()
Dim sFilename As StringCommonDialog1.ShowOpen
sFilename = CommonDialog1.FileName
Text1.Text = sFilenameEnd Sub