Probleme mit Uhrzeit in Textbox

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Kangaroo.

    Probleme mit Uhrzeit in Textbox

    Hallo an alle,

    Ich habe ca. 50 Textboxen auf meiner Form wo nur die Eingaben von Uhrzeiten möglich sein soll.

    Habe dazu schon was zusammengebastelt aber die Taste Backspace Funktioniert nicht, und wie kann mann das als Funktion ändern? Weil bei 50 Textboxen den Code, wird finde ich sehr unübersichtlich.

    VB.NET-Quellcode

    1. Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
    2. Select Case Len(TextBox2.Text) ' Nur Uhrzeit in Textbox zulassen
    4. Case 0
    6. Select Case Asc(e.KeyChar)
    7. Case 8, 48 To 50
    9. Case Else
    10. e.Handled = True
    11. End Select
    13. Case 1
    15. If (TextBox2.Text) = 2 Then
    16. Select Case Asc(e.KeyChar)
    17. Case 8, 48 To 51
    19. Case Else
    20. e.Handled = True
    21. End Select
    22. Else
    23. Select Case Asc(e.KeyChar)
    24. Case 8, 48 To 57
    26. Case Else
    27. e.Handled = True
    28. End Select
    29. End If
    31. Case 2
    33. Select Case Asc(e.KeyChar)
    34. Case 8, 48 To 53, 58
    36. If Asc(e.KeyChar) <> 58 Then TextBox2.Text = TextBox2.Text & ":" ' Automatisches einfügen des Doppelpunktes
    37. Me.TextBox2.SelectionStart = Len(Me.TextBox2.Text) + 2
    39. Case Else
    40. e.Handled = True
    41. End Select
    43. Case 3
    45. If (TextBox2.Text) = ":" Then
    46. Select Case Asc(e.KeyChar)
    47. Case 8, 48 To 53
    49. Case Else
    50. e.Handled = True
    51. End Select
    52. End If
    54. Case 4
    55. Select Case Asc(e.KeyChar)
    56. Case 8, 48 To 57
    57. Case Else
    58. e.Handled = True
    59. End Select
    60. Case Else
    61. e.Handled = True
    62. End Select
    63. End Sub


    Hoffe ihr könnt mir Helfen

    mfg

    lambr67

    lambr67 schrieb:

    Weil bei 50 Textboxen den Code, wird finde ich sehr unübersichtlich.

    50 Textboxen finde ich überhaupt unübersichtlich, aber das ist Dein Problem :rolleyes:

    2 Tipps für Dich:
    - verwende das MaskedTextbox Control um zulässige Eingaben zu definieren, das erspart Dir Deine Eingabeprüfungen
    - wenn Du noch zusätzlich Prüfungen hast erzeuge eine Prüfroutine, auf die Du mit AddHandler bei Ereignissen verweist.

    Zusätzlich kannst Du Dir überlegen die Controls dynamisch zu erzeugen.

Facebook
Telefonspende