leptidev
Messages postés206Date d'inscriptionmercredi 30 janvier 2002StatutMembreDernière intervention 4 décembre 2007
-
15 nov. 2002 à 15:07
DBugs
Messages postés10Date d'inscriptionmercredi 8 août 2007StatutMembreDernière intervention21 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.
DBugs
Messages postés10Date d'inscriptionmercredi 8 août 2007StatutMembreDernière intervention21 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és17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 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és141Date d'inscriptionsamedi 19 octobre 2002StatutMembreDernière intervention14 avril 2008 21 janv. 2004 à 01:43
euh ya 2 ligne de mois dans ton code leptidev
Ahem
...
leptidev
Messages postés206Date d'inscriptionmercredi 30 janvier 2002StatutMembreDerniè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
14 août 2007 à 22:53
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.
8 févr. 2006 à 18:36
le test Min/Maj est inutile ici, et un For Each est plus rapide a executer qu'un For i ...
21 janv. 2004 à 01:43
Ahem
...
15 nov. 2002 à 15:07
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