• Home
 · 
• Complete Applications
 · 
• add a horizontal scroll bar to a listbox or combo

add a horizontal scroll bar to a listbox or combo

add a horizontal scroll bar to a listbox or combo box

API Declarations
#If Win16 Then
Declare Function SendMessage Lib "User" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
#Else
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
#End If

Rate add a horizontal scroll bar to a listbox or combo

• 1
• 2
• 3
• 4
• 5

(5(5 Vote))

Const WM_USER = 1024
Const LB_SETHORIZONTALEXTENT = (WM_USER + 21)
Dim nRet As Long
Dim nNewWidth As Integer
nNewWidth = list1.Width + 100 'new width in pixels
nRet = SendMessage(list1.hwnd, LB_SETHORIZONTALEXTENT, nNewWidth, ByVal 0&)