AppActivate
AppActivate
AppActivate用於激活某一已經運行的應用程序窗口。AppActivate 語句將焦點移動到命名的應用程序或窗口，但並不影響焦點是否最大化或最小化。當用戶採取行動改變焦點或將窗口關閉時，就會將焦點從活動的應用程序窗口移動出去。可用Shell 函數啟動一個應用程序並設置窗口樣式。
AppActivate title[, wait]
AppActivate 語句的語法具有以下幾個命名參數：
| 部分 | 描述 |
| title | 必需的。字元串表達式，所要激活的應用程序窗口的標題。可以使用 Shell 函數返回的任務識別碼來替換 title，以激活應用程序。 |
| wait | 可選的。Boolean 值，說明在激活另一個應用程序之前調用的應用程序是否有焦點。如果為 False（預設），那麼，即使調用的應用程序沒有焦點，也直接激活指定的應用程序。如果為 True，則調用的應用程序會等到有焦點后，才激活指定的應用程序。 |
在決定激活哪個應用程序時，請將 title 與每一個運行中的應用程序的標題字元串進行比較。如果沒有完全匹配，就激活任何這樣的應用程序，其標題字元串以 title 開頭。如果以 title 命名的應用程序有很多實例，則激活任何一個實例。
本示例說明使用 AppActivate 語句來激活應用程序的各種用法。示例中用到的 Shell 語句均假定該應用程序已經存在指定的路徑中。
Dim MyAppID, ReturnValue
AppActivate "Microsoft Word" ' 激活Microsoft Word。
' AppActivate 也可利用Shell 函數的返回值。
MyAppID = Shell("C:\WORD\WINWORD.EXE", 1) ' 運行Microsoft Word。
AppActivate MyAppID ' 激活Microsoft Word。
' 您也可使用Shell 函數的返回值。
ReturnValue = Shell("c:\EXCEL\EXCEL.EXE",1) ' 運行Microsoft Excel。
AppActivate ReturnValue ' 激活Microsoft ' Excel。
’補充：
'這裡的shell函數的返回值就是該進程的PID，可以打開任務管理器驗證這一點。
‘對於已經打開的應用程序，PID可以通過其他方式獲取。
‘於是，激活應用程序窗口就可以寫成AppActivate ”待激活程序的進程PID“