[RESOLVED] listview question

[Pouncer]

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim oItem As ListItem
    If Button = vbRightButton Then
        Set oItem = ListView1.HitTest(x, y)
        If Not oItem Is Nothing Then
            oItem.Selected = True
            PopupMenu mnuPopup
        End If
        
    Else
        Text2.Text = ListView1.SelectedItem.ListSubItems.Item(1)
    End If
End Sub

Im trying to make the selected item appear in text2.txt, but it only appears when i double click it with left mouse click , how can i make it appear on a single click?

[Hack]

Im trying to make the selected item appear in text2.txt, but it only appears when i double click it with left mouse click , how can i make it appear on a single click?

A single left mouse click or a single right mouse click?

[Pouncer]

single left mouse click

[oh1mie]

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
    
    If ListView1.HitTest(x, Y) Is Nothing Then Exit Sub
    If Button = vbRightButton Then
       PopupMenu mnuPopup
    End If
 
End Sub

[Hack]

If you are going to use a Single Left mouse click, you can use your MouseDown event for your popup and the ListView's click event to pop the text in the textbox.

Private Sub ListView1_Click()
Text1.Text = ListView1.SelectedItem.Text