Question

多种对象 Tasks Task

该集合对象由 Task 对象组成，这些对象代表当前系统中运行的所有任务。

使用 Tasks 集合

使用 Tasks 属性可返回 Tasks 集合。下列示例确定 Microsoft Excel 是否正在运行。如果是，将切换至该程序并将其最大化；否则将启动该程序。

If Tasks.Exists("Microsoft Excel") = True Then
 Tasks("Microsoft Excel").Activate
 Tasks("Microsoft Excel").WindowState = wdWindowStateMaximize
Else
 Shell "C:\Program Files\" & _
 "Microsoft Office\Office10\Excel.exe"
End If

使用 Visual Basic 的 Shell 函数运行一个可执行程序并将该程序添至 Tasks 集合。

使用 Tasks(index) 可返回单独的 Task 对象，其中index 为应用程序名称或索引序号。下列示例打开 Tasks 集合中第一个可视任务的应用程序窗口并调整其尺寸。

With Tasks(1)
 If .Visible = True Then
 .Activate
 .Width = 400
 .Height = 200
 End If
End With

如果“计算器”应用程序在 Tasks 集合中，则下列示例恢复该应用程序窗口。

If Tasks.Exists("Calculator") = True Then
 Tasks("Calculator").WindowState = wdWindowStateNormal
End If