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

解決

---

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

編集 削除

---

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

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

編集 削除

---

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

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。