您的位置：程序门 -> vb ->

灵异事件,求高手,shellＥＸＥＣute打开office文件时惟独ppt出问题。

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

灵异事件,求高手,shellＥＸＥＣute打开office文件时惟独ppt出问题。

发表于：2007-01-07 19:15:01 楼主

按钮事件用shellＥＸＥＣute打开office文件
shellＥＸＥＣute me.hwnd, "open ", czfile, vbnullstring, vbnullstring, sw_show
czfile是我的存文件的变量.

程序执行时,打开别的文件都能立刻正常打开,奇怪的是点按钮开ppt型文件时,没有反应,再点一下按钮,这个文件才打开.

究竟怎么回事,请教高手?

发表于：2007-01-08 11:45:201楼得分:0

灵异事件仅仅发生在你的电脑上
private declare function shellＥＸＥＣute lib "shell32.dll " alias "shellＥＸＥＣutea " （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（)
shellＥＸＥＣute 0, "open ", "d:\ppt.ppt ", vbnullstring, vbnullstring, vbnormalfocus
end sub
没有任何问题

发表于：2007-01-08 23:47:382楼得分:0

我晕，没检查最低级的错误。我的常量没有从api viewer中复制定义到模块。

又仔细调试才发现我的显示参数是空的。
不过，当参数为空时，该api在第6个位置上已什么默认参数显示？为什么office的几个文件还不一样呢。

发表于：2007-01-09 11:45:073楼得分:0

我说的好象不太清楚.写明白点

实现利用api打开offcie文件:
'模块中定义
public declare function shellＥＸＥＣute lib "shell32.dll " alias "shellＥＸＥＣutea " （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

public const sw_showmaximized = 3 '这里我漏掉了，低级错误啊。
public const sw_show = 5

'窗体中:
private sub command1_click（)
shellＥＸＥＣute 0, "open ", "d:\ppt.ppt ", vbnullstring, vbnullstring, sw_show
end sub

附带问别个问题,如何用程序关闭office文件呢?我搜了一些网上的说明,好象没有很直接的办法,试了一下用传消息的方式，没成功.
哪位有通过的方法代码?

发表于：2007-01-09 12:43:014楼得分:0

默认是0，如果你不定义的话
至于为什么不一样，我就不知道了

下一篇：呼叫中心（高分请求)
上一篇：50分请教:dir查找文件遇到长文件名的问题

其他资讯