文本框的MaxLength属性失效

Question

文本框的MaxLength我设置为80,但是我用 Text1.SelText 这句语句插入字符到文本框,无论插入几个字符都可以,为什么呢?而键盘输入和粘贴的时候MaxLength又并没有失效,怎么回事?

Answer 1

不会吧。
你可以在SelText = 多过MaxLength。
再看看text只会有80个

Answer 2

用 Text1.SelText 这句语句插入字符到文本框时判断一下就可以了

Answer 3

同意楼上的,可见那个MaxLength只是控制用户通过键鼠录入的,对你自己代码控制的不做检查,那你还是自己在修改文本内容的代码中检查吧

Answer 4

试试 API:Private Declare Function SendMessage Lib _
"user32" Alias "SendMessageA" (ByVal hWnd _
As Long, ByVal msg As Long, ByVal wParam _
As Long, ByVal lParam As Long) As Long
Const EM_LIMITTEXT = &HC5
Const Max_Char = 80Private Sub Form_Load()
Call SendMessage(Text1.hWnd, EM_LIMITTEXT, Max_Char, 0&)
End Sub

Answer 5

你的方法还真的是可行,谢谢了......不过一个那么简单的功能还要用到API,感觉怪怪的.........