Programm Fehler "System.InvalidCastException"

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von singu.

    Programm Fehler "System.InvalidCastException"

    Hallo Leute, ich habe folgendes Problem:

    Ich möchte wenn Textbox1.Text = "" und Label1.Text = "Benutzerdefiniert" sind das dann eine MsgBox sich öffnet nur leider kommt dann folgene Fehlermeldung:

    Eine Ausnahme (erste Chance) des Typs "System.InvalidCastException" ist in Microsoft.VisualBasic.dll aufgetreten.


    VB.NET-Quellcode

    1. Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
    3. If TextBox1.Text = "" & Label1.Text = "Benutzerdefiniert" Then
    4. MsgBox("Es liegen bereits die Standarteinstellungen vor!", MsgBoxStyle.Information, "Warnung!")
    5. End If
    7. Label1.Text = "Benutzerdefiniert"
    8. TextBox1.Text = ""
    10. End Sub


    Wenn ich diesen Code benutze funktioniert es. Aber ich möchte nicht das 2 MsgBoxen sich öffnen

    VB.NET-Quellcode

    1. Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
    3. If TextBox1.Text = "" Then
    4. MsgBox("Es liegen bereits die Standarteinstellungen vor!", MsgBoxStyle.Information, "Warnung!")
    5. End If
    7. If Label1.Text = "Benutzerdefiniert" Then
    8. MsgBox("Es liegen bereits die Standarteinstellungen vor!", MsgBoxStyle.Information, "Warnung!")
    9. End If
    11. Label1.Text = "Benutzerdefiniert"
    12. TextBox1.Text = ""
    14. End Sub


    Mfg. Timo :D

    Verwende statt MsgBox am besten MessageBox.Show.

    Und tausch mal folgende Zeile aus.

    VB.NET-Quellcode

    1. If TextBox1.Text = "" & Label1.Text = "Benutzerdefiniert" Then


    Durch folgendes ersetzen

    VB.NET-Quellcode

    1. If (TextBox1.Text = "") AndAlso (Label1.Text = "Benutzerdefiniert") Then

Facebook
Telefonspende