Question

So I have a bunch of listboxes on my VB form. I created a command button too.

I want to make it so that if I press the command button it cycles from the current listbox, which has focus, to the previous listbox. It’s the equivalent of using TAB and SHIFT TAB to cycle amongst the control. SHIFT TAB goes backwards in the cycle, TAB goes forward in the cycle. I vaguely remember there was a way to go back & forth in the “tab cycle”.

How do I do this?

Answer 1

You can;

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