What's wrong with this code?

[david90]

I have a main form with a listbox named listbox1 and a function named FindTextInListbox.

Please Login or Register  to view this content.

When I call the function above with the code below, I get a type mismatch error code 13

Please Login or Register  to view this content.

I'm 100% sure that Listbox1 exists in my form and that is is referenced correctly. Since the function has only 2 args and I'm sure the string arg is correct, then the error must be related to the listbox arg. Some help? Thanks

[Leith Ross]

Hello david90 ,

It is a little difficult to say based on the code. Is this a VBA UserForm or VB UserFom?

[david90]

Its a vba userform

[david90]

I got the code from a VB program and it works in VB. When I copied it to my vba app, it gave me the error.

[Leith Ross]

Hello david90 ,

That is because VB and VBA are very different languages. While VB provides you with the window handle (hWnd) to the ListBox, VBA does not. In VBA you must use more API calls to obtain the hWnd for the ListBox.

[david90]

Hello david90 ,

That is because VB and VBA are very different languages. While VB provides you with the window handle (hWnd) to the ListBox, VBA does not. In VBA you must use more API calls to obtain the hWnd for the ListBox.

I get the error before excel vba executes the codes in the FindTextInListBox function. This means that that the error has something to do with the args. The error has something to do with how I pass the listbox control to the function.

Is how I pass the control listbox to a function correct?

[Leith Ross]

Hello david90 ,

Again it is difficult to answer without seeing the full code. You are using SendMessage which is an API call. To use API calls in VBA, you must first declare them like below. If you are not familiar with API calls and how to use them, I would advise against using them. These calls have limited error trapping and are low level system calls. Improper use of this code can damage your system.

Please Login or Register  to view this content.

[david90]

Yes you might be right about hwnd, but the error that I'm talking about is not related to hwnd.

To isolate the cause of the error, I created the code below.

Please Login or Register  to view this content.

When i run the sub main above, I get an error 13 type mismatch. The error couldn't be because of the hwnd problem because there aren't any code relating to hwnd. it looks like how I pass the object listbox2 is incorrect but I have no idea why it's incorrect.

[Leith Ross]

Hello david90,

If SearchListBox is in the General Declarations section of the UserForm, you should not get this error. If this macro is in a standard VBA module, your reference to ListBox1 must be prefixed with the UserForm name. Also, the UserForm must be loaded into memory.

Please Login or Register  to view this content.

[JosephP]

declare the parameter as msforms.listbox instead of just listbox. excel has a listbox object too ;-)

[david90]

declare the parameter as msforms.listbox instead of just listbox. excel has a listbox object too ;-)

thank you. that fixed the problem .