help with the hittest method

[GU_mr_Sand_Man]

Hello. I am trying to get a small dialog box to pop up when an entry in a listbox is highlighted with the mouse. I believe I need to use the hittest method to make this work. Here's my code thus far:

Private Sub lstDistrict_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim Item As Object
    Set Item = lstDistrict.HitTest(X, Y)
    If Not (Item Is Nothing) Then
        Me.Caption = Item.Text
    Else
        Me.Caption = ""
    End If
End Sub

When I run this, I get a compile error, "Method or data member not found". How can I resolve this? Also, for my purposes, is the above code correct? Any help would be greatly appreciated.

 

[Andrew Fergus]

Hi Jeremy

I have seen similar solutions for doing this on the internet (using VB6) but am having some trouble adapting them for VBA. However, I started to think there must be a simple solution to this.

You mentioned earlier that you are using a list box and you also mentioned that you do not have enough room on your form. I would think the list box itself takes up a large amount of space on your form. Have you considered using a combo box instead? This takes up a lot less space and if you did then you wouldn't need to use a 'MouseMove' event to update the 'ToolTipText' property. Are you also aware that you can show mulitple columns within the combo box itself? Again, that doesn't require space on the form itself, the additional information would automatically appears next to the number when you select the drop down arrow. I believe this would have the desired effect with a lot less trouble and complication.

HTH, Andrew

 

[GU_mr_Sand_Man]

Thanks for the idea Andrew; unfortunately this project has been complete for the past two weeks. I truly appreciate the feedback.

J