VB初心者友の会 - Q&A掲示板過去ログ

> コマンドボタンにショートカットキーを割り当てた
> ソフトをよく見るのですが、ＶＢ６でも出来るのでしょうか？
> コマンドボタンのプロパティを調べたのですが分かりませんでした。

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

CommandButton1.Caption = "これ？(&K)"
これで行けないですか？

>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

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

よろしくお願い致します。m(_ _)m

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

ショートカットの機能はこの場合Alt+Kで機能しますので、特にプログラムを
書く必要せいはないと思います。

はじめまして、ナタデココアです。

> とする事でショートカットの機能はできたのですが
> テキストＢＯＸ上で Shift + "K" を押すと
> "K" の文字がテキストＢＯＸに入力されてしまうのですが
> 回避する方法はないでしょうか？
> 
> よろしくお願い致します。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を押しながらの大文字・小文字の変換は出来ないですけどね(^^ゞ

#7121を熟読してみると、克さんのレスと同じで、特にプログラムを
書く必要はないかと．．．
 

＃ゴミレス

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


なんと豪快な・・・（＠＠；；；

> ＃ゴミレス
> 
> >         If Shift = 1 And KeyCode = vbKeyK Then
> >             Unload Me
> 　　　　　　　　↑
> >         End If
> 
> 
> なんと豪快な・・・（＠＠；；；

あっ、あれ。いつの間に「Unload Me」が．．．
チョット寝不足かな。(@_@)

>ショートカットの機能はこの場合Alt+Kで機能しますので、特にプログラムを
>書く必要せいはないと思います。

克さん、ナタデココアさん、ありがとうございました。
Alt キーでできました。
ショートカットは Shift 又は Ctrl だと思っていました。(^^ゞ
ほんとうにありがとうございました。