VBGood网站全文搜索 Google

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

VB爱好者乐园(VBGood)

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

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

[复制链接]

117

主题

2

听众

1690

积分

中级程序员

Rank: 3

擂点
0
人气
0
威望
0
注册时间
2012-12-27
精华
0
帖子
322
发表于 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时就会发现上述状况。

117

主题

2

听众

1690

积分

中级程序员

Rank: 3

擂点
0
人气
0
威望
0
注册时间
2012-12-27
精华
0
帖子
322
发表于 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
复制代码
回复

使用道具 举报

43

主题

4

听众

2万

积分

网络设计师

Rank: 7Rank: 7Rank: 7

擂点
0
人气
23
威望
25
注册时间
2008-10-27
精华
0
帖子
779
发表于 2016-12-22 05:59:24 |显示全部楼层
     Dim 文件全名   
        CommonDialog1.Filter = "*.bmp|*.jpg|*.png"
        CommonDialog1.FilterIndex = 2
        CommonDialog1.DialogTitle = "保存到指定文件夹"
        CommonDialog1.ShowOpen
        文件全名 = CommonDialog1.filename
        CommonDialog1.filename=" "     '加這行就可以清除第一次的文件路徑
        Stop
回复

使用道具 举报

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

文字版|手机版|VBGood

GMT+8, 2017-1-17 23:04

VB爱好者乐园(VBGood)
回顶部