打印本文   关闭窗口

利用EM_LINESCROLL信息控制TextBox的卷动

作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:45:00  文章录入：杜斌  责任编辑：杜斌

在含有卷动轴的 TextBox 中， 如何以程序控制 TextBox 的卷动？传送 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 的名称。

打印本文   关闭窗口