moverse con teclado en listview

[analoyra]

Hola, tengo este evento en un listview, pero si quiero moverme con las flechas del teclado se me dispara el evento, como puedo hacer para que me deje moverme y se active con la tecla de enter?? Gracias de antemano


Private Sub lv1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim Ace As String
If TipoLista = "COMPRA" Then
Ace = Item
'Pone los items

FrmCompra.Txttipo = Ace
FrmCompra.TxtTipoComp = Ace
FrmCompra.Text1 = Item.SubItems(1)
FrmCompra.Text2 = Item.SubItems(2)
FrmCompra.Show
FrmLisTipo.Visible = False
Else
Ace = Item
m = MsgBox("Desea editar esta clave?", vbYesNo, "Tipo Comprobante")
If m = vbYes Then
FrmTpoCOmpro.txtClave = Ace
FrmTpoCOmpro.txtClave.Enabled = False
FrmTpoCOmpro.TxtDesc = Item.SubItems(1)
FrmTpoCOmpro.TxtSigla = Item.SubItems(2)
FrmTpoCOmpro.Txtsigno = "" & Item.SubItems(3)
FrmTpoCOmpro.Show
FrmTpoCOmpro.CmdGuardar.Visible = False
FrmLisTipo.Hide
Else
Cancel = True
End If
End If
End Sub

[David]

En vez de colocar en el evento ItemClick(), coloca en el evento KeyPress():

Código:

 
If KeyAscii = 13 Then
      ' Código para cuando se presione Enter
End If

Saludos

[analoyra]

Ahora lo recorro bien, pero cuando presiono enter y pido que me edite me sale un error que se requiere un objeto
FrmTpoCOmpro.TxtDesc = Item.SubItems(1), en ese codigo se para.
seguro me falta declarar algo.... pero que?
gracias por tu respuesta

[David]

Iniciado por analoyra

Ahora lo recorro bien, pero cuando presiono enter y pido que me edite me sale un error que se requiere un objeto
FrmTpoCOmpro.TxtDesc = Item.SubItems(1), en ese codigo se para.
seguro me falta declarar algo.... pero que?
gracias por tu respuesta

Debes colocar esto primero:

Código:

 
Dim Item As ListItem
Set Item = lv1.SelectedItem

[analoyra]

Buenisimo!!!! Muchas gracias, anda perfecto.
Me salvaste el trabajo practico.