Savoir si une fenetre est chargee

Commenter

Contenu du snippet

Teste si une fenetre est chargee en memoire.
Cette fonction ne teste pas si la fenetre est visible.

Source / Exemple : 


'**************************************************************************
' Name       : xIsFormLoaded
' Purpose    : Test if a form is loaded
' Syntax     : xIsFormLoaded(TheForm)
' Parameters : TheForm : The form to test
' Return     : True or False
'**************************************************************************
Public Function xIsFormLoaded(ByVal FormName As String) As Boolean
    Dim intCount As Integer
    
    xIsFormLoaded = False
    FormName = UCase(FormName)
    For intCount = 0 To Forms.Count - 1
        If UCase(Forms(intCount).Name) = FormName Then
            xIsFormLoaded = True
            intCount = Forms.Count
        End If
    Next
End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Mr X)