ＶＢで作成するactiveXcontrolについて教えてください

締切済

質問者：chiba-masaru
質問日時：2001/06/15 12:58
回答数：1件

ＫｅｙＤｏｗｎイベントでＴＡＢの仮想ＫＥＹコードを取得する方法を教えてください。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： ARC
回答日時：2001/06/16 04:57

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

　If KeyCode = vbKeyTab Then
　　MsgBox "TAB押したよ!"
　End If
End If
ってことでしょうか？

API使うなら、
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Public Function TabOn() As Boolean
　If GetAsyncKeyState(vbKeyTab) <> 0 Then
　　TabOn = True
　End If
End Function
って感じかな。