autoseleccionar ultimo item y subitems en listview
Publicado por mk2209 (1 intervención) el 31/12/2008 20:07:06
buenas, tengo un listview que recibe datos de un servidor cada x segundos, lo que necesito es que cada vez que llegan datos, automaticamente copie ese ultimo item con los subitems y asi poder mandarle esos mismos datos a otro usuario que estara conectado conmigo, lo tengo todo hecho a falta de la funcion de cuando lleguen datos al listview se seleccione la ultima fila y lo mande, digamos el equivalente a "Private Sub Text1_Change()" pero para listview y solo el ultimo item con subitems, en resumen, cuando lleguen datos al listview se autoseleccione la ultima fila y hacer un call command3_click
Private Sub Command3_Click()
Dim linea As String, x As Integer, i As Integer
For i = 1 To ListView1.ListItems.Count
linea = ListView1.ListItems(i) & vbTab
For x = 1 To ListView1.ColumnHeaders.Count - 1
linea = linea & ListView1.ListItems.Item(i).SubItems(x) & vbTab
Next
Winsock1.SendData linea
Next
End Sub
un saludo!
Private Sub Command3_Click()
Dim linea As String, x As Integer, i As Integer
For i = 1 To ListView1.ListItems.Count
linea = ListView1.ListItems(i) & vbTab
For x = 1 To ListView1.ColumnHeaders.Count - 1
linea = linea & ListView1.ListItems.Item(i).SubItems(x) & vbTab
Next
Winsock1.SendData linea
Next
End Sub
un saludo!
Valora esta pregunta


0