请教大虾！！如何用命令控制滚动条！！！急急急，谢谢谢........

'上一行
 listbox.setfocus
 sendkeys "{UP}"'下一行
 listbox.setfocus
 sendkeys "{DOWN}"'上一页
 listbox.setfocus
 sendkeys "{PGUP}"'下一页
 listbox.setfocus
 sendkeys "{PGDN}"

解决方案 »

  1.   

    通过API函数SendMessage向listbox控件发送消息。Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)Public Const WM_VSCROLL = &H115Private ret As Longret = SendMessage&(List1.hwnd, WM_VSCROLL, 0, 0)   '上一行ret = SendMessage&(List1.hwnd, WM_VSCROLL, 1, 0)   '下一行ret = SendMessage&(List1.hwnd, WM_VSCROLL, 2, 0)   '上一页ret = SendMessage&(List1.hwnd, WM_VSCROLL, 3, 0)   '下一页
      

  2.   

    SetScrollInfo函数更加灵活。而且不要发消息！