Autres​

KeyAscii

VB6

Sub textbox1_keypress
    If keyascii = 13 then
        ……………………
    End if
End Sub

VB.net

1ère solution:

Sub textbox1_keypress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
    If e.KeyChar = vbCr Then
        ……………………
    End if
End Sub

2ème solution:

Sub TextBox1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
    If e.KeyCode = Keys.Enter Then
        ……………………
    End If
End Sub