Office中国论坛/Access中国论坛

标题: 如何通过access的代码打开ebx电子书 [打印本页]

作者: hgxly 时间: 2010-8-25 21:17
标题: 如何通过access的代码打开ebx电子书
我想在access中打开ebx文件（xreader软件已经安装），应该通过什么语句来实现？望指教。

作者: t小宝 时间: 2010-8-26 11:07
打开外部程序用 Shell

作者: tmtony 时间: 2010-8-26 14:53
application.followhyperlink

作者: hgxly 时间: 2010-8-26 15:34
二位先谢了。
但问题是我能用shell打开txt和exe，就不知道如何打开ebx文件。application.followhyperlink不太理解。
能否详细点给我条源码，比如我要打开c：\a.ebx,应该怎样写。

作者: asklove 时间: 2010-8-26 16:35
application.followhyperlink 相当于超链接
例如文本框Text0 内容是：D:\12312312.jpg
文本框双击事件写入：application.followhyperlink me.text0
就能打开这个 12312312.jpg 图片

作者: hgxly 时间: 2010-8-26 17:09
谢asklove的解释，但涛声依旧。
能打开txt文件，但ebx文件无效。
（我在资源管理去中能直接打开ebx文件）

作者: todaynew 时间: 2010-8-27 08:48

二位先谢了。
但问题是我能用shell打开txt和exe，就不知道如何打开ebx文件。application.followhyperlink不 ...
hgxly 发表于 2010-8-26 15:34

if Shell("explorer.exe " & "文件名称", vbNormalFocus)=0 then exit sub

作者: hgxly 时间: 2010-8-28 00:43
谢谢todaynew，解决了。虽然这个xreader.exe要全路径，但我想鼓捣一下应该也能解决的。

作者: t小宝 时间: 2010-8-28 09:51
用7楼的方法，可能在打开时会出现提示打开对话框。
如果ebx文件已在系统中注册，用API则不需要xreader.exe名称：
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
ShellExecute 0, "open", "文件名", vbNullString, vbNullString, 1
End Sub

作者: hgxly 时间: 2010-8-28 23:18
回复 t小宝 的帖子

为打开pdf文件，api已用。
然则“ShellExecute 0, "open", "文件名", vbNullString, vbNullString, 1”句并不见效。
通过安装生成的xreader系统，并确认以xreader.exe为打开ebx文件之唯一，应该视为ebx文件已经注册吧（其他地方直接点击ebx文件就能打开），但在access中就是不行。

作者: hgxly 时间: 2010-8-29 00:01

用7楼的方法，可能在打开时会出现提示打开对话框。
如果ebx文件已在系统中注册，用API则不需要xreader.exe ...
t小宝发表于 2010-8-28 09:51

刚才又试了一下，只要将t小宝的下面一句：
Call ShellExecute(0, "open", "" & stAppName, "", vbNullString, vbNullString, 1)
改成：
Call ShellExecute(hwnd, "Open", "" & stAppName, "", CurrentProject.Path, 1)
就行了。
谢过大家了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)