Cita de: LeandroA en 31 Julio 2008, 20:07 PM
hola prova de esta formaCódigo [Seleccionar]
Dim elemento As ListItem
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
Set elemento = ListView1.HitTest(x, y)
If Not elemento Is Nothing Then
Set ListView1.SelectedItem = elemento
PopupMenu ElMenu
Set elemento = Nothing
End If
End If
End Sub
Saludos
GraxiasS LeandroA por molestarte parece que rula correctamente tu Code pero no me explico como no me puede funcionar de mi manera le tenio que meter un on error resume next al principio y ya me rula.
S@1u2s y Graxias te tomo una copia del code