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

解決

TOSHI 2003-04-22 11:48:43 No: 77775 IP: [192.*.*.*]

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

編集削除

Say 2003-04-22 12:49:37 No: 77776 IP: [192.*.*.*]

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

編集削除

Root 2003-04-22 12:50:29 No: 77777 IP: [192.*.*.*]

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

if (KeyCode = vbEnter) then
call Command1_Click
end if

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

編集削除

魔界の仮面弁士 2003-04-22 13:01:51 No: 77778 IP: [192.*.*.*]

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

> 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 13:16:41 No: 77779 IP: [192.*.*.*]

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 13:26:32 No: 77780 IP: [192.*.*.*]

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

編集削除

TOSHI 2003-04-22 13:35:44 No: 77781 IP: [192.*.*.*]

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

編集削除