VB6中如何循环到上一个控件？

Question

所以我的 VB 表单上有一堆列表框。我也创建了一个命令按钮。

我想要做到这一点，以便如果我按下命令按钮，它就会从具有焦点的当前列表框循环到上一个列表框。这相当于使用 TAB 和 SHIFT TAB 在控件之间循环。 SHIFT TAB 在循环中向后移动，TAB 在循环中向前移动。我依稀记得有一种回去的方法&在“选项卡循环”中向前移动。

我该怎么做？

Answer 1

你可以;

Private mCurrentListboxTabIndex As Integer

'wire up, simpler if you use a control array
Private Sub List1_GotFocus()
    mCurrentListboxTabIndex = List1.TabIndex
End Sub

Private Sub List2_GotFocus()
    mCurrentListboxTabIndex = List2.TabIndex
End Sub

Private Sub List3_GotFocus()
    mCurrentListboxTabIndex = List3.TabIndex
End Sub

Private Sub btnPrev_Click()
    FocusListBoxByTabIndex -1
End Sub

Private Sub btnNext_Click()
    FocusListBoxByTabIndex 1
End Sub

Private Sub FocusListBoxByTabIndex(offset As Long)
    Dim ctrl As VB.Control
    For Each ctrl In Me
        If TypeOf ctrl Is ListBox Then
            If ctrl.TabIndex = mCurrentListboxTabIndex + offset Then
                ctrl.SetFocus
                Exit Sub
            End If
        End If
    Next
End Sub