TextBoxでEnterキーを押すと、にあるButtonを押したのと同じ効果を出す方法

VB初心者です。
まだ、はじめたばかりなので、上手く質問を説明できませんが、よろしくお願いします。

環境はVisualBasic .net 2003です。

フォームにテキストボックス(TextBox)とボタン(Button)があります。
テキストボックス内でEnterキーを押すと、ボタン(Button)を押したのと同様の効果をだしたいのですが。
VC++6.0だと、SendMessage(WM_COMMAND , .....
のようなやり方でできたはずですが・・・
---------------------------
テキストボックスのコード
Private Sub txtTest_KeyDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtTest.KeyDown
If (e.KeyCode = Keys.Enter) Then
'★★★ここでどういうコードを書いてよいかわかりません。
End If
End Sub
----------------------------
ボタンを押したときのイベントハンドラ
Private Sub btnTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTest.Click
　　　　ボタンを押したら、このイベントハンドラを呼び出したい。
　　　　もしくは、間接的に呼び出したい。
-------
どなたか、やり方をご存知の方がいらっしゃいましたら、よろしくお願いします。

No.1 ベストアンサー 回答者： 1050YEN 回答日時： 2005/11/28 01:52

>SendMessage(WM_COMMAND

とは、多少意味合いが異なりますが。。。

btnTest.PerformClick()
と行うと、btnTestオブジェクトと関連付いたイベントハンドラが起動します。
http://okwave.jp/kotaeru.php3?q=1688744


また、エンターキーの動きに限るのであれば、フォームのAcceptButtonプロパティを利用すると、コーディングが不要です。ついでにエスケープにも動作を持たせたいのであれば、CancelButtonプロパティを利用するといいです。



どうしてもＣと全く同様に、イベントを起こすのであれば、Ｃと同じ手続きでＡＰＩで起こせばよいと思います。
http://okwave.jp/kotaeru.php3?q=199357


Public Class Form1
　　Inherits System.Windows.Forms.Form

　　Private Declare Auto Function SendMessage Lib "user32" ( _
　　　　ByVal hWnd As Integer, _
　　　　ByVal wMsg As Integer, _
　　　　ByVal wParam As Integer, _
　　　　ByVal lParam As Integer _
　　) As Integer
　　Private Declare Auto Function GetDlgCtrlID Lib "user32" ( _
　　　　ByVal hWnd As Integer _
　　) As Integer

　　Private Const WM_COMMAND As Integer = &H111
　　Private Const BN_CLICKED As Integer = &H0

#Region " Windows フォーム デザイナで生成されたコード "
#End Region

　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　btnTest.PerformClick()
　　　　SendMessage( _
　　　　　　Me.Handle.ToInt32, _
　　　　　　WM_COMMAND, _
　　　　　　BN_CLICKED * GetDlgCtrlID(btnTest.Handle.ToInt32) * &H10000, _
　　　　　　btnTest.Handle.ToInt32 _
　　　　)
　　End Sub
End Class

この回答へのお礼

詳細な説明どうもありがとうございました。
btnTest.PerformClick()
で、解決しました。
まさに、このような簡単なやり方を期待していました。
できれば、SendMessageのようなやり方はスマートではないと思っていましたので。
既出だったのですね。
検索はしてみたのですが、見つけることができませんでした。

お礼日時：2005/11/28 08:40

No.2 回答者： popopompom 回答日時： 2005/11/28 07:18

こういうことではないでしょうか？

Private Sub txtTest_KeyDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtTest.KeyDown
If e.KeyCode = Keys.Enter Then
btnTest.PerformClick()
End If
End Sub


Private Sub btnTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTest.Click
MsgBox("ボタンが押されました")
End Sub

この回答へのお礼

回答どうもありがとうございました。
btnTest.PerformClick()
で解決いたしました。

お礼日時：2005/11/28 08:43