在VB6中单选按钮之间的标签

Question

我有一个表格,它由一个框架内的六个单选按钮和一个命令按钮组成.

我已经为每个单选按钮提供了不同的tab-index,但是在运行时通过按Tab键焦点跳过单选按钮.

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

Answer 1

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