SAVOIR SI UNE FENETRE EST CHARGEE

leptidev Messages postés 206 Date d'inscription mercredi 30 janvier 2002 Statut Membre Dernière intervention 4 décembre 2007 - 15 nov. 2002 à 15:07
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

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
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 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
8 févr. 2006 à 18:36
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
21 janv. 2004 à 01:43
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
15 nov. 2002 à 15:07
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
Rejoignez-nous