Wird die aktuelle Form modal oder non-modal angezeigt? Wie kann man aus der aktuell angezeigten Form feststellen, ob diese modal oder non-modal angezeigt wird? Die Antwort hierzu finden Sie hier.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  9.125
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 17 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wie kann man eigentlich aus der aktuell angezeigten Form feststellen, ob diese modal oder non-modal angezeigt wird?
Eine Möglichkeit wäre zu versuchen eine zusätzliche Form non-modal aufrufen. Lässt sich die Form modal anzeigen, wird die aktuelle Form non-modal angezeigt - anderfalls modal. Die zusätzliche Form soll aber nicht sichtbar angezeigt werden! Dies erreicht man, indem man die Form mittels Move-Methode aus den sichtbaren Bildschirmbereich verschiebt.

Fügen Sie Ihrem Projekt zunächst eine neue Form hinzu - ohne jegliche Controls und nennen die Form frmDummy. Im Form_Load-Ereignis wird die Form aus den sichtbaren Bereich verschoben:

Private Sub Form_Load() 
  ' aus den sichtbaren Bereich schieben
  Me.Move -5000, -5000, 500, 500
End Sub

' Prüfen, ob die aktuelle Form modal oder 
' non-modal angezeigt wird
Public Function IsModal()
  On Error Resume Next
  Dim oTemp As New frmDummy
  oTemp.Show
  IsModal = (Err.Number = 401)
  Unload oTemp
  Set oTemp = Nothing
  On Error GoTo 0
End Function

Die Prüfung erfolgt dann wie folgt (in einer beliebigen Form):

' Modal?
If IsModal() Then
  MsgBox "Form wird modal angezeigt"
Else
  MsgBox "Form wird non-modal angezeigt"
End If