VB编程技巧：利用API 使Text框只读

时　间:2008-05-16 08:19:49
作　者:UMVSOFT整理   ID：16  城市：江阴
摘　要:VB编程技巧：利用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



Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店