给你的list控件添加横向的滚动条

给你的list控件添加横向的滚动条

有时因为你的list里的内容过长 可以使用到这个小技巧:请看代码:

API 部分:
Const LB_SETHORIZONTALEXTENT = &H194
 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,  lParam As Any) As Long

要改变时的代码部分:
Call SendMessage(List1.hwnd, LB_SETHORIZONTALEXTENT,水平卷动轴的宽度, ByVal 0&)

红色部分根据实际情况自己设定