Gets the collection of open screens in the application. | |
Syntax: | Set GefScreens = object.Screens |
Description: | In CimView, this collection does not
include the screens in the cache. Example: Sub GefApplication_Screens() Dim oCimApp As
GefApplication Dim oCimScrs As GefScreens Set oCimApp =
CimGetScreen.Application Set oCimScrs =
oCimApp.Screens MsgBox "There are currently " &
oCimScrs.Count & " open." MsgBox "The first screen is " &
oCimScrs.Item(0).Name End Sub |