反饋

AppActivate

AppActivate用於激活某一已經運行的應用程序窗口。AppActivate 語句將焦點移動到命名的應用程序或窗口，但並不影響焦點是否最大化或最小化。當用户採取行動改變焦點或將窗口關閉時，就會將焦點從活動的應用程序窗口移動出去。可用Shell 函數啓動一個應用程序並設置窗口樣式。

AppActivate語法

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“

詞條統計