Text in Textbox verschwindet manchmal, manchmal nicht, wenn man reinklickt.

  • VB.NET

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

    Text in Textbox verschwindet manchmal, manchmal nicht, wenn man reinklickt.

    Liebe Community

    Ich habe ein komisches Problem.

    Ich habe eine Form, indem Textboxen und Labels mit einem DataSet verknüpft sind.

    Einer meiner Textboxen, verhaltet sich völlig
    komisch. Wenn ich in diese reinklicke, verschwindet der Text. :thumbdown: Manchmal passiert das aber erst bei Doppelklick und manchmal
    passiert das nicht. ?(

    Ich habe 2 fast gleiche Formen. Auf einem ist das Verhalten, aber bei dem anderen nicht.

    Ich habe den Code kontrolliert und es ist nichts falsch. :thumbsup:

    Wisst ihr, wieso das ist und wie man das beheben kann?

    Ich bin am Ende meiner Geduld. Versuche schon seit 2 Tagen dieses Problem zu lösen. :thumbdown:

    a.b_om schrieb:

    Wisst ihr, wieso das ist und wie man das beheben kann?


    Ohne deinen Code zu kennen, würde ich sagen, schwer bis unmöglich die Ursache zu finden.
    Cloud Computer? Nein Danke! Das ist nur ein weiterer Schritt zur totalen Überwachung.
    „Wer die Freiheit aufgibt, um Sicherheit zu gewinnen, wird am Ende beides verlieren.“
    Benjamin Franklin

    Hier ist mein kompletter Klassencode:
    Spoiler anzeigen

    Quellcode

    1. Public Class frmZeitcodeBearbeiten
    3. Public iZeitcodeID As Integer
    4. Public strZeitcodeNummer As String
    6. ''' <summary>
    7. ''' Speichern auf DB
    8. ''' </summary>
    9. Private Sub Speichern()
    10. Try
    12. Me.Validate()
    13. Me.bsTblZeitcode.EndEdit()
    14. Me.TableAdapterManager.UpdateAll(ZeiterfassungV17DataSet)
    16. 'Liste aktualisieren
    17. frmZeitcodeListe.tdbgRefresh()
    19. Catch ex As Exception
    20. End Try
    21. End Sub
    23. Private Sub frmZeitcodeBearbeiten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    24. Try
    26. Me.taTblZeitcode.FillByZeitcodeID(Me.ZeiterfassungV17DataSet.tblZeitcode, iZeitcodeID)
    28. Catch ex As Exception
    29. End Try
    30. End Sub
    32. Private Sub cmdSpeichern_Click(sender As Object, e As EventArgs) Handles cmdSpeichern.Click
    33. Try
    35. 'Prüfen ob txtZeitcodenummer nicht leer
    36. If txtNummer.TextLength < 1 Then
    38. strMsg = "Die Zeitcodenummer darf nicht leer sein!" & vbCrLf & "Geben Sie eine Zeitcodenummer ein."
    39. strTitel = "Keine Zeitcodenummer eingegeben"
    41. MessageBox.Show(strMsg, strTitel, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    42. Exit Sub
    44. End If
    46. 'Prüfen ob Zeitcodenummer schon vergeben ist
    47. If Not ZeitcodenummerExists(txtNummer.Text) Then
    49. Speichern()
    50. Me.Close()
    52. Else
    54. strMsg = "Diese Zeitcodenummer wird bereits von einem Anderen Zeitcode verwendet!" & vbCrLf & "Geben Sie eine neue Zeitcodenummer ein."
    55. strTitel = "Zeitcodenummer bereits vergeben"
    57. MessageBox.Show(strMsg, strTitel, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    58. Exit Sub
    60. End If
    62. Catch ex As Exception
    63. End Try
    64. End Sub
    66. ''' <summary>
    67. ''' Überprüfen ob die Auftragsnummer bereits vergeben wurde
    68. ''' </summary>
    69. ''' <param name="strNewZeitcodenummer">Zu prüfende Auftragsnummer</param>
    70. ''' <returns>True wenn bereits vergeben</returns>
    71. Private Function ZeitcodenummerExists(ByVal strNewZeitcodenummer As String) As Boolean
    72. Try
    74. ZeitcodenummerExists = False
    76. If Not strZeitcodeNummer = strNewZeitcodenummer Then
    78. ZeitcodenummerExists = False
    80. Dim taZeitcodeEx As New ZeiterfassungV17DataSetTableAdapters.tblZeitcodeTableAdapter
    81. Dim dtZeitcodeEx As New ZeiterfassungV17DataSet.tblZeitcodeDataTable
    83. taZeitcodeEx.ClearBeforeFill = True
    84. taZeitcodeEx.FillByNummer(dtZeitcodeEx, strNewZeitcodenummer)
    86. If dtZeitcodeEx.Count > 0 Then ZeitcodenummerExists = True
    88. End If
    90. Catch ex As Exception
    91. End Try
    92. End Function
    94. Private Sub cmdSchliessen_Click(sender As Object, e As EventArgs) Handles cmdSchliessen.Click
    95. Try
    97. Me.Close()
    99. Catch ex As Exception
    100. End Try
    101. End Sub
    103. Private Sub txtNummer_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtNummer.KeyPress, txtZeitcodeID.KeyPress
    104. Try
    106. 'Check auf Keys
    107. 'Tab und Enter ignorieren
    108. If e.KeyChar = ChrW(Keys.Tab) Or e.KeyChar = ChrW(Keys.Enter) Then Exit Sub
    110. If Not CheckFldInput(FieldInputEnum.fldOnlyNumeric, e.KeyChar, sender.Text, sender.SelectionStart) Then
    111. e.Handled = True
    112. End If
    114. Catch ex As Exception
    115. End Try
    116. End Sub
    117. End Class

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „a.b_om“ ()

    @a.b_om Komplett isser nich,
    wenn ich Deinen Code in eine leere Form kopiere, compiliert er nicht, weil eine ganze Menge Deklarationen und Instanzen nicht verfügbar sind.
    Erstell ein abgespecktes Projekt, das den Effekt reproduziert, pack es ohne obj- und bin-Ordner in eine ZIP und häng es an.
    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!

    @RodFromGermany Doch das isser. Der Klassencode ist ganz. Ich habe nichts vom DataSet oder Form gesagt...

    Jetzt für alle:
    Also jetzt, bin ich durcheinander.
    Jetzt passiert das nicht mehr.
    Das heisst aber nicht, dass der Fehler weg ist.

    Ich begreife gar nichts mehr.

    Achtung, ihr müsst in den My Settings einiges ändern. Den Datenbankpfad, Computername und Passwort.
    Die Datenbank ist im Unterordner DB.

    Mein .zip:
    Dateien

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „a.b_om“ ()

    @a.b_om Tut mir leid, aber ich mach dafür keine Test- bzw. Evaluierungsinstallation.
    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