VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/08/04(Mon) 16:33 |
| 投稿者 | ： ねぎ |
| ＵＲＬ | ： |
| タイトル | ： Re^2: ショートカットについて |
魔界の仮面弁士様返信ありがとうございます。
> KeyPreviewプロパティをTrueにしておけば、KeyDownイベントで拾えます。
> （キー押下時には、そのフォームがアクティブになっている必要があります）
nanasi様にも指摘されましたので、trueにした所、作動しました♪
> GoSubの使い方が間違っているような…これではまるで、GoToですね。(^_^;)
はい（汗）こちらもnanasi様に指摘されたので下記の方でする事にしました。
初心者なので、まだ常識も分からなくてすいませんm(_ _)m
'ショートカット
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (Shift = vbShiftMask) Then 'Shiftが押されている場合
Select Case KeyCode
Case vbKeyF1 '製品マスタ設定
Call Seimasu_Open_Click
End Select
Else 'Shiftが押されていない場合
Select Case KeyCode
Case vbKeyF1 '受注処理
Call JyuSyori_Open_Click
End Select
End If
End Sub
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）