Bei Fehlermeldung Form öffnen

  • VB.NET

Es gibt 24 Antworten in diesem Thema. Der letzte Beitrag () ist von BL4CKH4WK.

    So habe jetzt diesen Teil des Codes mit Haltepunkten gestartet:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Try
    2. RaiseEvent MyEvent(Me, EventArgs.Empty)
    4. Form3.Close()
    5. Timer1.Start()
    7. Me.BackColor = My.Settings.color_settings
    8. Form2.BackColor = My.Settings.color_settings
    9. Form9.BackColor = My.Settings.color_settings
    10. Form4.BackColor = My.Settings.color_settings
    11. Form5.BackColor = My.Settings.color_settings
    12. Form6.BackColor = My.Settings.color_settings
    13. Form10.BackColor = My.Settings.color_settings
    15. Me.Font = My.Settings.font_settings
    16. Form2.Font = My.Settings.font_settings
    17. Form9.Font = My.Settings.font_settings
    18. Form4.Font = My.Settings.font_settings
    19. Form5.Font = My.Settings.font_settings
    20. Form6.Font = My.Settings.font_settings
    21. Form10.Font = My.Settings.font_settings
    24. TextBox1.Text = My.Settings.templatepath
    25. TextBox6.Text = My.Settings.zeichen
    27. My.Settings.Reload()
    31. If TextBox1.Text = "" Then
    32. Button8.Enabled = False
    33. Else
    34. Button8.Enabled = True
    35. End If
    38. Catch ex As Exception
    40. If frm10 Is Nothing OrElse frm10.IsDisposed Then
    41. frm10 = New Form10
    42. End If
    43. If frm10.Visible Then
    44. frm10.Show(Me)
    45. End If
    47. 'MsgBox("Es ist ein Fehler aufgetreten. Der Support wurde bereits benachrichtigt", MsgBoxStyle.Critical, "Fehler!")
    48. Me.NotifyIcon1.ShowBalloonTip(7000, "Fehler!", "Es ist ein Fehler aufgetreten. Bitte benachrichtigen Sie den Support", ToolTipIcon.Error)
    49. 'MsgBox("Es ist folgender Fehler aufgetreten:" & vbNewLine & Err.Number & ex.Message & ex.StackTrace.ToString, MsgBoxStyle.Critical, "Fehler!")
    50. 'Form10.RichTextBox1.Text = Err.Number & ex.Message & ex.StackTrace.ToString
    53. End Try
    54. End Sub


    und dabei ist mir aufgefallen, dass dieser Punkt einfach übersprungen wird:

    VB.NET-Quellcode

    1. Catch ex As Exception
    3. If frm10 Is Nothing OrElse frm10.IsDisposed Then
    4. frm10 = New Form10
    5. End If
    6. If frm10.Visible Then
    7. frm10.Show(Me)
    8. End If
    10. 'MsgBox("Es ist ein Fehler aufgetreten. Der Support wurde bereits benachrichtigt", MsgBoxStyle.Critical, "Fehler!")
    11. Me.NotifyIcon1.ShowBalloonTip(7000, "Fehler!", "Es ist ein Fehler aufgetreten. Bitte benachrichtigen Sie den Support", ToolTipIcon.Error)
    12. 'MsgBox("Es ist folgender Fehler aufgetreten:" & vbNewLine & Err.Number & ex.Message & ex.StackTrace.ToString, MsgBoxStyle.Critical, "Fehler!")
    13. 'Form10.RichTextBox1.Text = Err.Number & ex.Message & ex.StackTrace.ToString
    16. End Try

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „BL4CKH4WK“ ()

    @BL4CKH4WK: Du hast falsch abgeschrieben: :S

    VB.NET-Quellcode

    1. If Not frm10.Visible Then ' machmal hier ein Not rein
    2. frm10.Show(Me)
    3. End If
    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