小虾:
给TextBox发送一个消息行了 EM_LINESCROLL = &HB6
Dim Linecount
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 Sub Command1_Click()
Const EM_LINESCROLL = &HB6
Dim ErrCode As Long
ErrCode = SendMessage(Text1.hwnd, EM_LINESCROLL, ByVal 0&, ByVal 1)
If ErrCole = 0 Then
Linecount = Linecount + 1
MsgBox "滚动:" + Str(Linecount), vbOKOnly, "确定"
End If
End Sub
循环发送EM_LINESCROLL = &HB6 消息就会自动滚动显示了
Don't Forget to Give Me Point