怎样用SendMessageLong来限制文本框输入内容长度?

[zhangcoco]

我见有人这样用 是用在treeview上的
Private Sub TreeView1_BeforeLabelEdit(Cancel As Integer)
Dim lEditHWND As Long
'得到treeview上编辑框的句柄
lEditHWND = SendMessageLong(TreeView1.hwnd, TVM_GETEDITCONTROL, 0, 0)
' 限制到20个字符
If lEditHWND > 0 Then
SendMessageLong lEditHWND, EM_LIMITTEXT, 20, 0
End If

End Sub

可我放在text1_change上却不管用 我想应该是其中的参数写的不对
请教该如何写? 用SendMessageLong可以得到文本框输入的行数 网上有很多例子 可怎样达到限制输入长度呢？

[zhangcoco]

谢谢暴风雨
十分的感谢 我要的就是这个答案

[zhangcoco]

ps 怎么利用msdn学习呢？我在msdn里搜索SendMessageLong却搜索为空？

[programfish]

SendMessageLong是API，在MSDN中没有。

[zhangcoco]

我知道它是api 难道msdn里没有api的讲解？

[programfish]

限制文本框内容的长度用。text.MaxLength属性就行了。

[programfish]

msdn中没有，查API大全。

[zhangcoco]

谢谢楼上的 看来我是舍近求远了

[rainstormmaster]

//SendMessageLong是API，在MSDN中没有

晕了，SendMessageLong不过是SendMessage的一种安全声明方式而已，在msdn中你应该查找SendMessage

[rainstormmaster]

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_LIMITTEXT = &HC5

Private Sub Form_Load()
'设置textbox最多只能输入10个字节（10个英文字符或5个汉字）
SendMessage Text1.hwnd, EM_LIMITTEXT, 10, 0&
End Sub