Button - Aktion nur nach zweimaligem Drücken durch Textbox-Validierung

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von sronny.

    Button - Aktion nur nach zweimaligem Drücken durch Textbox-Validierung

    Guten Morgen,

    ich muss da mal eine Frage fragen:

    Und zwar habe ich ein Form, in welchem mehrere Textboxen sind. Nach Eingabe in einer Textbox überprüfe ich im .Validating-Event
    die Eingabe und passe die in der Form dahinterliegenden Daten an und will diese dann mittels Button Speichern (btSpeichern) oder eben nicht speichern lassen(btAbbruch).

    Das Validieren funktioniert auch solang, wie ich innerhalb der Textboxen hin- und herhüpfe. Ändere ich nur in einer Textbox etwas und klicke dann Speichern wird zwar Textbox.Validating ausgeführt, aber nicht die Aktion hinter dem Speicherbutton, sondern erst nach zweimaligen Drücken desselben - nämlich die geänderten Daten entsprechend zu speichern und die Form zu schließen. Daher nun meine Frage, wie erreiche ich es, das eben die Textboxdaten validiert werden und anschließend im Erfolgsfalle gespeichert und geschlossen wird?

    Hi,

    wenn du Fragen beantwortet haben möchtest solltest du deinen Code posten oder zumindest den wichtigen Teil.

    Grundsätzlich kann ich dein Problem nicht nachvollziehen.
    Im Validating Event kannst du e.Cancel auf true oder false setzen. Setzt du es auf True wird das Button Event nicht mehr ausgeführt. Default ist es False und dann sollte das Event ausgeführt werden.
    Das ist meine Signatur und sie wird wunderbar sein!

    Im Validating Event kannst du e.Cancel auf true oder false setzen. Setzt du es auf True wird das Button Event nicht mehr ausgeführt. Default ist es False und dann sollte das Event ausgeführt werden.


    Jep, das ist mir soweit schon klar und bewusst. Hab ich auch schon damit herumexperimentiert.

    Das ist mein Validate-Event:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub txtStrasse_Validating(sender As Object, e As CancelEventArgs) Handles txtStrasse.Validating
    3. If String.IsNullOrEmpty(txtStrasse.Text) Then Return
    5. If Not lstStrassen.Contains(txtStrasse.Text) Then
    6. Adresse.Strasse = txtStrasse.Text
    7. Adresse.IDAdresse = 0
    8. Adresse.Geändert = True
    10. Else
    11. If Not String.IsNullOrEmpty(mtxtPLZ.Text) Then
    12. bsAdresseSuche.FilterX("[Strasse] = ? And [PLZ] = ?", txtStrasse.Text, mtxtPLZ.Text)
    13. If bsAdresseSuche.Count = 1 Then
    14. Dim rw = DirectCast(DirectCast(bsAdresseSuche.Current, DataRowView).Row, Kontakte.AdresseRow)
    15. Adresse.Strasse = rw.Strasse
    16. Adresse.PLZ = rw.PLZ
    17. Adresse.Ort = rw.Ort
    18. Adresse.IDAdresse = rw.ID
    19. Adresse.Geändert = False
    21. txtOrt.Text = rw.Ort
    22. mtxtPLZ.Text = rw.PLZ
    23. ElseIf bsAdresseSuche.Count > 1 Then
    24. Using frm1 = New frmAdressAuswahl(bsAdresseSuche)
    25. frm1.lblHinweis.Text = "Zu Ihrer Eingabe wurden mehrere Adressen gefunden." &
    26. System.Environment.NewLine &
    27. "Wählen Sie eine Adresse oder legen Sie eine neue Adresse an:"
    29. If frm1.ShowDialog(Me) = DialogResult.Cancel Then
    30. Dim rw = DirectCast(DirectCast(bsAdresseSuche.Current, DataRowView).Row, Kontakte.AdresseRow)
    31. Adresse.Strasse = rw.Strasse
    32. Adresse.PLZ = rw.PLZ
    33. Adresse.Ort = rw.Ort
    34. Adresse.IDAdresse = rw.ID
    35. Adresse.Geändert = False
    37. txtOrt.Text = rw.Ort
    38. mtxtPLZ.Text = rw.PLZ
    39. Else
    40. Adresse.Strasse = txtStrasse.Text
    41. Adresse.IDAdresse = 0
    42. Adresse.Geändert = True
    43. End If
    44. End Using
    45. Else
    46. Adresse.Strasse = txtStrasse.Text
    47. Adresse.IDAdresse = 0
    48. Adresse.Geändert = True
    50. End If
    51. Else
    53. bsAdresseSuche.FilterX("[Strasse] = ?", txtStrasse.Text)
    54. If bsAdresseSuche.Count = 1 Then
    55. Dim rw = DirectCast(DirectCast(bsAdresseSuche.Current, DataRowView).Row, Kontakte.AdresseRow)
    56. Adresse.Strasse = rw.Strasse
    57. Adresse.PLZ = rw.PLZ
    58. Adresse.Ort = rw.Ort
    59. Adresse.IDAdresse = rw.ID
    60. Adresse.Geändert = False
    62. txtOrt.Text = rw.Ort
    63. mtxtPLZ.Text = rw.PLZ
    64. ElseIf bsAdresseSuche.Count > 1 Then
    65. Using frm1 = New frmAdressAuswahl(bsAdresseSuche)
    66. frm1.lblHinweis.Text = "Zu Ihrer Eingabe wurden mehrere Adressen gefunden." &
    67. System.Environment.NewLine &
    68. "Wählen Sie eine Adresse oder legen Sie eine neue Adresse an:"
    70. If frm1.ShowDialog(Me) = DialogResult.Cancel Then
    71. Dim rw = DirectCast(DirectCast(bsAdresseSuche.Current, DataRowView).Row, Kontakte.AdresseRow)
    72. Adresse.Strasse = rw.Strasse
    73. Adresse.PLZ = rw.PLZ
    74. Adresse.Ort = rw.Ort
    75. Adresse.IDAdresse = rw.ID
    76. Adresse.Geändert = False
    78. txtOrt.Text = rw.Ort
    79. mtxtPLZ.Text = rw.PLZ
    80. Else
    81. Adresse.Strasse = txtStrasse.Text
    82. Adresse.IDAdresse = 0
    83. Adresse.Geändert = True
    84. End If
    85. End Using
    86. Else
    87. Adresse.Strasse = txtStrasse.Text
    88. Adresse.IDAdresse = 0
    89. Adresse.Geändert = True
    90. End If
    92. End If
    93. End If
    95. If Not Adresse.Strasse.Equals(OriginalAdresse.Strasse) Then Gespeichert = False
    97. bsAdresseSuche.Filter = ""
    99. End Sub



    Und dieses mein Button-Click-Event:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub btSpeichern_Click(sender As Object, e As EventArgs) Handles btSpeichern.Click
    3. Speichern()
    5. End Sub




    Normal sollte er ja erst das V-Event ausführen und im Anschluss dann die Sachen die im Button-Click-Event drinstehen.
    Er führt aber nur das V-Event aus und dann herrscht Ruhe. Erst beim zweiten Klick auf den Button führt er Speichern aus.
    Habe das ganze auch in das Textbox-Leave-Event gepackt - mit dem selben Resultat. Der Button hat den Dialog-Result OK und beendet danach die Form.

Facebook
Telefonspende