Setting combo box style at runtime?

[MerrionComputin]

If I want to change the style of a button control at runtime I can do this by sending it the BM_SETSTYLE message and refreshing it...

Is there a way of doing this for a combo box that has already been created? Specifically how do I set CBS_UPPERCASE or CBS_LOWERCASE?

Thanks in advance,
Duncan

[Serge]

Unfortunately, not all styles can be change at run time.
The only way to achieve this is to setup a system hook for the entire application and watch for WM_CREATE message.

[Shawn N]

A hack around it. This will convert all characters to lowercase.

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
 
Private Declare Function GetWindow Lib "user32" ( _
     ByVal hwnd As Long, _
     ByVal wCmd As Long) As Long
     
Private Const GW_CHILD As Long = 5
Private Const GWL_STYLE As Long = (-16)
Private Const ES_LOWERCASE As Long = &H10&
 
Private Sub Form_Load()
 
    Dim lngStyle As Long, lngHWND As Long
    lngHWND = GetWindow(Combo1.hwnd, GW_CHILD)
    
    lngStyle = GetWindowLong(lngHWND, GWL_STYLE)
    lngStyle = lngStyle Or ES_LOWERCASE
    
    Call SetWindowLong(lngHWND, GWL_STYLE, lngStyle)
End Sub

[Serge]

This will work only for the "Edit" part of the comboxbox. All items in the list will still be the same.

[MartinSmith]

You might want to check out the code here http://www.thescarms.com/vbasic/OwnerDrawn.asp also.