在VB中哪个控件是有滚动效果的，UP有分

Question

textbox，listview，mshflexgrid
...........

Answer 1

自己做
用
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 EM_LINESCROLL = &HB6
Dim ret As Long
'下文本下方滚动一行
ret = SendMessageBynum(Text1.hWnd, EM_LINESCROLL, 0, 1)
放个timer控件不就行了，也就是可以做成自做控件了

Answer 2

请详细介绍这个API啥？
   我在程序中调试不起

Answer 3

怎么会不能调试呢？：）
你再试试看罗。Option Explicit
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 EM_LINESCROLL = &HB6Private Sub Command1_Click()
    uScrollTextBox Text1, 1
End SubPrivate Sub Form_Load()
    Text1.Text = ""
    Dim intCnt As Integer
    For intCnt = 1 To 200
        Text1.Text = Text1.Text & Str(intCnt) & vbCrLf
    Next intCnt
End Sub'****************************************************
'目的：让文本框下滑几行
'输入：文本框的name，要下滑的行数
'注意：文本框的multiline＝true，scrollbar＝2 or 3
'****************************************************
Private Sub uScrollTextBox(ByRef ctrlText As TextBox, intLine As Integer)
    Dim ret As Long
    ret = SendMessageBynum(ctrlText.hWnd, EM_LINESCROLL, 0, intLine)
End Sub