Discussion :

[garbat]

Bonjour,

J'ai créé une fonction permettant d'effacer tous les textbox dans une forme.

Je souhaiterai utiliser cette fonction pour, par exemple, limiter la taille du texte à 10 caractères. La propriété ctl.MaxLength est inaccessible (alors que ctl.Text l'est) !
Question : comment modifier cette propriété (ou une autre) ?

Merci
---------------------------------------------------------

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub EffacerTextBox(ByVal forme As Control)
        Dim ctl As Control
 
        For Each ctl In forme.Controls
            If TypeOf ctl Is System.Windows.Forms.TextBox Then
                ctl.Text = "" 
            Else
                If TypeOf ctl Is System.Windows.Forms.GroupBox Then EffacerTextBox(ctl)
            End If
        Next ctl
 
        Return
End Sub

[Pol63]

ctl est défini dans ton code comme un control (et c'est logique d'ailleurs)
la classe control a une propriété text, mais n'a pas de propriété maxlength
la classe textbox est hérité de la classe control, elle hérite donc de text et elle ajoute maxlength


solution : caster la variable
directcast(ctl,textbox).maxlength = ...

[garbat]

Je ne connaissais pas cette 'fonction'.
Je vous adresse un grand Merci.
Cordialement.