vider plusieur textboxRésolu

Question

j'essai de vider tous les champs textbox dans mon form où j'ai deux groupbox 
j'ai utilisé cette procedure mais ça marche pas si vous pouvez m'aider


Sub vider()
        For Each c As Control In Me.Controls
            If TypeOf c Is TextBox Then
                c.Text = ""
            End If
        Next
    End Sub

elguevel · Answer

Normal, pour lui C est de type Control, et non TextBox -> il faut caster :

CType(C, TextBox).Clear()

Bon Code !

PCPT · Answer

salut,

[quote= elguevel]Normal, pour lui C est de type Control, et non TextBox/quote aucun rapport... 
c est de type CONTROL et doit le rester, puisqu'on parcoure une COLLECTION DE CONTROL

l'erreur ici est que les textboxes ne sont plus dans la collection me.controls mais mongroupbox.controls

rien n'empêche ensuite de faire le cast oui, ou .text  = string.empty, là c'est au choix

    Private Sub vider()
        For Each g As Control In Me.Controls
            If TypeOf g Is GroupBox Then
                For Each t As Control In g.Controls
                    If TypeOf t Is TextBox Then CType(t, TextBox).Clear()
                Next
            End If
        Next
    End Sub

++
[hr]

elguevel · Answer

Désolé j'avais pas vu que les Textbox etaient dans des controls, et effectivement il faut preciser le conteneur ( ex : For Each C As Control In MaGroupBox.Controls )

Sinon je parlais du Cast pour le Clear et non la méthode Text.

Bien vu ...

cs_zwiki · Answer

merci pour vos réponses ça marche bien

Vider plusieur textbox

4 réponses

Votre réponse

Discussions similaires