VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 732|回复: 2

[求助] CommonDialog1.filename的路径为什么重启Dialog后还会有?

[复制链接]
发表于 2016-12-21 19:25:18 | 显示全部楼层 |阅读模式
各位老师好,遇到一个可能很简单的奇怪情况:
       我引用CommonDialog1,用它打开文件夹来选取文件,遇到一个意外:
       第一次打开CommonDialog窗口时,下面的地址栏是空的,因为我没有选取文件。这是正常的;
        当我选择了一个文件、关闭CommonDialog1后,第二次用到CommonDialog1打开时,发现下面地址栏中竟然是上一次选择过的文件名。
          我不想要这个地址名。请问如何处理呢?
  1. Dim 文件全名   
  2.     CommonDialog1.Filter = "*.bmp|*.jpg|*.png"
  3.     CommonDialog1.FilterIndex = 2
  4.     CommonDialog1.DialogTitle = "保存到指定文件夹"
  5.     CommonDialog1.ShowOpen
  6.     文件全名 = CommonDialog1.filename
  7.     Stop
复制代码
我在上面stop时就会发现上述状况。
发表于 2016-12-22 05:59:24 | 显示全部楼层
     Dim 文件全名   
        CommonDialog1.Filter = "*.bmp|*.jpg|*.png"
        CommonDialog1.FilterIndex = 2
        CommonDialog1.DialogTitle = "保存到指定文件夹"
        CommonDialog1.ShowOpen
        文件全名 = CommonDialog1.filename
        CommonDialog1.filename=" "     '加這行就可以清除第一次的文件路徑
        Stop

评分

参与人数 1威望 +5 人气 +1 收起 理由
bruly + 5 + 1 很给力

查看全部评分

回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2016-12-21 20:14:01 | 显示全部楼层
用下面的代码,网上截取的代码,可以了,感谢大家~!
  1.   On Error GoTo myerr
  2.     Dim myfile As String
  3.     Me.CommonDialog1.CancelError = True
  4.     Me.CommonDialog1.Filter = "all file(*.*)|*.*"
  5.     Me.CommonDialog1.ShowOpen
  6.     If Me.CommonDialog1.FileName = "" Then Exit Sub
  7.     myfile = Me.CommonDialog1.FileName
  8.     MsgBox "你选择了确定,并且选择了文件: " & myfile
  9.     Exit Sub
  10. myerr:
  11.     Select Case Err.Number
  12.     Case 32755
  13.          MsgBox "你选择了取消"
  14.     End Select
复制代码
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2017-11-18 14:41

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表