Hoe zorg ik ervoor dat er wat gebeurd als ik op enter druk?

[HellupUandMe]

Hay
Er moet iets gebeuren wanneer ik op enter druk.
Bijv.

msgbox "Je drukte op enter grapjas!"

Hoe zorg ik hiervoor?

 

[afridbeertje]

Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
Dim intCnt As Integer
msgbox "je drukte op enter grapjas"
Else

End If
End Sub

heb je hier wat aan ?

 

[The Mighty Atom]

Wat een hoop code voor zoiets simpels.

Doe het gewoon zo (voorbeeld maakt gebruik van het KeyPress event van een textbox):

        If e.KeyChar = Chr(13) Then
            MsgBox("Je drukte op enter grapjas!")
            e.Handled = True
        End If

 

[HellupUandMe]

Precies wat ik nodig had! Bedankt!