VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 自动卷动TextBox
发表评论(0)作者:, 平台:, 阅读:10428, 日期:2000-03-12
传送 EM_LINESCROLL 信息给 TextBox 控制文件,方法是调用 SendMessage API

函数,细节如下:

1. API 的声明:


Const EM_LINESCROLL = &HB6

Private Declare Function SendMessageBynum Lib "user32" Alias "

SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As

Long, ByVal lParam As Long) As Long


注:如果以上的声明放在「一般模块」底下, 应在 Const 之前加上 Public 保留

字, 并且将 Declare 之前的 Private 保留字去掉。

2. 调用范例:

ret = SendMessageBynum(Text1.hwnd, EM_LINESCROLL, 0, 1 ) ' 下卷一行

ret = SendMessageBynum(Text1.hwnd, EM_LINESCROLL, 0, -1 ) ' 上卷一行

ret = SendMessageBynum(Text1.hwnd, EM_LINESCROLL, 1, 0) ' 右卷一列

ret = SendMessageBynum(Text1.hwnd, EM_LINESCROLL, -1, 0) ' 左卷一列

ret = SendMessageBynum(Text1.hwnd, EM_LINESCROLL, 1, 1 ) ' 下卷一行且右

卷一列


注:以上的 Text1 为 TextBox 的名称。