listview context menu

[chris]

hi. i need to know how to make sure the mouse is over an item in a listview
so i can pop up the appropriate context menu. basically, i don't want the
user clicking options for an item that he/she may not have intended. i'm
pretty sure this involves the HitTest method, but somehow i can't seem to
get the syntax right for that. i keep getting an error(91).

thank you for your time,
chris

[Alex]

Chris,

HitTest method returns listitem object or nothing

You need to test the return...


Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As
Single, y As Single)
Dim LI As ListItem

Set LI = ListView1.HitTest(x, y)
If LI Is Nothing Then
Label1.Caption = "Nothing under mouse pointer"
Else
Label1.Caption = LI.Text
End If

End Sub


Alex


"chris" <cguest19@yahoo.com> wrote:
>
>hi. i need to know how to make sure the mouse is over an item in a listview
>so i can pop up the appropriate context menu. basically, i don't want the
>user clicking options for an item that he/she may not have intended. i'm
>pretty sure this involves the HitTest method, but somehow i can't seem to
>get the syntax right for that. i keep getting an error(91).
>
>thank you for your time,
>chris

[chris]

Thanks a lot, Alex. Now everything works great.


"Alex" <AlexanderBirman@Yahoo.com> wrote:
>
>Chris,
>
>HitTest method returns listitem object or nothing
>
>You need to test the return...
>
>
>Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As
>Single, y As Single)
> Dim LI As ListItem
>
> Set LI = ListView1.HitTest(x, y)
> If LI Is Nothing Then
> Label1.Caption = "Nothing under mouse pointer"
> Else
> Label1.Caption = LI.Text
> End If
>
>End Sub
>
>
>Alex
>
>
>"chris" <cguest19@yahoo.com> wrote:
>>
>>hi. i need to know how to make sure the mouse is over an item in a listview
>>so i can pop up the appropriate context menu. basically, i don't want the
>>user clicking options for an item that he/she may not have intended. i'm
>>pretty sure this involves the HitTest method, but somehow i can't seem
to
>>get the syntax right for that. i keep getting an error(91).
>>
>>thank you for your time,
>>chris
>

[m.r shojaei]

'try this
Private Sub Lv_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Lv.MouseMove
If Lv.HitTest(e.X, e.Y).Item Is Nothing Then
Me.Text = 0
Else
Me.Text = 1
End If
End Sub