Kiểm soát ký tự trong textbox?

[emgaingayngo]

Làm thế nào để mình có thể quy định số ký tự nhập vào trong textbox?
VD : mình chỉ muốn nhập vào Textbox1 2 ký tự, nếu nhập hơn sẽ báo lỗi hoặc không cho nhập nữa.
các bạn chỉ giúp. Thanks Much!

 

[SoiBien]

Bạn có thể sử dụng code sau để kiểm soát độ dài của string trong textbox

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] TextBox1_Change()
[color=darkblue]Const[/color] maxlenght = 2
    [color=darkblue]If[/color] Len(TextBox1) <= maxlenght [color=darkblue]Then[/color]
        [color=green]'Your code here[/color]
    [color=darkblue]Else[/color]
        MsgBox "your text is overlength"
        TextBox1 = Left(TextBox1, maxlenght)
    [color=darkblue]End[/color] [color=darkblue]If[/color]
End [color=darkblue]Sub[/color]

Thân.

 

[minhlev]

Hoặc bạn có thể vào Properties của Texbox đó, gõ giá trị số ký tự nhập vào Maxlength.

 

[anhtuan1066]

Hoặc bạn có thể vào Properties của Texbox đó, gõ giá trị số ký tự nhập vào Maxlength.

Hay! Nhiều khi nghĩ đao to búa lớn quá lại ko nhớ đến những trường hợp đơn giản nhất... Có điều với phương pháp này, nếu ta khống chế độ dài text thì khi gõ hơn số đó, đơn giản là nó.. ko làm gì cả chứ ko có bất cứ báo động nào.. Đây cũng là điều hay, đở mất công quan tâm đến những tiểu tiết...
Tuy nhiên code của Soibien ko phải là ko có giá trị, chúng ta sẽ áp dụng nó trong 1 trường hợp đặc biệt nào đó!
Cám ơn 2 bạn!