Question 132

Comment déterminer si un formulaire est chargé ?

La collection "Forms" contient la liste de tous les formulaires chargés. Vous pouvez donc parcourir cette collection pour déterminer si le formulaire à tester s'y trouve ou non, et donc savoir s'il est ou non chargé en mémoire. Voici un exemple de code montrant cette technique :

Option Explicit

Public Function IsLoaded(ByRef frm As Form) As Boolean

    Dim f As Form

    For Each f In Forms
        If f Is frm Then
            IsLoaded= True
            Exit For
        End If
    Next

End Function

Private Sub Form_Load()

    MsgBox IsLoaded(Form2) ' Retourne Faux
    Load Form2
    MsgBox IsLoaded(Form2) ' Retourne True
    Unload Form2

End Sub

Voir aussi :

• Comment changer la feuille chargée par défaut au démarrage ?
• Comment empecher le lancement d'une application si celle-ci tourne deja ?