怎样通过SendMessage使ListBox的列表上滚和下滚

Question

SendMessage List1.hwnd, WM_VSCROLL, SB_LINEDOWN, Null
这条语句使ListBox的列表下滚下滚一行，更多的信息请自己察看MSDN中WM_VSCROLL和WM_HSCROLL窗口消息的说明

Answer 1

注意常数声明
Private Const WM_HSCROLL = &H114
Private Const SB_LINEDOWN = 1

Answer 2

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const WM_VSCROLL = &H115
Private Const SB_LINEDOWN = 1Dim num
Private Sub Command1_Click()
    SendMessage List1.hwnd, WM_VSCROLL, SB_LINEDOWN, NullEnd SubPrivate Sub Form_Load()
For num = 1 To 100
        List1.AddItem CStr(num)
NextEnd Sub

Answer 3

上滚就是把　SB_LINEDOWN　换成　SB_LINEUP Private Const SB_LINEUP = 0