Comment tester l'existence d'un objet??

Signaler
Messages postés
5
Date d'inscription
vendredi 22 novembre 2002
Statut
Membre
Dernière intervention
25 novembre 2002
-
Messages postés
12
Date d'inscription
vendredi 1 août 2008
Statut
Membre
Dernière intervention
25 avril 2009
-
Bonjour, je cherche à savoir si par exemple, il est possible de tester l'existence d'un label (avec son nom) :

if Controls(nomLabel).Exists = false then Form1.Controls.Add "VB.Label", nomLabel, Form1
end if

Est-ce qu'une tel fonction existe?

6 réponses

Messages postés
12
Date d'inscription
vendredi 1 août 2008
Statut
Membre
Dernière intervention
25 avril 2009
1
Cela je sais fait bien longtemps que tu as posé ta question mais  j'ai trouvé la solution !

'By Raphi (Test l'existence d'un objet par son nom)

Dim MonControl As Control

For Each MonControl In Controls
   If MonControl.Name = "Tu inscris ici le nom de ton control genre label_pour_test" Then
         MsgBox "Chouette alors mon control existe ! lol :D"
   End If
Next MonControl

Voilà, a toi de rajouter le bout de code pour l'execution de la condition !

Ciao ciao Raphi
1
Messages postés
360
Date d'inscription
vendredi 24 août 2001
Statut
Membre
Dernière intervention
9 juillet 2008
3
'IsObject()'

==============
Site Web de JDPROG
Présentation de MP3 Index
Logiciel d'indexation de fichier MP3
0
Messages postés
12
Date d'inscription
jeudi 31 octobre 2002
Statut
Membre
Dernière intervention
27 novembre 2002

Ceci pourra peut-être t'aider:

Dim ctlControl As Control
For Each ctlControl In Controls
If TypeName(ctlControl) = "Label" Then
Form1.Control.Add "VB.Label", nomLabel, Form1
End If
Next ctlControl

Titimoteph
0
Messages postés
5
Date d'inscription
vendredi 22 novembre 2002
Statut
Membre
Dernière intervention
25 novembre 2002

Je n'arrive pas à tester le nom de cette façon :
IsOject("label1")
il faut que je saisisse
IsOject(label1)
et le pb c'est que si label1 n'est pas deja déclaré j'ai une erreur.
0
Messages postés
5
Date d'inscription
vendredi 22 novembre 2002
Statut
Membre
Dernière intervention
25 novembre 2002

Je n'arrive pas à tester le nom de cette façon :
IsOject("label1")
il faut que je saisisse
IsOject(label1)
et le pb c'est que si label1 n'est pas deja déclaré j'ai une erreur.
0
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Open "Chemin\form1.frm" For Input As #1
Do While Not EOF(1)
Line Input #1, ligne
If InStr(ligne, "Label1") Then
MsgBox "Label1 existe"
Exit Sub
End If
Loop
Close
MsgBox "Label1 n'existe pas"
'création de Label1
0