VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/08/04(Mon) 16:05 |
| 投稿者 | ： ねぎ |
| ＵＲＬ | ： |
| タイトル | ： ショートカットについて |
おはようございます。
早速ですが。
メインフォームから各フォームにファンクションキーを使って開けるようにしたいと思っています。
フォームの数が多いのでShiftも利用してフォームを開きたいです。
まだ始めたばかりなので、よく分からないことだらけなのですが・・・。
自分なりに作ってみました。（下記のソース）
しかし、やはり考え方自体間違っているのか、実行してキーを押しても何も起こりません（涙
アドバイスをいただけたらなと思っています。よろしくお願いします。
'ショートカット
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
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）