■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#5751-0cmdボタンにファンクションキーを割付るちー1999-12-16(木) 13:53
     #5754-0RE#5751:cmdボタンにファンクションキーを割付る小休止1999-12-16(木) 14:33
     #5755-0RE#5751:cmdボタンにファンクションキーを割付るまるき1999-12-16(木) 14:34
     #5756-0RE#5751:cmdボタンにファンクションキーを割付るJI1999-12-16(木) 14:35
#5751-0
cmdボタンにファンクションキーを割付る
初めて書き込みさせていただきます。

ファンクションキーを押したとき(ctrlキーなどを使わずに)、
対応するコマンドボタンのClickイペントを実行させたいのですが、
どうすればできるのでしょうか?
以下のようなコードを書いてみましたが、うまくいきません。
どなたかご教授、お願いいたします。

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   Select Case KeyCode 
  Case vbKeyF2’KeyCodeがF2キーだったら 
            cmdR11.SetFocus 'コマンドボタンにフォーカスして
            KeyCode = vbKeySeparator ’KeyCodeをEnterにして
            KeyAscii = 13 '一応、KeyAsciiを Enter
    End Select      
End Sub ’みなさんの失笑が聞こえるような・・・
#5754-0
RE#5751:cmdボタンにファンクションキーを割付る
> ファンクションキーを押したとき(ctrlキーなどを使わずに)、
> 対応するコマンドボタンのClickイペントを実行させたいのですが、
> 
> Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
>    Select Case KeyCode 
>   Case vbKeyF2’KeyCodeがF2キーだったら 
>             cmdR11.SetFocus 'コマンドボタンにフォーカスして
>             KeyCode = vbKeySeparator ’KeyCodeをEnterにして
>             KeyAscii = 13 '一応、KeyAsciiを Enter
>     End Select      
> End Sub ’みなさんの失笑が聞こえるような・・・
> 

クリックイベントを実行させたいのならば

    Select Case KeyCode 
   Case vbKeyF2’KeyCodeがF2キーだったら 
       call cmdR11_click
     End Select      

でどう?
ただしフォームのKeyPreviewプロパティをTrueにしないと駄目ですよ。
#5755-0
RE#5751:cmdボタンにファンクションキーを割付る
> 初めて書き込みさせていただきます。
> 
> ファンクションキーを押したとき(ctrlキーなどを使わずに)、
> 対応するコマンドボタンのClickイペントを実行させたいのですが、
> どうすればできるのでしょうか?
> 以下のようなコードを書いてみましたが、うまくいきません。
> どなたかご教授、お願いいたします。
<略> 

Private Sub Command2_Click()
    EntCommand2
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyF2 Then
        EntCommand2
    End If
End Sub

Private Sub EntCommand2()
    MsgBox "Command2 がクリックされました"
End Sub

こう言うのではだめかな?
#5756-0
RE#5751:cmdボタンにファンクションキーを割付る
> 初めて書き込みさせていただきます。
> 
> ファンクションキーを押したとき(ctrlキーなどを使わずに)、
> 対応するコマンドボタンのClickイペントを実行させたいのですが、
> どうすればできるのでしょうか?
> 以下のようなコードを書いてみましたが、うまくいきません。
> どなたかご教授、お願いいたします。
> 
> Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
>    Select Case KeyCode 
>   Case vbKeyF2’KeyCodeがF2キーだったら 
>             cmdR11.SetFocus 'コマンドボタンにフォーカスして
>             KeyCode = vbKeySeparator ’KeyCodeをEnterにして
>             KeyAscii = 13 '一応、KeyAsciiを Enter
>     End Select      
> End Sub ’みなさんの失笑が聞こえるような・・・
> 
> 
コードからコマンドボタンのClickイベントを実行するには、
ValueプロパティをTrueに設定します。

その前にKeyDownイベントが発生していることが前提ですが.....

KeyAscii って、どこで設定されているのでしょう?
まさか、KeyPressイベントの第1引数では......(汗)
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)