Tester l'existence d'un control dans une form

Bonjour à tous,

je voudrais savoir comment on peut tester l'existence d'un control dans une form.

Pour le moment j'ai mis le code suivant :

Code:

---

1 2 3 4 5 6 7

dim oControl as control for each oControl in me.controls if oControl.name="BTN_QUITTER" then stop endif next oControl

---

Ici je m'arrete sur stop si je trouve le control nommé "BTN_QUITTER".

Je voulais donc savoir si il existe un moyen moins lourd de tester ceci.

Merci d'avance.

Re,

Alors, il n'existe pas d'autre moyen que de faire une boucle sur tous les contrôles de ta form.

Je rajouterais quelques détails (en rouge) d'un point de vue pratique :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

dim oControl as control dim ctrlExist as boolean ctrlExist=false for each oControl in me.controls if oControl.name="BTN_QUITTER" then ctrlExist=true exit for endif next oControl

---

Comme cela tu sauras si le contrôle existe avec la variable ctrlExist

+

Théo

Ok, je te remercie, le stop était juste un pour l'exemple :), pour pas mettre les lignes de code ^^.

A bientot :)

Avec CallByName tu peux trouver ton bonheur
Dans un évenement

Code:

---

1 2 3 4 5 6 7

Private Sub Form_Load() If ControleExists(Me, "nomControle") Then MsgBox "Ok ! ça existe" Else MsgBox "Non ! ça n'existe pas" End If End Sub

---

Dans un mondule

Code:

---

1 2 3 4 5 6

Public Function ControleExists(ByRef o As Object, ByVal nomPropriete As String) As Boolean On Error Resume Next CallByName o, nomPropriete, VbGet ControleExists = (Err.Number = 0) End Function

---

Il n'et pas utile de passer par une variable de type string pour celà, puisque l'on doit se contenter de vérifier qu'un contrôle (dont un suppose donc le nom) existe :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Command1_Click() MsgBox teste(Text2) End Sub   Function teste(toto) On Error Resume Next teste = "n'existe pas" toto.Width = 200 ' ou toute autre vérif (par exemple sur la propriété .Name) If Err = 0 Then teste = "existe" End Function

---

EDIT :

Voilà un autre exemple, sans gestion d'erreur, en jouant avec la propriété Name (toujours présente, elle, y compris pour les contrôles spéciaux tels que Line,...)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Command1_Click() MsgBox teste(Text1) End Sub   Function teste(toto) teste = "" On Error Resume Next teste = toto.Name If teste <> toto.Name Then teste = "n'existe pas" Else teste = "existe" End If End Function

---

Il y a aussi ceci :

Code:

---

If Not Control Is Nothing Then '.

---

Mais il y a une erreur qui se produit si l'objet n'existe pas. Il faut donc supprimer "Option Explicit" et ajouter "On Error Resume Next", et ensuite gérer...