text控件垂直滚动条的问题？

    Text1.SelStart = Len(Text1)
    Text1.Refresh

解决方案 »

  1.   

    利用 EM_LINESCROLL 信息控制 TextBox 的卷动。 在含有卷动轴的 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 ) ' 下卷一行且右卷一列
      

  2.   

    何必用TEXT控件, LIST不更好? 又不用手工加滚动条. 
    移到最下边就用LIST.LISTINDEX=LIST.COUNT-1 
      

  3.   

    同意上面的同志！
    不过  ，我 可能知道你的顾虑
    listbox没有水平滚动条
    用一个sendmessage就可以了！
    不过我在网吧中。这条命令背不出来！
      

  4.   

    zgjchina1的代码更简单实用，uguess给出的的代码也可行，当是在滚动条移动一定次数后就失效了，不知道是不是我机子的原因。非常感谢各位的帮忙。