说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB利用API 使Text框只读

HTML文档下载 WORD文档下载 PDF文档下载
VB利用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
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘