Ayuda con Listview en VB 6.0
Buen día Experto, tengo una duda a cerca del control listview, lo que quiero hacer es agregar items y que valla seleccionando el ultimo item para forzar al scroll a recorerse automáticamente hasta el ultimo dato ingresado, tengo el siguiente código pero me da error con los indices fuera del limite, de antemano agradezco tu tiempo. Saludos
Private Sub dtc_codigodebarras_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim X As ListItem
Set X = ListView_tickets.ListItems.Add(, , dtc_codigodebarras.Text)
X.Tag = dtc_codigodebarras.Text
X.SubItems(1) = dtc_articulo.Text
X.SubItems(2) = txt_importe.Text
If txt_cantidad.Text = "" Then txt_cantidad.Text = 1
X.SubItems(3) = txt_cantidad.Text
X.SubItems(4) = Val(txt_importe.Text) * Val(txt_cantidad.Text)
ListView_tickets.ListItems.Item(ListView_tickets.ListItems.Count - 1).Selected = True
End Sub
Private Sub dtc_codigodebarras_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim X As ListItem
Set X = ListView_tickets.ListItems.Add(, , dtc_codigodebarras.Text)
X.Tag = dtc_codigodebarras.Text
X.SubItems(1) = dtc_articulo.Text
X.SubItems(2) = txt_importe.Text
If txt_cantidad.Text = "" Then txt_cantidad.Text = 1
X.SubItems(3) = txt_cantidad.Text
X.SubItems(4) = Val(txt_importe.Text) * Val(txt_cantidad.Text)
ListView_tickets.ListItems.Item(ListView_tickets.ListItems.Count - 1).Selected = True
End Sub
1 Respuesta
Respuesta de mrtool
1