[VB6] movimento con le frecce

[devilnonno]

Con VB6 stò cercando di muovermi tra una text ed un'altra con le frecce direzionali ma non ci riesco. Vi prego, mi serve aiuto

[biifu]

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 37 'freccia dx

Case 39 'freccia sx

Case 38 'freccia su

Case 40 'freccia giù

Case Else
End Select
End Sub

eccetera

ma non è meglio dare il tabindex e muoversi con tab??

[Mabi]

Puoi farlo usando una matrice di Text:

Private Sub Txt_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Select Case KeyCode
  Case 38
    If Index > 0 Then
      Txt(Index - 1).SetFocus
    Else
      Txt(Txt.Count - 1).SetFocus
    End If
  Case 40
    If Index < (Txt.Count - 1) Then
      Txt(Index + 1).SetFocus
    Else
      Txt(0).SetFocus
    End If
End Select
End Sub

In questo modo come ti ha detto biifu, ti sposti con la freccia SU e GIU', ma puoi adattarlo anche per quelle orizzontali.

Ciao