vb6 - 在 VB6 中的单选按钮之间切换

Question

我有一个表单，它由一个框架内的六个单选按钮和一个命令按钮组成，这些单选按钮是互斥的。

我已经为每个单选按钮提供了不同的选项卡索引，但是在运行时通过按选项卡焦点跳过了单选按钮。

那么如何通过按 TAB 将焦点放在另一个单选按钮上？

Answer 1

正如其他人在上面所说的那样，这是预期的行为。如果您真的希望实现这一点，那么我能想到的唯一方法是将每个单选按钮放在一个单独的图片框上（BorderStyle = None，TabStop = False）。然后这将起作用，但您将无法使用箭头键在单选按钮之间移动，只能使用制表符。

Answer 2

Private Sub Option1_KeyPress(KeyAscii As Integer)
   If KeyAscii = 9 Then
      Option2.SetFocus
   End If
End Sub

KeyAscii=9 是 Tab 键的代码。但是您必须为所有单选按钮执行此操作。

如果您添加属于具有索引 0、1、2 的同一个单选按钮的单选按钮，您可以这样做：

Private Sub Option1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 9 Then
    If Index < Option1.Count - 1 Then
        Option1(Index + 1).SetFocus
    Else
        Option1(0).SetFocus
    End If
End If
End Sub