利用API 使Text框只读

利用API 使Text框只读   
　           
声明：
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Const WM_USER = &H400
Const EM_SETREADONLY = (WM_USER + 31)
使用：
' 例如使 TEXT1 只读
Dim RetVal As Long
RetVal = SendMessage(Text1.hwnd, EM_SETREADONLY, True, ByVal 0&)
与设置DISABLE 属性不同的是，TEXT1 只读后光标还是可以定位，并能支持多行的移动。
98-7-22 更新： 其实在 VB5 中的 Locked 属性也有类似的效果，更方便。

在 Textbox 中，录入 N 个字符后移到下栏
在 Textbox 的 Change 中加入：
IF (LEN(TEXT1)) >= N THEN
SENDKEY "{TAB}"
END IF