用TextBox的时候,有的时候需要让ScrollBar自动跟随滚动以让最下面的内容始中可以显示出来。但是VB6却没提供这样的方法...
以下是用Windows Api实现这个动作的代码:
Option Explicit
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WM_HSCROLL = &H114
Public Const WM_VSCROLL = &H115
Public Const SB_LINEUP = 0
Public Const SB_LINEDOWN = 1
Public Const SB_LINELEFT = 0
Public Const SB_LINERIGHT = 1
Public Const SB_PAGEUP = 2
Public Const SB_PAGEDOWN = 3
Public Const SB_PAGELEFT = 2
Public Const SB_PAGERIGHT = 3
Public Const SB_THUMBPOSITION = 4
Public Const SB_THUMBTRACK = 5
Public Const SB_TOP = 6
Public Const SB_BOTTOM = 7
Public Const SB_LEFT = 6
Public Const SB_RIGHT = 7
Public Const SB_ENDSCROLL = 8
’在窗体中任何处引用以下即可。'如,拖到最后
Call PostMessage(txtReceive.hwnd, WM_VSCROLL, SB_BOTTOM, 0)