如何通过access的代码打开ebx电子书

hgxly

我想在access中打开ebx文件（xreader软件已经安装），应该通过什么语句来实现？望指教。

t小宝

打开外部程序用 Shell

tmtony

application.followhyperlink

hgxly

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

asklove

application.followhyperlink 相当于超链接
例如 文本框Text0 内容是：D:\12312312.jpg
        文本框双击事件写入：application.followhyperlink me.text0
就能打开这个 12312312.jpg 图片

hgxly

谢asklove的解释，但涛声依旧。
能打开txt文件，但ebx文件无效。
（我在资源管理去中能直接打开ebx文件）

todaynew

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

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

hgxly

谢谢todaynew，解决了。虽然这个xreader.exe要全路径，但我想鼓捣一下应该也能解决的。

t小宝

用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

回复 t小宝 的帖子

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