投稿日 | : 2003/08/04(Mon) 16:14 |
投稿者 | : nanashi |
Eメール | : |
URL | : |
タイトル | : Re: ショートカットについて |
> しかし、やはり考え方自体間違っているのか、実行してキーを押しても何も起こりません(涙
FormのKeyPreviewがTrueになってない、とか。
> Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
>
> If (Shift = 0) Then
> GoSub YesShift 'Shiftが押されている場合
> Else
> GoSub NoShift 'Shiftが押されていない場合
> End If
>
> YesShift:
> Select Case KeyCode
> Case vbKeyF1 '製品マスタ設定
> Call Seimasu_Open_Click
> End Select
>
> NoShift:
> Select Case KeyCode
> Case vbKeyF1 '受注処理
> Call JyuSyori_Open_Click
> End Select
>
> End Sub
まず、Shiftキー&何か を押している時は Shift = vbShiftMask になっています。
Shift = 0 はShift、Ctrl、Altのどれも押されていない時です。
この辺はKeyDownイベントについてMSDN(ヘルプ)を調べてください。
あとGoSubは過去のBasicとの互換性を保つために残されてるステートメントなので使わない方が良いです。
使うにしても Returnステートメントがないと希望通りに動いてくれないでしょう。
(つーか、エラー出ないんですかね??)
これに関してもMSDNを調べた方が良いです。
てゆーか、何にしてもまず分からないことはヘルプを調べてください。