Ascii ----> INVIO

[darkblOOd]

Originariamente inviato da sara81it

Private Sub ListView1_KeyPress(KeyAscii As Integer)
If KeyAscii = Chr(10) Then
variabile = ListView1.SelectedItem.Text
FrmModificaCliente.Show
Unload Me
End If
End Sub

io vorrei fare in modo che solo se clicco invio esegua le operazioni successive..

ma non funziona come devo fare?
:quipy:

Private Sub ListView1_KeyPress(KeyAscii As Integer)
   If KeyAscii = VbCrLf Then
      variabile = ListView1.SelectedItem.Text
      FrmModificaCliente.Show
      Unload Me
   End If
End Sub