vb6.0,我的代码是:
Private Sub Check1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyDown
KeyCode = vbTab
Case vbKeyUp
KeyCode = vbTab
Shift = 0
End Select
End Sub
在vb中,Tab键是不能激活keydown & Keyup事件的,所以 forgettor的代码不能有效。
如果forgettor需要能运行代码,必须将Check1.Tabstop=false,这样是Tab键能激活keydown事件
vbjj说箭头键在checkbox中通常不激活keydown系列事件是对的,如果真需要箭头键在checkbox中激活keydown系列事件,可以如下解决:
1)窗口中有两个以上控件(如check1,check2等)
2)确保check1.CausesValidation 属性值设置为True
3)Private Sub Check1_Validate(Cancel As Boolean)
Check1_KeyDown vbKeyLeft, 0
End Sub
在vb中,Tab键是不能激活keydown & Keyup事件的,所以 forgettor的代码不能有效。
如果forgettor需要能运行代码,必须将Check1.Tabstop=false,这样是Tab键能激活keydown事件
vbjj说箭头键在checkbox中通常不激活keydown系列事件是对的,如果真需要箭头键在checkbox中激活keydown系列事件,可以如下解决:
1)窗口中有两个以上控件(如check1,check2等)
2)确保check1.CausesValidation 属性值设置为True
3)Private Sub Check1_Validate(Cancel As Boolean)
Check1_KeyDown vbKeyLeft, 0
End Sub