本文共 1237 字,大约阅读时间需要 4 分钟。
最近做了一个文本处理程序,用edit控件显示文本类容,由于是比较性的两个edit,需要一个滚动条同事控制两个edit控件滚动时间,WM_VSCROLL消息当edit行数超过65535时失效;
解决方法:void LineScroll( int nLines, int nChars = 0 );
利用 EM_LINESCROLL 信息控制 TextBox 的卷动。
在含有卷动轴的 TextBox 中, 如何以 TextBox 的卷动?
传送 EM_LINESCROLL 信息给 TextBox 控制文件,方法是调用 SendMessage 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 保留字去掉。
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 的名称。
void LineScroll( int nLines, int nChars = 0 );
nLines 指定垂直滚动的行数。 nChars 指定水平滚动的字符数。如果带格式编辑控件是ES_RIGHT或ES_CENTER风格,则这个值被忽略。编辑风格在Create中指定。 |
编辑控件不能用来垂直滚动过编辑控件的最后一行。如果当前行的 再加上nLines指定的行数超过了编辑控件中的总行数,则将调整这个值,以使在滚动到编辑控件中的最后一行后再滚动到控件顶部的行。
LineScroll可以水平滚动过任意行的最后一个字符。
转载地址:http://uxtgi.baihongyu.com/