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
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.