Autor
Código:
Private Sub ListConexion_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If ListConexion.SelectedItem.Selected = False Then Exit Sub 'Si no hay nada selecionado salimos de la funcion
If Button = 2 Then PopupMenu Opciones 'Lanzamos el menu
End Sub
On Error Resume Next
If ListConexion.SelectedItem.Selected = False Then Exit Sub 'Si no hay nada selecionado salimos de la funcion
If Button = 2 Then PopupMenu Opciones 'Lanzamos el menu
End Sub
Cambia la accion para q habra una ventan o mande un mensaje, lo q tu kieras en vez de mostrar el menu. Con q winsock?
Código:
Dim vIndex As Variant 'Declaracion
vIndex = Split(ListConexion.SelectedItem.Key, "|")
winsock1(vIndex(0)).senddata "Paquete"
vIndex = Split(ListConexion.SelectedItem.Key, "|")
winsock1(vIndex(0)).senddata "Paquete"
Con ese
En línea
