他のプロシージャを呼び出すには？

解決

TOSHI 2003-04-22 20:48:43 No: 77775

TEXTBOXで入力した後ENTERを押すと
COMMANDボタンが押されたのと同じプロシージャを
実行させるにはどうすればいいのですか？

Say 2003-04-22 21:49:37 No: 77776

Clickイベントプロシージャと
KeyPressイベントプロシージャから
同一のユーザ関数を呼び、
その関数内でShell関数あたりを使えばいいでしょう。

Root 2003-04-22 21:50:29 No: 77777

テキストボックスのKeyDownイベントに

if (KeyCode = vbEnter) then
call Command1_Click
end if

で実行されると思います。
動作確認はしてませんけど。

魔界の仮面弁士 2003-04-22 22:01:51 No: 77778

# 開発環境を明記して下さいね。

> TEXTBOXで入力した後ENTERを押すと
> COMMANDボタンが押されたのと同じプロシージャを

キーボード押下時のイベント(KeyPress等)にて、
押されたキーがEnterであるかどうかを判定して、
  VB2〜6なら、『Command1.Value = True』
  Microsoft Formsなら、『CommandButton1.Value = True』
  HTML Applicationなら、『Button1.click』
  VB.NETなら、『Button1.PerformClick()』
などを実行すれば良いかと。

TOSHI 2003-04-22 22:16:41 No: 77779

Private Sub TEXT_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbEnter Then
        'Call command1_click
        Me.Command1.Value = True
    End If
End Sub

開発環境はvb6.0 w2k_Pro

ENTERを押したけどうまくいきません
何故でしょう

Private Sub TEXT_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        'Call command1_click
        Me.Command1.Value = True
    End If
End Sub
だとうまくいきます。

魔界の仮面弁士 2003-04-22 22:26:32 No: 77780

vbEnterというのは、Rootさんの勘違いでしょうね。(^_^;
おそらく、vbKeyReturnと書くつもりだったのかと。
（vbEnterはドラッグアンドドロップ処理にて使われる定数です）

TOSHI 2003-04-22 22:35:44 No: 77781

vbKeyReturnだとうまくいきました。
ありがとうございました。