VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/08/04(Mon) 16:14 |
| 投稿者 | ： nanashi |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 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を調べた方が良いです。
てゆーか、何にしてもまず分からないことはヘルプを調べてください。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）