在VF的click事件中要想打开一个PPT文件请问代码怎么写?请高手赐教~

发布网友发布时间：2022-05-15 07:41

共2个回答

热心网友时间：2023-10-14 02:09

这个需要调用到其他程序（PowerPoint）来打开PPT文件，这里给一个封装好的程序文件，新建一个程序文件复制一下内容，然后保存为shellstart即可Function shellstart
Parameters documentname* 声明ShellExecute函数
DECLARE INTEGER ShellExecute IN ;
shell32.DLL INTEGER HWND,;
STRING lpszOP, ;
STRING lpszFile, ;
STRING lpszParams, ;
STRING lpszDir, ;
INTEGER fsshowcmd * 指定ShellExecute函数的输出指向Windows桌面
DECLARE INTEGER GetDesktopWindow IN win32api
HWND = GetDesktopWindow() *　指定操作命令为"打开"方式
lpszOP = "open" * 指定ShellExecute操作的对象为 documentname
lpszFile = documentname
lpszParams = "" * 指定ShellExecute的缺省目录为c:\temp
lpszDir = "c:\temp"
fsshowcmd = 1* 执行ShellExecute命令
LNRETURN = ShellExecute(HWND, lpszOP, ;
lpszFile, lpszParams, lpszDir,fsshowcmd)
Retu
CLEAR DLLS

热心网友时间：2023-10-14 02:09

cppt="c:\abc.ppt" &&cppt=SYS(5)+SYS(2003)+"\评议.ppt"
oPP=Createobject("PowerPoint.Application")
oPP.Visible=.T.
oPP.Presentations.Open(cppt)&& 打开 PPT
oPP.ActivePresentation.SlideShowSettings.Run&& 放映 PPT
*oPP.Quit

在VF的click事件中要想打开一个PPT文件 请问代码怎么写?请高手赐教~

在VF的click事件中要想打开一个PPT文件请问代码怎么写?请高手赐教~