Inserting items into a combo box created with API calls

[percidae]

Does anyone know how to insert items into a combobox that was created with the createwindow API?

[YoungBuck]

It should be something similar to this, didn't test it so you may have to fool around with it to get it to work..

 Call SendMessage(lHWND, LB_ADDSTRING, 0, "HELLO")

Where lHWND is the handle to your combo box.

[percidae]

I have been trying to get that sendmessage to work and still seem to be having problems with it. I have tried:

SendMessage myComboBox, CB_ADDSTRING, 0, "HELLO" and
Call SendMessage (myComboBox, CB_ADDSTRING, 0, "HELLO")

with no luck in either one.

If it helps any, I have this combo box sitting in the quicklaunch menu on the taskbar. Could this have anything to do with it? Would I have to get the device context or something along this line in order to manipulate the contents of the combobox?

[Mithyrl]

I was trying to do the same thing to speed up my app.....YoungBuck got me on the right track.....heres the code I got to work using the API.

Sub Form_Load()
    dim i as Integer

    With Combo1
        For i = 0 To Printer.FontCount - 1 
            SendMessage .hWnd, CB_ADDSTRING, 0, ByVal Printer.Fonts(i)
        Next i
        .ListIndex = 0
    End With

End Sub

Hope this helps

You need the ByVal keyword.

Call SendMessage(lHWND, LB_ADDSTRING, 0, ByVal "HELLO")