data10.dat

来自「学习VB的经典资料 vb一点通 看后很快就会了 初学者的帮手」· DAT 代码 · 共 43 行

滚动文本框中的内容
对于有滚动条的文本框，用户可以通过使用鼠标拖动滚动条中的滑动块来滚动文本框中的内容，也可以通过单击滚动条的箭头来滚动文本框中的内容。本例则一反常态，使用按钮来滚动文本框中的内容。

 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_SETRECTNP = &HB4
Private Const EM_SETRECT = &HB3

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

    
Private Sub Command1_Click()
    Dim R As RECT
    Dim X As Long
    ScaleMode = 3
    R.Left = 0
    R.Top = 0
    R.Right = Text1.Width
    R.Bottom = Text1.Height / 2
    '重新设置文本框范围
    X = SendMessage(Text1.hwnd, EM_SETRECTNP, 0, R)
End Sub

Private Sub Command2_Click()
    Dim R As RECT
    Dim X As Long
    ScaleMode = 3
    R.Left = 0
    R.Top = 0
    R.Right = Text1.Width
    R.Bottom = Text1.Height
    '重新设置文本框的范围
    X = SendMessage(Text1.hwnd, EM_SETRECT, 0, R)
End Sub