Adding a Horizontal ScrollBar to a ListBox
Just a simple code snippet that teaches users how to add that illusive Horizontal ScrollBar to a Listbox Control or any other control, for that matter.
AI
AI 摘要: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
源代码
'Declaring the SendMessage API - To send a Message to other Windows Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Const LB_SETHORIZONTALEXTENT = &H194 'Set the Horizontal Bar to 2 times its Width Dim lngReturn As Long Dim lngExtent As Long lngExtent = 2 * (Form1.List1.Width / Screen.TwipsPerPixelX) lngReturn = SendMessage(Form1.List1.hWnd, LB_SETHORIZONTALEXTENT, _ lngExtent, 0&)
原始评论 (3)
从 Wayback Machine 恢复