listbox水平滚动条.bas

来自「vb开发的公交查询系统」· BAS 代码 · 共 10 行

Attribute VB_Name = "Module0"



'添加ListBox的水平滚动条

Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const LB_SETHORIZONTALEXTENT = &H194