Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

EnsureVisible en ListView

Estas en el tema de EnsureVisible en ListView en el foro de Visual Basic clásico en Foros del Web. Hola a todos Tengo un listview con muchos clientes, y al hacer doble click sobre alguno de ellos abro otro form donde puedo actualizar dicho ...
  #1 (permalink)  
Antiguo 24/01/2012, 17:55
 
Fecha de Ingreso: septiembre-2009
Mensajes: 108
Antigüedad: 11 años, 7 meses
Puntos: 1
EnsureVisible en ListView

Hola a todos
Tengo un listview con muchos clientes, y al hacer doble click sobre alguno de ellos abro otro form donde puedo actualizar dicho cliente

Ahora lo que necesito es luego de actualizar el cliente y cerrar el form, que quede marcado la linea que edite

Algo del Cod que uso

Form Principal
Código:
Private Sub Form_Load()
    CargarListView_Cliente LV_Cliente, rs
End Sub

Private Sub Editar()
        With form2
            .IdRegistro_Cliente = LV_Cliente.SelectedItem.Text
            .nombre.Text = LV_Cliente.SelectedItem.ListSubItems(1).Text
            .edad.Text = LV_Cliente.SelectedItem.ListSubItems(2).Text
            .Show vbModal
        End With
    End If
End Sub

Private Sub LV_Cliente_DblClick()
    Editar
End Sub
Y en un modulo tengo para cargar el lisview lo siguiente

Código:
Public Sub CargarListView_Cliente(LV_Cliente As ListView, rs As ADODB.Recordset)
On Error GoTo ErrorSub
    LV_Cliente.ListItems.Clear
    If rs.RecordCount > 0 Then
        While Not rs.EOF
            Set objItem = LV_Cliente.ListItems.Add(, , rs(0))
           objItem.SubItems(1) = rs!nombre
           objItem.SubItems(2) = rs!edad
            rs.MoveNext
        Wend
    End If
    Exit Sub
ErrorSub:
    If Err.Number = 94 Then Resume Next
End Sub
y cuando actualizo el segundo form hago:

Código:
Private sub cmdActualizar()
     
    cnn.Execute "UPDATE cliente set nombre = '" & Trim(Text1(1)) & _
                                         "', edad = '" & Trim(Text1(2)) & _
                                         "' where id_cliente = " & IdRegistro_CLIENTE & ""
    
    rs.Requery 1
    
    Call CargarListView_Cliente(form1.LV_Cliente, rs)

    DoEvents
    Unload Me
End sub
Hasta aca perfecto, lo que no sabria es como pasarle al listview cuando actualizo para que cuando lo cargue me quede marcada la linea que edite

Creo que es con EnsureVisible

Alguna idea

Etiquetas: listview, vb
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 06:23.