就是通过一个这种按钮 然后弹出这种对话框 选择文件以后 把文件的地址复制到这种文本框里 按钮的click事件要怎么写啊? 除了click事件 还要写别的代码么?
Private Sub Command1_Click()
cd1.ShowOpen
Text1.Text = cd1.FileName
End Sub
ä¸é¢ä»£ç ä¸cd1æ¯common dialogæ§ä»¶ï¼æ·»å æ¹æ³ï¼å¨vb6ä¸åå»èå å·¥ç¨-->é¨ä»¶ï¼å¨é¨ä»¶å¯¹è¯æ¡ä¸éæ©microsoft common dialog control6.0 ç¡®å®
cd1.ShowOpen
Text1.Text = cd1.FileName
End Sub
ä¸é¢ä»£ç ä¸cd1æ¯common dialogæ§ä»¶ï¼æ·»å æ¹æ³ï¼å¨vb6ä¸åå»èå å·¥ç¨-->é¨ä»¶ï¼å¨é¨ä»¶å¯¹è¯æ¡ä¸éæ©microsoft common dialog control6.0 ç¡®å®
温馨提示:答案为网友推荐,仅供参考
第1个回答 2013-12-07
'添加一个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
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
第2个回答 2013-12-07
点击工程部件,找到Microsoft Common Dialog control 6.0 ,添加控件 编写代码如下Private Sub Command1_Click()
Dim sFilename As StringCommonDialog1.ShowOpen
sFilename = CommonDialog1.FileName
Text1.Text = sFilenameEnd Sub
Dim sFilename As StringCommonDialog1.ShowOpen
sFilename = CommonDialog1.FileName
Text1.Text = sFilenameEnd Sub