在宣告部分加入以下api宣告PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLongPrivateConstSW_SHOWNORMAL=1新增一個Command,命名為CmdRunCaption屬性設為開啟課件加入以下程式碼PrivateSubCmdRun_Click()DimstrPPTasstringstrPPT=IIf(Right$(App.Path,1)="\",App.Path,App.Path&"\")&"a.ppt""你要開啟的ppt檔案路徑,這裡假定為程式所在目錄下的a.ppt檔案ShellExecuteMe.hwnd,vbNullString,strPPT,vbNullString,vbNullString,SW_SHOWNORMALEndSub
在宣告部分加入以下api宣告PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLongPrivateConstSW_SHOWNORMAL=1新增一個Command,命名為CmdRunCaption屬性設為開啟課件加入以下程式碼PrivateSubCmdRun_Click()DimstrPPTasstringstrPPT=IIf(Right$(App.Path,1)="\",App.Path,App.Path&"\")&"a.ppt""你要開啟的ppt檔案路徑,這裡假定為程式所在目錄下的a.ppt檔案ShellExecuteMe.hwnd,vbNullString,strPPT,vbNullString,vbNullString,SW_SHOWNORMALEndSub