Home » PlItems » Dezimal/Währungseingabe in zwei Textboxen (VB.NET)

Dezimal/Währungseingabe in zwei Textboxen

ID68
Link ReferenceNot set
Link CreditsNot set
Link Technical DocumentationNot set
PlCodelangVB.NET
PlGroupGUI, Komponenten allgemein
PlItemTitleDezimal/Währungseingabe in zwei Textboxen
Code Sub TextBox1KeyUp(sender As Object, e As KeyEventArgs)
If ((e.KeyCode = Keys.Oemcomma) OR (e.KeyCode = Keys.Decimal)) Then
CType(Sender,TextBox).Text = CType(Sender,TextBox).Text.Trim(",")
CType(Sender,TextBox).SelectionStart = CType(Sender,TextBox).Text.Length
For i As Integer = 0 To Me.Controls.Count-1
If Me.Controls.Item(i).TabIndex = CType(Sender,TextBox).TabIndex+1 Then
CType(Me.Controls.Item(i),TextBox).Focus
End If
Next
End If
End Sub
Result Example