利用EM

在一个有滚动轴的文本框中，如何用程序控制文本框的滚动？通过调用SendMessage API函数，将EM_LINESCROLL信息发送到TextBox控制文件，具体如下:

1.API声明:

Const EM_LINESCROLL = &HB6

私有声明函数sendmessage bynum Lib " user 32 " Alias "

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

Long，ByVal lParam As Long)

注意:如果上面的语句放在“通用模块”下，那么在Const之前要加上Public保留字，在Declare之前要去掉Private保留字。

2.调用示例:

ret = sendmessage bynum(text 1 . hwnd，em _ linescroll，0，1)'下一卷，一行

ret = sendmessage bynum(text 1 . hwnd，em _ linescroll，0，-1)'向上滚动一行。

ret = sendmessage bynum(text 1 . hwnd，em _ linescroll，1，0)'右卷和一列

ret = sendmessage bynum(text 1 . hwnd，em _ linescroll，-1，0)'左卷中的一列

ret = sendmessage bynum(text 1 . hwnd，em _ linescroll，1，1)'下一卷是一行，右卷是一列。

注意:上面的Text1是文本框的名称。