Cursor laten verspringen na Enter

Status
Niet open voor verdere reacties.

Jan92

Gebruiker
Lid geworden
17 feb 2010
Berichten
111
Dag Allemaal,

Ik heb een form gemaakt met diverse in te vullen vakken.
Ik kan natuurlijk elk vak aanklikken met de muis om in te vullen.
Ook heb ik ontdekt dat men via de Proporties, Tabindex, de cursor in de vakken kan
zetten in een bepaalde volgorde.
Mijn vraag is nu : kan ik inplaats van de Tab-toets te gebruiken ook van het ene naar
het andere vak springen via de Enter-toets ? :rolleyes:
 
Zou zo moeten kunnen
Code:
 Private Sub TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox.KeyPress
        'Zorgt voor tab met enter
        If e.KeyChar = Chr(13) Then
            e.Handled = True
            SendKeys.Send("{Tab}")
        End If
    End Sub


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Zorgt voor het door tappen met enter
        Dim TopControl As Control = DirectCast(sender, Control)
        For Each c As Control In TopControl.Controls
            If c.HasChildren Then
                Form1_Load(c, e)
            End If
            If TypeOf c Is TextBox Then
                If CType(c, TextBox).Multiline = False Then
                    AddHandler c.KeyPress, AddressOf AnyTextBox_KeyPress
                End If
            End If
        Next
End sub
 
Hoi, Old Hippy

Hartelijk dank voor de gegeven code. :thumb:
Gezien ik nog maar in beginstadium zit begrijp ik nog niet erg veel van deze
code maar ik kom er vroeg of laat wel uit. Ik zal het alvast eens uitproberen.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan