Belle source mais un peu compliqué pour moi.
J'avais un problème semblable et je l'ai résolu comme ceci
Private Sub combo1_KeyPress(KeyAscii As Integer)If Len(Trim(combo1.Text)) >5 And KeyAscii <> 8 Then KeyAscii 0 'limite le box à 5 chars et moins. Si l'on entre plus, on efface.
end sub
j'en ai aussi profité pour contrôler les caractères permis dans le box.
30 juil. 2012 à 21:00
J'avais un problème semblable et je l'ai résolu comme ceci
Private Sub combo1_KeyPress(KeyAscii As Integer)If Len(Trim(combo1.Text)) >5 And KeyAscii <> 8 Then KeyAscii 0 'limite le box à 5 chars et moins. Si l'on entre plus, on efface.
end sub
j'en ai aussi profité pour contrôler les caractères permis dans le box.