投稿日 | : 2005/04/27(Wed) 19:27 |
投稿者 | : J2924 |
Eメール | : |
URL | : |
タイトル | : KeyPreviewとssTab |
色々と検索してみたのですが有用な情報を見つけることが出来ませんでした。
ご助言いただければ幸いです。
KeyPreview=Trueに設定しているFormにssTabを配置した所
ssTabにFocusが有る時に限りKeyUpイベントが二度発生してしまうのですが
同じような経験をされた方いらっしゃるでしょうか。
また、回避方法をご存知の方降りましたらヒントお願いします。
VB6.0 SP6 WinXPHomeSP2
下記で再現しています。
Private Sub Command1_Click()
MsgBox "ボタン押した"
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF1
Call Command1_Click
Debug.Print "KeyupPress"
End Select
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub