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

时间:2012-07-02 05:38:52

标签: vb6 radio-button tabindex

我有一个表格,它由一个框架内的六个单选按钮组成,它们是互斥的,只有一个命令按钮。

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

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

2 个答案:

答案 0 :(得分:3)

如上所述,这是预期的行为。如果你真的希望实现这一点,那么我能想到的唯一方法就是将每个单选按钮放在一个单独的图片框中(BorderStyle = None,TabStop = False)。这将有效,但您将无法使用箭头键在单选按钮之间移动,只能使用Tab键。

答案 1 :(得分: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