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