Microsoft Visio 2013 - Das Handbuch

Die Fenster (Windows)

Die Anzahl der (offenen) Fenster kann über die Eigenschaft Count der Auflistung Windows abgefragt werden:

MsgBox Application.Windows.Count

Sub VisioDateien1()
   Dim i As Integer
   Dim strFensterNamen As String
   For i = 1 To Application.Windows.Count
      strFensterNamen = strFensterNamen & vbCr & _
         Application.Windows(i).Caption
   Next
   MsgBox strFensterNamen
End Sub

Listing 16.4 Die bei 0 beginnende Schleife durchläuft alle Fenster und gibt deren Beschriftungen in einem Meldungsfeld aus

Manchmal muss überprüft werden, um was für ein Fenster es sich handelt. Dies kann über die visWinTypes-Konstante ermittelt werden. Das folgende Beispiel in Listing 16.5 überprüft, welches Fenster den Fokus besitzt.

Sub FensterTest() Dim vsFenster As Window ...