Enter

[BreVDD]

Hallo,

Ik stelde al keer een vraag over Enter.

Toen kreeg ik dat als antwoord:

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

        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
    Private Sub AnyTextBox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        If e.KeyChar = Chr(13) Then
            e.Handled = True

            'Doe iets
            TextBox2.BackColor = Color.AntiqueWhite
            Me.TextBox1.Focus()
        End If
    End Sub

Maar nu wel ik dat uitbreiden,

En wil ik ervoor zorgen dat je voor elke textbox waar er enter word getypt iets anders gebeurt...

Maar dit lukt niet, ik heb dit geprobeerd maar dit lijk niet te werken...:

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

        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 textbox1_KeyPress
                End If
            End If
        Next
 Dim TopControl2 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 Textbox2_KeyPress
                End If
            End If
        Next
 

    End Sub
    Private Sub textbox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        If e.KeyChar = Chr(13) Then
            e.Handled = True

            'Doe iets
             Me.TextBox1.Focus()
        End If
    End Sub
   Private Sub textbox2_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        If e.KeyChar = Chr(13) Then
            e.Handled = True

            'Doe iets
             Me.TextBox2.Focus()
        End If
    End Sub

Messchien ziet er iemand wat ik verkeerd doe...

Alvast bedankt

 

[mr32]

???

Heey,

Volgens mij gebruik je onnodig veel regels code. Het kan VEEL simpeler met een simpele IF lus per textbox. Daarmee kun je dus alle kanten op. Hopelijk heb je hier iets aan:


Private Sub jouTextbox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles jouTextbox.KeyDown

If e.KeyCode = Keys.Enter Then

Button1_Click(sender, e)​

End If​

End Sub

Veel succes ermee!

mr32

 

[BreVDD]

Heey,

Volgens mij gebruik je onnodig veel regels code. Het kan VEEL simpeler met een simpele IF lus per textbox. Daarmee kun je dus alle kanten op. Hopelijk heb je hier iets aan:


Private Sub jouTextbox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles jouTextbox.KeyDown

If e.KeyCode = Keys.Enter Then

Button1_Click(sender, e)​

End If​

End Sub

Veel succes ermee!

mr32

En dan 'stuurt'

Button1_Click(sender, e)​

dat door naar wat er gebeurt als er geklikt wordt op 'een_knop'
?

 

[mr32]

Precies :thumb:

Maar wat er in die lus staat, kun je natuurlijk zelf invullen.

Nog steeds veel succes

mr32