Member Avatar for C. Raghuraja

The text in the Combo box has lenthly text, but combo box has no horizondal scroll bar. I want to Add Horizondal Scroll bar to Combo Box.

Advanced Thanks
Raghuraja

  • 2 Contributors
  • 3 Replies
  • 117 Views
  • 2 Days Discussion Span
  • Latest Post Latest Post by C. Raghuraja
Member Avatar for Comatose

In a standard code module, add this:

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Const GWL_STYLE = (-16)
Public Const WS_HSCROLL = &H100000

Then in your form load (or whatever) add this:

Dim lWindowStyle As Long
lWindowStyle = GetWindowLong(combo1.hwnd, GWL_STYLE)
lWindowStyle = lWindowStyle Or WS_HSCROLL
lWindowStyle = SetWindowLong(combo1.hwnd, GWL_STYLE, lWindowStyle)

That should work. Let me know how it turns out.

Member Avatar for C. Raghuraja

I have added this code, but still the "Horizondal Scroll Bar" is not appearing ...

Other than this code, any setting need to add?

Member Avatar for C. Raghuraja

Please review the following code and give your feedback.
I am using this code

Option Explicit

Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Const GWL_STYLE As Long = (-16)
Const WS_HSCROLL As Long = &H100000

Private Sub Form_Load()

Dim lWindowStyle As Long
lWindowStyle = GetWindowLong(Combo1.hwnd, GWL_STYLE)
lWindowStyle = lWindowStyle Or WS_HSCROLL
lWindowStyle = SetWindowLong(Combo1.hwnd, GWL_STYLE, lWindowStyle)

Combo1.Width = 2895

Combo1.AddItem "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
Combo1.AddItem "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB"
Combo1.AddItem "CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC"
Combo1.AddItem "DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
Combo1.AddItem "EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
Combo1.AddItem "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
Combo1.AddItem "GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG"
Combo1.AddItem "HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH"
Combo1.AddItem "IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII"
Combo1.AddItem "JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ"
Combo1.AddItem "KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK"
Combo1.AddItem "LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
Combo1.AddItem "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM"
Combo1.AddItem "NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN"
Combo1.AddItem "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO"
Combo1.AddItem "PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP"
Combo1.AddItem "QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ"
Combo1.AddItem "RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR"
Combo1.AddItem "SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS"
Combo1.AddItem "TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT"
Combo1.AddItem "UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU"
Combo1.AddItem "VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV"
Combo1.AddItem "WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW"
Combo1.AddItem "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
Combo1.AddItem "YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY"
Combo1.AddItem "ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ"

End Sub

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.