Discussion :

[Naruseb]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Theocourant]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Naruseb]

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

A bientot

[Le Pharaon]

Avec CallByName tu peux trouver ton bonheur
Dans un évenement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jmfmarques]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jihnn]

Il y a aussi ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...