clipbord strting from item in lisview 1

[sal21]

Based this code i store a value of item in column1 in a clipboard...

but i nned to store the value only if i click a left button of mouse,..

 Private Sub LVMENU_ItemClick(ByVal Item As MSComctlLib.ListItem)

    RM = Empty
    RM = Me.LVMENU.SelectedItem.Index
    STRINGA = Me.LVMENU.ListItems(RM).ListSubItems(1).Text
    Clipboard.SetText STRINGA
    Me.LERRORI.Caption = "NOME SERVIZIO COPIATO IN MEMORIA!"
    DoEvents
    Sleep (1500)
    Me.LERRORI.Caption = ""

End Sub

 

[strongm]

This seems to be somewhat different from the question that was originally here. Still, here's a possible solution.

Public LastMouseDownButton As MouseButtonConstants

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    If LastMouseDownButton = vbLeftButton Then
        Debug.Print "left mouse button"
    End If
End Sub

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    LastMouseDownButton = Button
End Sub

 

[sal21]

tks strongm for code