Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: AutoTab - samoczynne przeskakiwanie fokusa
anecia




Typ: neutral
Postów: 4
Zarejestrowany: Apr 2005
AutoTab - samoczynne przeskakiwanie fokusa

Zalozenie:
Mamy 4 pola tekstowe, reprezentujace godzine. W kazde pole mozna wpisac tylko jedna cyfre.
Pytanie: W jaki sposob spowodoawc aby po wpisaniu cyfry, fokus automatycznie przeskakiwal do nastepnego pola tekstowego? Prosze o pomoc

11-05-2005 12:34
Pokaż profil anecia  Wyślij email do anecia   
hicks
raptor user



Typ: moderator
Postów: 279
Zarejestrowany: Apr 2003

1 sposób: bez autocofania

Private Sub Text1_Change()
    Text2.SetFocus
End Sub

Private Sub Text2_Change()
    Text3.SetFocus
End Sub

Private Sub Text3_Change()
    Text4.SetFocus
End Sub

Private Sub Text4_Change()
    '
End Sub

2 sposób: z auto-cofaniem aktywności przy naciśnięciu backspace

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyBack Then
        '
    Else
        Text2.SetFocus
    End If
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyBack Then
        Text1.SetFocus
    Else
        Text3.SetFocus
    End If
End Sub

Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyBack Then
        Text2.SetFocus
    Else
        Text4.SetFocus
    End If
End Sub

Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyBack Then
        Text3.SetFocus
    End If
End Sub

[Post edytowany dnia 11-05-2005 13:45 przez hicks]


_____________________________________________
TLHW Clan member

11-05-2005 13:44
Pokaż profil hicks  Wyślij email do hicks   Odwiedź stronę hicks       2511367
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1