ComboBox not triggering Combo_Change Event? (Resolved)

[Tec-Nico]

Ok, lets say I have a ComboBox with an item "hello" and the Text of the ComboBox is "hell"... When I click on the Button to drop down the list the Text automatically changes from "hell" to "hello" but the change event is NOT triggered..,

Try it:

Option Explicit
 
Private Sub Combo1_Change()
 Debug.Print "Text in Combo1_Change = """ & Combo1.Text & """"
End Sub
 
Private Sub Combo1_Click()
 Debug.Print "Text in Combo1_Click = """ & Combo1.Text & """"
End Sub
 
Private Sub Combo1_DropDown()
 Debug.Print "Text in Combo1_DropDown = """ & Combo1.Text & """"
End Sub
 
Private Sub Combo1_GotFocus()
 Debug.Print "Text in Combo1_GotFocus = """ & Combo1.Text & """"
End Sub
 
Private Sub Combo1_Scroll()
 Debug.Print "Text in Combo1_Scroll = """ & Combo1.Text & """"
End Sub
 
Private Sub Combo1_Validate(Cancel As Boolean)
 Debug.Print "Text in Combo1_Validate = """ & Combo1.Text & """"
End Sub
 
Private Sub Form_Load()
 With Combo1
  .AddItem "hello"
  .Text = "hell"
 End With
End Sub

How can I know when the user clicks on the DropDown and changes the Text of the ComboBox?

Thanks in advance!

[Hacker]

How can u know when the user chmages the text in the cmbo

wht i do is

If cmboName = "Stuff" Then
Stuff to do
End If

Something along those lines work well for me

[Tec-Nico]

Have you tried the example I posted? The problem here is that it won't trigger any event to know when the Text is not what it used to be...

Maybe I am not understanding you properly.. Could you post an example?

[dglienna]

could you post some of your code? I have used a combo box a few times, but don't have a clear idea of what you want/need.

[Hacker]

Wht i am saying is use IF statements, from wht i think you want its the best

ie

If cmboName = "Hello" Then
<Do w/e you want it to do>
Else
<Do wht u want>
End If

[MartinLiss]

From Help.

ComboBox — changes the text in the text box portion of the control. Occurs only if the Style property is set to 0 (Dropdown Combo) or 1 (Simple Combo) and the user changes the text or you change the Text property setting through code.

[Tec-Nico]

That's the code... What you have to do is to click the button to Drop Down the list and then Click it again.

Let me show what I am trying to get here:

[Tec-Nico]

As you can see in the picture I posted before, when you click on the button to drop down the list the Text changes to "hello"

Now look at Immediate, the Text shown there is "hell"

In this next picture you will see the Change was never triggered. To get to this step click once again on the button to bring up the list:

[Tec-Nico]

Now, on the other hand, the Change is triggered when you select an item by clicking it.

Let me show that in the final picture:

[Tec-Nico]

With this in mind.. I would like to do either one of these two things:
[list=a][*]Not allow the combo to change from "hell" to "hello" when dropping down[*]Know when the Combo changed its Text (So I can replace it for the other one)[/list=a]

I hope this can be done...

[Tec-Nico]

Anyone?

[Tec-Nico]

Ok, I searched for some API's and this is what I got... If you have the same problem, try it.

[MartinLiss]

I see you're talking to yourself. That's a bad thing to do.

[Tec-Nico]

I am forced to do it since nobody took time to read the thread again..

I just wanted to post the answer if someone had the same problem... I am sorry if I did something wrong.

[dglienna]

as long as you don't *ARGUE* with youreself...

[MartinLiss]

Originally posted by Tec-Nico
I am forced to do it since nobody took time to read the thread again..

I just wanted to post the answer if someone had the same problem... I am sorry if I did something wrong.

No, nothing wrong. I didn't realize you were posting the answer.

[Tec-Nico]

Just one more thing... If you have the Combo inside a container you need to change this line of code:

OldWindowProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf NewWindowProc)

For the Line:

OldWindowProc = SetWindowLong([B]ControlContainer[/B].hWnd, GWL_WNDPROC, AddressOf NewWindowProc)

Where ControlContainer can be a picturebox, a frame, etc. So if you have the Combo1 inside of Picture1 the code would be:

OldWindowProc = SetWindowLong([B]Picture1[/B].hWnd, GWL_WNDPROC, AddressOf NewWindowProc)

I tried to make this general by using Combo1.Parent.hWnd but for some reason it doesn't work.

Oh, and one more thing... I wasn't talking to myself, I was just explaining what I got to the people who might find the thread and have the same problem.

[AmmerBow]

This works fine

Dim ComboRec As Integer
 
Private Sub Form_Load()
ComboRec = cmbDNS.ListIndex
End Sub
 
Private Sub combo1_Click()
If ComboRec <> cmbDNS.ListIndex Then
Debug.Print "check"
ComboRec = cmbDNS.ListIndex
End If
End Sub