comment tester l'existence d'un objet??

Question

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?

cs_processus · Answer

'IsObject()'

 ==============
 Site Web de JDPROG 
Présentation de MP3 Index
Logiciel d'indexation de fichier MP3

titimoteph · Answer

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

poiskail · Answer

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.

poiskail · Answer

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.

cs_rene38 · Answer

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

RaphiBenn · Answer

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

Comment tester l'existence d'un objet??

6 réponses

Discussions similaires