Enterキーを押すとイベントを起こすには？

解決

Lait URL 2005-03-20 18:18:24 No: 88951

例えば、テキストボックスがあったとして、そのテキストボックスにEnterキーを押すとメッセージが出るようにするにはどうすればいいのでしょうか。
KeyDownなどを使っていますが、うまい事いきません。

じゃんぬねっと URL 2005-03-20 18:26:41 No: 88952

何がうまくいかないんでしょう?

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        Call MsgBox("中博俊の技術日誌ブログ最高!!")
    End If
End Sub

Enter にこだわるならば、Default ボタンを使ってもいいかもしれませんね。
http://jeanne.wankuma.com/tips/form/24-acceptbutton.html

Text に拘らないのならば、Form で捉えた方が楽かもしれません。
何をさせたいかにも因りますが、先読みして案内 (w
http://jeanne.wankuma.com/tips/form/27-cobolerform.html

Lait URL 2005-03-20 19:59:48 No: 88953

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        Call MsgBox("中博俊の技術日誌ブログ最高!!")
    End If
End Sub
で解決しました。
ありがとうございます。