控件的焦点转移

[csdeveloper2010]

假设我现在有一个checkbox，一个button，和一个textbox。如何使用上下键（切记是上下键vbkeyup/vbkeydown）使得焦点在三者键顺序传递。即假设现在焦点在checkbox上，用keyup将焦点转移到textbox，用keydown转移到button，以此类推

[东方之珠]

用TAB键，或者上下箭头键是可以的，无须编程。但是，如果光标在文本框内，用箭头键不能转移焦点。

[chuifengde]

将控件的tabindex设为连续
然后在三者的keydown事件判断keycode为down时sendkeys "{tab}" up时sendkeys "+{tab}"

[csdeveloper2010]

第一，需求不允许用tab键
第二，当焦点从textbox转移到button就触发了button的keydown事件（这不符合要求）。我现在是无法将焦点从button转移到textbox

[zst24]

第一问：楼主，怎样才能不让tab键不好用啊？ 求思路！
第二问：焦点要在checkbox,button,textbox间移动，为啥从textbox移到button,又要从button移回textbox?

[csdeveloper2010]

第一，不是tab不好用，而是希望能用上下键操作；所以我的目的是上下键，跟tab键无关。
第二，当焦点已经在button上的时候，按上下键根本不触发keydown事件；反而是焦点从其它控件移到button上的时候触发keydown事件，更奇怪的是还触发了两次，求解？？？

[帝企鹅已被占用]

把所有的tabstop=false

[舉杯邀明月]

Private Sub Check1_KeyDown(KeyCode As Integer, Shift As Integer)
    If (KeyCode = vbKeyUp) Then Text1.SetFocus: Exit Sub
    If (KeyCode = vbKeyDown) Then Command1.SetFocus: Exit Sub
End Sub

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
    If (KeyCode = vbKeyUp) Then Check1.SetFocus: Exit Sub
    If (KeyCode = vbKeyDown) Then Text1.SetFocus: Exit Sub
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If (KeyCode = vbKeyUp) Then Command1.SetFocus: Exit Sub
    If (KeyCode = vbKeyDown) Then Check1.SetFocus: Exit Sub
End Sub