用api滚动listbox二.bas

来自「个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助」· BAS 代码 · 共 12 行

Attribute VB_Name = "Module1"
Option Explicit

Public Const EM_SCROLL = &HB5
Public Const SB_LINEUP = 0
Public Const SB_LINEDOWN = 1
Public Const SB_PAGEUP = 2
Public Const SB_PAGEDOWN = 3

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long