SAVOIR SI UNE FENETRE EST CHARGEE

Messages postés
206
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2007
- - Dernière réponse : DBugs
Messages postés
10
Date d'inscription
mercredi 8 août 2007
Statut
Membre
Dernière intervention
21 janvier 2008
- 14 août 2007 à 22:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/365-savoir-si-une-fenetre-est-chargee

Afficher la suite 
DBugs
Messages postés
10
Date d'inscription
mercredi 8 août 2007
Statut
Membre
Dernière intervention
21 janvier 2008
-
le code de leptidev est bien mieux, pourtant....


sauf qu'il charge la forme qu'on veut tester et si on veut tester si elle charger je pense qu'on veuile qu'elle se charge juste avant :p

Faut donc tester avec FormName (As String) et pas FormName.Name (en plus appeler le paramètre de type Form, FormName c'est pas très logique).

Je met 7 à Mr X à cause des UCase et du For To du coup c'est moins optimisé mais au moins ça fait ce que c'est censé faire.
Renfield
Messages postés
17283
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
56 -
le code de leptidev est bien mieux, pourtant....

le test Min/Maj est inutile ici, et un For Each est plus rapide a executer qu'un For i ...
Proutie66
Messages postés
141
Date d'inscription
samedi 19 octobre 2002
Statut
Membre
Dernière intervention
14 avril 2008
-
euh ya 2 ligne de mois dans ton code leptidev
Ahem
...
leptidev
Messages postés
206
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2007
-
Un peu long tu crois pas ????
Voici un code beaucoup plus rapide :

Public Function IsLoaded(ByVal FormName As Form) As Boolean
Dim formTEMP As Form
IsLoaded = False
For Each formTEMP In Forms
If formTEMP.Name = FormName.Name Then
IsLoaded = True
Exit Function
End If
Next
End Function