点击按钮出来个 对话框，选择文件，得到这个文件的相对路径
用什么对话框好啊，对话框我不怎么熟悉- -能飞个代码 参考下吗- -
VB对话框
答案:2 悬赏:40
解决时间 2021-03-06 10:25
- 提问者网友：小姐请专情
- 2021-03-06 01:49
最佳答案
- 二级知识专家网友：你把微笑给了谁
- 2021-03-06 02:26
CommonDialog控件：Microsoft Common Dialog Control,version 6.0
Private Sub Command1_Click()
CommonDialog1.FileName = ""
CommonDialog1.Flags = &H80000
CommonDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*|JPG图片文件(*.jpg)|*.jpg"
CommonDialog1.DialogTitle = "VB特训班·程序设计-打开文件对话框标题"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
MsgBox "文件为空！！！"
Else
MsgBox "所选文件路径：" & CommonDialog1.FileName
End If
End Sub
Private Sub Command1_Click()
CommonDialog1.FileName = ""
CommonDialog1.Flags = &H80000
CommonDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*|JPG图片文件(*.jpg)|*.jpg"
CommonDialog1.DialogTitle = "VB特训班·程序设计-打开文件对话框标题"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
MsgBox "文件为空！！！"
Else
MsgBox "所选文件路径：" & CommonDialog1.FileName
End If
End Sub
全部回答
- 1楼网友：為→妳鎖鈊
- 2021-03-06 02:32
保存对话框需要使用部件。按 ctrl + t 打开部件对话框，选择 microsoft common dialog 控件，确定；
放一个这样的控件在窗体上(commondialog1)。
显示保存对话框用: commondialog1.showsave
vb 中保存语句的结构为:
open 文件名 for output as #1
print #1, 文件的新内容
close #1
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯