限制文本框字符的输入个数：
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个字节
SendMessage Text1.hwnd, EM_LIMITTEXT, 10, 0&
End Sub
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个字节
SendMessage Text1.hwnd, EM_LIMITTEXT, 10, 0&
End Sub
1060
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
