2009-10-11 8 views

Répondre

3

Vous pouvez rechercher la collection Forms

Dim aForm 
For Each aForm In Forms 
    If aForm Is Form1 Then 
    MsgBox "Found Form1" 
    End If 
Next 
1

Si le formulaire est dans votre application, vous pouvez simplement suivre son état interne. Après tout, vous contrôlez les points dans le code quand il peut être créé ou détruit.

7

Vous devez faire la distinction entre chargé et visible.

  • Pour VISU il suffit de cocher la propriété Visible (en notant que le faire pour une forme déchargée entraînera à devenir chargé).
  • Pour l'état de chargement, il n'y a malheureusement pas de propriété. Vous devez itérer sur toutes les formes, et regardez si votre formulaire figure dans la liste des formes chargées:

    Public Function IsFormLoaded(FormToCheck As Form) As Boolean 
        Dim F As Form 
        For Each F In Forms 
        If F Is FormToCheck Then 
         IsFormLoaded = True 
         Exit Sub 
        End If 
        Next 
    End Sub 
    

La collection mondiale Forms contient toutes les formes actuellement chargées.

Questions connexes