filtrer par type d'objet

[mromain]

Bonjour le forum

J'aimerai savoir quelle fonction permet de vérifier le type d'un objet.

je vous ai mis un petit exemple où j'affiche tous les noms des contrôles d'un UF.
j'aimerai n'afficher que le nom des contrôles de type TextBox.

voici le code

Option Explicit

Private Sub CommandButton1_Click()

Dim curCtrl As Control
Dim nameList As String

For Each curCtrl In Me.Controls
    'je souhaiterai filtrer ici en fonction du type de control
    nameList = nameList + curCtrl.Name + vbNewLine
Next curCtrl

MsgBox nameList

End Sub

et mon fichier en PJ.


Merki

 

[kjin]

Re : filtrer par type d'objet

Bonjour,
Essaies ceci :

Private Sub CommandButton1_Click()
Dim CurCtrl As Control
Dim nameList As String
For Each CurCtrl In Me.Controls
If TypeName(CurCtrl) = "TextBox" Then
nameList = nameList + CurCtrl.Name + vbNewLine
End If
Next CurCtrl
MsgBox nameList
End Sub

A+
kjin

 

[Guest]

Re : filtrer par type d'objet

Bonjour Romain,
bonjour à toutes et tous,

voici la boucle for corrigée:

For Each curCtrl In Me.Controls
    'je souhaiterai filtrer ici en fonction du type de control
    [COLOR=red]If TypeName(curCtrl)="TextBox" Then[/COLOR]  nameList = nameList + curCtrl.Name + vbNewLine
Next curCtrl

Bonne journée

 

[skoobi]

Re : filtrer par type d'objet

Bonjour,

pour cela utilise la fonction TypeName:

TypeName(curCtrl).

Bonne journée.

Edit: oupppsss, collision, bonjour Hasco, kjin.

 

[mromain]

Re : filtrer par type d'objet

bonjour kjin, bonjour Hasco

C'est exactement ce que je voulais faire.
Merci pour ces réponses rapides et à bientôt

A+