Hilfe bei Textbox (uhrzeit) Klasse

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Hilfe bei Textbox (uhrzeit) Klasse

    Hallo zusammen,

    Ich habe mir eine Textbox Klasse erstellt die nur Uhrzeiten zulässt.
    Hier funktioniert aber die Delete taste nicht, und wie kann ich da eine Überschreib Funktion hinzufügen.

    Wer kann mir da Helfen?

    anbei mein Code
    (VB 2012 Net 4.5)

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class UhrzeitTextbox
    2. Inherits TextBox
    4. Protected Overrides Sub OnKeyPress(ByVal e As _
    5. System.Windows.Forms.KeyPressEventArgs)
    6. MyBase.OnKeyPress(e)
    7. Select Case Len(MyBase.Text) ' Nur Uhrzeit in Textbox zulassen
    9. Case 0
    11. Select Case Asc(e.KeyChar)
    12. Case 8, 48 To 50
    14. Case Else
    15. e.Handled = True
    16. End Select
    18. Case 1
    20. If (MyBase.Text) = "2" Then
    21. Select Case Asc(e.KeyChar)
    22. Case 8, 48 To 51
    24. Case Else
    25. e.Handled = True
    26. End Select
    27. Else
    28. Select Case Asc(e.KeyChar)
    29. Case 8, 48 To 57
    31. Case Else
    32. e.Handled = True
    33. End Select
    34. End If
    36. Case 2
    38. Select Case Asc(e.KeyChar)
    39. Case 8, 48 To 53, 58
    41. If Asc(e.KeyChar) <> 58 Then MyBase.Text = _
    42. MyBase.Text & ":" ' Automatisches einfügen des Doppelpunktes()
    43. MyBase.SelectionStart = Len(MyBase.Text) + 2
    45. Case Else
    46. e.Handled = True
    47. End Select
    49. Case 3
    51. If (MyBase.Text) = ":" Then
    52. Select Case Asc(e.KeyChar)
    53. Case 8, 48 To 53
    55. Case Else
    56. e.Handled = True
    57. End Select
    58. End If
    60. Case 4
    61. Select Case Asc(e.KeyChar)
    62. Case 8, 48 To 57
    63. Case Else
    64. e.Handled = True
    65. End Select
    66. Case Else
    67. e.Handled = True
    68. End Select
    69. End Sub
    70. End Class

    Setze in Zeile 7 (Code hier im Forum) einen Haltepunkt. Drück auf die Taste, die Du brauchst, identifiziere sie und erweitere den Code entsprechend.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    chefe82 schrieb:

    verstehe nur Bahnhof :(
    In diese Zeile:

    VB.NET-Quellcode

    1. Select Case Len(MyBase.Text) ' Nur Uhrzeit in Textbox zulassen
    mit F9 einen Haltepunkt setzen,
    Programm in der Entwicklungsumgebung starten
    die betreffende Taste drücken
    wenn das Programm anhält auf den Parameter e klicken und Shift+F9 drücken
    Tastencode identifizieren
    Programm entsprechend abändern.
    Feddich.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    chefe82 schrieb:

    habe das jetzt so gemacht
    Bei mir sieht das so aus:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende