7,763
社区成员
发帖
与我相关
我的任务
分享
...全文
请发表友善的回复…
发表回复
思考 2005-11-01
- 打赏
- 举报
ShellExecute 0&, vbNullString, "c:\xx.ppt", vbNullString, vbNullString, vbNormalFocus
TBNTB 2005-11-01
- 打赏
- 举报
或者shell "POWERPNT.EXE ddd.ppt",3
TBNTB 2005-11-01
- 打赏
- 举报
shell "C:\Program Files\Microsoft Office\Office\POWERPNT.EXE ddd.ppt",3
winehero 2005-11-01
- 打赏
- 举报
Shell或PowerPoint对象都可以。
northwolves 2005-11-01
- 打赏
- 举报
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 hwnd, "open", "E:\xx.ppt", VbnullString, vbNullString, 5
End Sub
Private Sub Command1_Click()
ShellExecute hwnd, "open", "E:\xx.ppt", VbnullString, vbNullString, 5
End Sub
ChumpKlutz 2005-11-01
- 打赏
- 举报
用Shell
