回覆列表
  • 1 # 丶網癮少女丶丶

    在宣告部分加入以下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

  • 中秋節和大豐收的關聯?
  • 開個功夫雞排店大概需要多少錢?