vraag Tab en Enter

[old Hippy]

Hallo Allemaal
Vraag (ik werk met VB 2008 Express)

is het mogelijk om naast de tab ook met enter door te tappen???

ik heb drie textboxen en een button en wil graag met enter naarde volgende textbox en bij de button met enter de actie.

alvast bedankt.

 

[That Guy]

erhm

in de command_keydown(...), select case keyascii, if keyascii = 13, cancel = true, sendkeys vbtab?​

Geen idee - zowiezo een beetje lastig, want normaal gesproken word een command geactiveerd via een enter.

[edit]in vb6 kan het via die regel +/- mischien wel, 200X weet ik dus niet[/edit]

 

[old Hippy]

Helaas kan hier niet mee uit de voeten
maar wie WEET

 

[old Hippy]

ik heb de oplossing gevonden op Google en het werkt
hier de code

 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
            SendKeys.Send("{Tab}")
        End If
    End Sub

Nu nog uit zoeken hoe ik weer in de uigangspositie kan komen na de laatste tab.
Dus weer in textbox1

 

[ReneDirks]

Nu nog uit zoeken hoe ik weer in de uigangspositie kan komen na de laatste tab.
Dus weer in textbox1

Ipv de SendKeys.Send("{Tab}") plaats je

me.textbox1.focus()

 

[old Hippy]

hei ReneDirks
hartelijk bedankt het werkt.
nog maals bedankt allemaal

Ben alweer met het volgende probleem bezig.