■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#7090-0
コマンドボタンにショートカットキーを付けたい
コマンドボタンにショートカットキーを割り当てた
ソフトをよく見るのですが、VB6でも出来るのでしょうか?

コマンドボタンのプロパティを調べたのですが分かりませんでした。

ご存知の方は教えて頂けないでしょうか。m(_ _)m
#7091-0
RE#7090:コマンドボタンにショートカットキーを付けたい
> コマンドボタンにショートカットキーを割り当てた
> ソフトをよく見るのですが、VB6でも出来るのでしょうか?
> コマンドボタンのプロパティを調べたのですが分かりませんでした。

うん?
キャプションに指定する,あれですか?

CommandButton1.Caption = "これ?(&K)"
これで行けないですか?
#7121-0
RE#7091:コマンドボタンにショートカットキーを付けたい
>CommandButton1.Caption = "これ?(&K)"
>これで行けないですか?

YK^2 さん、ありがとうございました。
下線付きの文字がコマンドボタンに表示されました。V(^o^)V

処理内容ですが、Form の KeyPreview を True にして
Form の KeyDown イベントに

If KeyCode = vbKeyK And Shift = vbShiftMask Then
   CommandButton1.Value = True
End If

とする事でショートカットの機能はできたのですが
テキストBOX上で Shift + "K" を押すと
"K" の文字がテキストBOXに入力されてしまうのですが
回避する方法はないでしょうか?

よろしくお願い致します。m(_ _)m
#7123-0
RE#7121:コマンドボタンにショートカットキーを付けたい
> >CommandButton1.Caption = "これ?(&K)"
> >これで行けないですか?
> 
> YK^2 さん、ありがとうございました。
> 下線付きの文字がコマンドボタンに表示されました。V(^o^)V
> 
> 処理内容ですが、Form の KeyPreview を True にして
> Form の KeyDown イベントに
> 
> If KeyCode = vbKeyK And Shift = vbShiftMask Then
>    CommandButton1.Value = True
> End If
> 
> とする事でショートカットの機能はできたのですが
> テキストBOX上で Shift + "K" を押すと
> "K" の文字がテキストBOXに入力されてしまうのですが
> 回避する方法はないでしょうか?
> 
> よろしくお願い致します。m(_ _)m

ショートカットの機能はこの場合Alt+Kで機能しますので、特にプログラムを
書く必要せいはないと思います。
#7124-0
RE#7121:コマンドボタンにショートカットキーを付けたい
はじめまして、ナタデココアです。

> とする事でショートカットの機能はできたのですが
> テキストBOX上で Shift + "K" を押すと
> "K" の文字がテキストBOXに入力されてしまうのですが
> 回避する方法はないでしょうか?
> 
> よろしくお願い致します。m(_ _)m

KeyDownプロシージャに下記のロジックを入力!
    Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
        If Shift = 1 And KeyCode = vbKeyK Then
            Unload Me
        End If
    End Sub
これで上手くできると思います。

*だけど、Shiftを押しながらの大文字・小文字の変換は出来ないですけどね(^^ゞ
#7126-0
RE#7124:コマンドボタンにショートカットキーを付けたい(追加)
#7121を熟読してみると、克さんのレスと同じで、特にプログラムを
書く必要はないかと...
 
#7127-0
RE#7124:コマンドボタンにショートカットキーを付けたい
#ゴミレス

>         If Shift = 1 And KeyCode = vbKeyK Then
>             Unload Me
        ↑
>         End If


なんと豪快な・・・(@@;;;
#7130-0
RE#7127:コマンドボタンにショートカットキーを付けたい
> #ゴミレス
> 
> >         If Shift = 1 And KeyCode = vbKeyK Then
> >             Unload Me
>         ↑
> >         End If
> 
> 
> なんと豪快な・・・(@@;;;

あっ、あれ。いつの間に「Unload Me」が...
チョット寝不足かな。(@_@)
#7150-0
RE#7123:コマンドボタンにショートカットキーを付けたい
>ショートカットの機能はこの場合Alt+Kで機能しますので、特にプログラムを
>書く必要せいはないと思います。

克さん、ナタデココアさん、ありがとうございました。
Alt キーでできました。
ショートカットは Shift 又は Ctrl だと思っていました。(^^ゞ
ほんとうにありがとうございました。
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)