利用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是文本框的名称。
位律师回复
0条评论