| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1055 人关注过本帖
标题:[求助]为什么用CommonDialog无法打开
只看楼主 加入收藏
guanguan
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2007-2-25
收藏
 问题点数:0 回复次数:7 
[求助]为什么用CommonDialog无法打开
我用CommonDialog控件编写了如下代码为什么要查看的文件打不开,请大家帮帮忙,谢谢了!!!

Private Sub Cmd_Click()
On Error GoTo errhandler
CommonDialog1.CancelError = True
CommonDialog1.DialogTitle = "open file"
CommonDialog1.FileName = "" & App.Path & "\persen.mdb ""
CommonDialog1.Filter = "All Files (*.*)|*.*|data Files" & _
"(*.mdb)|*.mdb|Form_files(*.frm)|*.frm"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
errhandler:
If Err = 32755 Then
Exit Sub
End If
End Sub
搜索更多相关主题的帖子: CommonDialog 
2007-02-25 16:25
ioriliao
Rank: 7Rank: 7Rank: 7
来 自:广东
等 级:贵宾
威 望:32
帖 子:2829
专家分:647
注 册:2006-11-30
收藏
得分:0 
Private Sub Cmd_Click()
On Error GoTo errhandler
CommonDialog1.CancelError = True
CommonDialog1.DialogTitle = "open file"
CommonDialog1.FileName = App.Path & "\persen.mdb "
CommonDialog1.Filter = "All Files (*.*)|*.*|data Files" & _
"(*.mdb)|*.mdb|Form_files(*.frm)|*.frm"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
errhandler:
If Err = 32755 Then
Exit Sub
End If
End Sub

/images/2011/147787/2011051411021524.jpg" border="0" />
2007-02-25 16:43
guanguan
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2007-2-25
收藏
得分:0 

楼上的朋友,你指出来的我试过了非常感谢,可是为什么我在点击打开时却打不开呢??

2007-02-25 17:15
PcrazyC
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:5652
专家分:0
注 册:2006-10-20
收藏
得分:0 

这个当然不行,COMMONDIALOG控件的打开是将文件的一些信息存在COMMONDIALOG控件的一些属性里

[此贴子已经被作者于2007-2-26 13:34:06编辑过]


雁无留踪之意,水无取影之心
2007-02-26 13:18
guanguan
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2007-2-25
收藏
得分:0 
那我要如何才能打开,本人刚学习VB没多久,如果问题很简单请不要笑
2007-02-27 11:26
PcrazyC
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:5652
专家分:0
注 册:2006-10-20
收藏
得分:0 

用API函数SHELLEXECUTE


雁无留踪之意,水无取影之心
2007-02-27 11:56
PcrazyC
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:5652
专家分:0
注 册:2006-10-20
收藏
得分:0 
ShellExecute 0&, vbNullString, "文件的路径", vbNullString, vbNullString, vbNormalFocus
ShellExecute Me.hwnd,"open", "文件的路径", vbNullString, vbNullString, vbNormalFocus

[此贴子已经被作者于2007-2-27 15:41:19编辑过]


雁无留踪之意,水无取影之心
2007-02-27 12:00
guanguan
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2007-2-25
收藏
得分:0 
非常感谢
2007-02-27 13:59
快速回复:[求助]为什么用CommonDialog无法打开
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016445 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved