常用的API函数汇总

限制文本框字符的输入个数：

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