AppActivate用於激活某一已經運行的應用程式視窗。AppActivate 語句將焦點移動到命名的應用程式或視窗，但並不影響焦點是否最大化或最小化。當用戶採取行動改變焦點或將視窗關閉時，就會將焦點從活動的應用程式視窗移動出去。可用Shell 函式啟動一個應用程式並設定視窗樣式。
基本介紹
- 中文名：AppActivate
- 作用：激活一應用程式視窗
- 語法：AppActivatetitle[,wait]
- 簡介：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“
