0

Tengo esta interfaz:

introducir la descripción de la imagen aquí

Ingreso datos:

introducir la descripción de la imagen aquí

Se cargan en el ListView:

introducir la descripción de la imagen aquí

Lo que quiero es que al hacerle doble click a un item cargado de la lista, este se vuelva hacia arriba con los valores con los que fue cargado. Es decir, doy doble click al item de la lista, este debe cargar los valores del ComboBox, TextBox, CheckBox con los que fue añadido al Listview. Esto sería para que en caso de que el usuario haya cargado mal un dato, este pueda editarlo dando doble click.

Pensé en esto pero no ha funcionado:

Private Sub List_Contactos_DblClick()
Dim i As Integer

For i = 1 To List_Contactos.ListItems.Count
    List_Contactos.ListItems(i).SubItems(1) = CmbTipoTel.Text
    List_Contactos.ListItems(i).SubItems(2) = MebPreFijo.Text
    List_Contactos.ListItems(i).SubItems(3) = txttel.Text
    List_Contactos.ListItems(i).SubItems(4) = ChPrincipal.value
    List_Contactos.ListItems(i).SubItems(5) = ChVinculo.value
Next i

End Sub

¿Sugerencias?

4
  • 2
    No es exactamente tu mismo codigo, pero al reves?
    – gbianchi
    el 28 ene. 2020 a las 12:36
  • Sí, tienes razón. ¿Puedes añadir una respuesta de ejemplo? Digo, para no tener que borrar la pregunta. @gbianchi el 28 ene. 2020 a las 12:46
  • 1
    Podes agregar vos mismo la respuesta y luego de pasadas 24 hs aceptarla...
    – gbianchi
    el 28 ene. 2020 a las 12:47
  • Oh, sí. Al final, la respuesta que puse no funciona del todo bien porque sale error en el índice. @gbianchi el 28 ene. 2020 a las 14:50

1 respuesta 1

0

Respueta:

Private Sub List_Contactos_DblClick()

Dim i As Integer
Dim IntPrincipal As Integer
Dim IntVinculo As Integer
Dim IntTipo As Integer

If MebPreFijo.Text = "" And txttel.Text = "" Then
        'For i = 1 To List_Contactos.ListItems.Count

        'CmbTipoTel


'        If List_Contactos.ListItems(i).SubItems(1) = "Fijo" Then
'            IntTipo = 1
'        Else
'            IntTipo = 2
'        End If
        CmbTipoTel.Text = List_Contactos.SelectedItem.SubItems(1)

        'MebPreFijo
        MebPreFijo.Text = List_Contactos.SelectedItem.SubItems(2)

        'txttel
        txttel.Text = List_Contactos.SelectedItem.SubItems(3)

        'CheckPrincipal
        If List_Contactos.SelectedItem.SubItems(4) = "SI" Then
            IntPrincipal = 1
        Else
            IntPrincipal = 0
        End If
        ChPrincipal.value = IntPrincipal

        'ComboTipoVinculo
        If List_Contactos.SelectedItem.SubItems(5) = "" Then
            IntVinculo = 0
        Else
            Rs.Open "select tv_id from dbo.Tipo_Vinculo where tv_descripcion='" & List_Contactos.ListItems(i).SubItems(5) & "'", Cn, adOpenKeyset, adLockReadOnly
            IntVinculo = Rs!TV_Id
            Rs.Close
        End If
        ChVinculo.value = IntVinculo

        'Limpiar ese item
        List_Contactos.ListItems.Remove List_Contactos.SelectedItem.Index

    'Next i

    Else
    MsgBox "Tiene datos que se pueden perder. Por favor, presione añadir."

End If

End Sub
10
  • 1
    Este codigo no es correcto. Porque recorres toda la lista en lugar de usar solo el item seleccionado? porque borras el item de la lista?
    – gbianchi
    el 28 ene. 2020 a las 14:52
  • 1
    Pero este codigo no funciona.. i no tiene valor?
    – gbianchi
    el 28 ene. 2020 a las 15:03
  • 1
    Como que te manda cualquier item? este codigo termina funcionando o no?
    – gbianchi
    el 28 ene. 2020 a las 15:11
  • 1
    el doble click no debe estar seleccionando el segundo item ;) no recuero tanto de vb como para acordarme el orden de ejecucion de los eventos.. pero tal vez, doble click no te sirve? se que con un click anda...
    – gbianchi
    el 28 ene. 2020 a las 15:14
  • 1
    Tenes la lista para que solo permita seleccionar un item? o la tenes para multiples?
    – gbianchi
    el 28 ene. 2020 a las 15:15

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.