タイトル : Re: 別のフォームのコントロールのKeyPressイベントを発生させたい 投稿日 : 2009/09/14(Mon) 18:48 投稿者 : 魔界の仮面弁士
> FORM2から FORM1にあるテキストボックスに 文字を送ることは出来ましたが > ENTERキーを押下する(KeyPressイベントを発生させたい) とゆう事は出来るのでしょうか その意図にもよりますが、Form2 上で ENTER 押下されたことを Form1 で受け取りたいという意味であれば、キー押下を受け取るために ≪Form1 側≫ Private WithEvents GuideForm As Form Private Sub Form_Load() 'Set GuideForm = New Form2 Set GuideForm = Form2 GuideForm.Show vbModeless, MDIForm1 End Sub Private Sub GuideForm_KeyPress(ByRef KeyAscii As Integer) 何かの処理 End Sub のようにすれば良いかと思います。 また、別に Enter 押下に拘らず、単にイベント発生時の処理を行わせたいだけであれば、 ≪Form1 側≫ Public Sub EnterKeyPressed() 何かの処理 End Sub Private Sib Form_KeyPress(ByRef KeyAscii As Integer) If KeyAscii = vbKeyReturn Then EnterKeyPressed(KeyAscii) End If End Sub のようにしておき、この EnterKeyPressed メソッドを Form2 側から呼び出すとか。 |