通过

Windows Collection Object

  • 项目
Project Developer Reference

Contains a collection of Window objects. The Windows collection for the Application object contains all the windows in the application, whereas the Windows collection for the Project object contains only the windows in the specified project.

Remarks

The Windows collection is maintained for backward compatibility. It is recommended that the Windows2 collection be used for all new development.

Example

Using the Window Object

Use Windows(Index), where Index is the window index number or window caption, to return a single Window object. The following example maximizes the first window in the window list.

Visual Basic for Applications 
  Application.Windows(1).WindowState = pjMaximized

The window caption is the text shown in the title bar at the top of the window when the window is not maximized. The caption is also shown in the list of open files on the bottom of the Windows menu. Use the Caption property to set or return the window caption. Changing the window caption does not change the name of the project. The following example hides the window that contains the caption "Project1".

Visual Basic for Applications 
  If Application.Windows(1).Caption = "Project1" Then
    Application.Windows(1).Visible = False
End If

Using the Windows Collection

Use the Windows property to return a Windows collection. The following example cascades all the windows that are currently displayed in Microsoft Office Project 2007.

Visual Basic for Applications 
  With Application.Windows
    For I = 1 To .Count
        .Item(I).Activate
        .Item(I).Top = (I - 1) * 15
        .Item(I).Left = (I - 1) * 15
    Next I
End With

Use the WindowNewWindow method to create a new window and add it to the collection. The following example creates a new window for the active project.

Visual Basic for Applications 
  Application.WindowNewWindow

See Also