Keine Meldung von Event

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Keybladmaster.

    Keine Meldung von Event

    Hey,

    Aktuell habe ich hier ein Button_Click event aber Irgendwie funktioniert das nicht ganz...
    Wie im Code zu sehen habe ich 5x Textbox und wenn eine davon Leer ist Kommt eine Meldung, dass Funktioniert auch.
    Aber sobald alle Voll sind bekomme ich nichts mehr...kein Ordner wird Erstellt oder sonst was.
    hab auch Schon breakpoints gesetzte aber auch kein Ergebnis...

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Then
    4. MessageBox.Show("Fülle alle Felder aus!")
    6. Else
    8. For Each s As String In IO.Directory.GetDirectories(My.Application.Info.DirectoryPath & "/data/")
    9. Try
    10. If s.Substring(s.IndexOf("/")).Split("/"c)(2) = TextBox5.Text Then
    12. MessageBox.Show("Das Projekt existiert Bereits!")
    13. Exit For
    15. Else
    17. Try
    18. IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "/data/" & TextBox5.Text)
    19. IO.File.WriteAllText(My.Application.Info.DirectoryPath & "/data/" & TextBox5.Text & "/" & TextBox5.Text & ".btid", "CPU:" & TextBox1.Text & vbNewLine & "RAM:" & TextBox2.Text & vbNewLine & "W/R_C:" & TextBox3.Text & vbNewLine & "Graph:" & TextBox4.Text)
    20. MessageBox.Show("Erstellen von " & TextBox5.Text & " war Erfolgreich!")
    21. Form2.Show()
    22. Exit For
    23. Catch ex As Exception
    24. MessageBox.Show(ex.ToString)
    26. End Try
    28. End If
    29. Catch ex As Exception
    30. MessageBox.Show("Fehler!")
    31. End Try
    33. Next
    35. End If
    36. End Sub
    38. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    39. If IO.Directory.GetDirectories(My.Application.Info.DirectoryPath & "/data/").Count = 0 Then
    40. MessageBox.Show("test")
    41. Else
    43. Me.Hide()
    44. Me.ShowInTaskbar = False
    45. Form2.Show()
    47. End If
    48. End Sub


    Wo ist der Fehler? ich find ihn einfach nicht...

    LG

    Edit
    @Keybladmaster

    Edit!! vergiss das :D

    deine abfrage stimmt auch so nicht ganz

    If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Then

    Um das mal auf Dumm-Deutsch zu übersetzen heisst so sowas wie

    Wenn Textbox1 = kein Text hat
    ODER Textbox2 = kein Text hat
    ODER Textbox3 = kein Text hat
    ODER Textbox4 = kein Text hat
    ODER Textbox5 = kein Text hat
    dann tue etwas.

    Ich glaube dieses Oder/OR macht da nicht so viel Sinn oder?
    Versuche es mal so

    If TextBox1.Text = "" AND TextBox2.Text = "" AND TextBox3.Text = "" AND TextBox4.Text = "" AND TextBox5.Text = "" Then // bitte alle Felder ausfüllen Else //Alle Felder ausgefüllt

    Man kann auch in einer If abfrage ein ! benutzen. das setzt die gesammte ifabfrage auf false (oder irgentwie so ähnlich)



     For Each s As String In IO.Directory.GetDirectories(My.Application.Info.DirectoryPath & "/data/")

    diesen Ordner gibt es ja auch garnicht. der phat sieht so aus
    C:\ordner\vom\programm/data/
    achte auf das / \

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „MVN050“ ()

    @Keybladmaster
    ich hatte meinen Beitrag nochmal editiert da er totaler blödsinn war. muss an der dauerhitze liegen... tut mir leid
    aber hier

    For Each s As String In IO.Directory.GetDirectories(My.Application.Info.DirectoryPath & "/data/")

    diesen Ordner gibt es ja auch garnicht. der phat sieht so aus
    C:\ordner\vom\programm/data/
    achte auf das / \

    bau mal nach dem else das hier ein
    messagebox.show(IO.Directory.GetDirectories(My.Application.Info.DirectoryPath & "/data/")
    dan merkst du was ich meine.
    Dadurch wird deine For Ech Schleife garnicht durchlaufen.

    @Keybladmaster Mach Dir mal nen Plan, was passieren soll, wenn dies oder jenes in den Textboxen drin steht und verfolge dann den Ablauf Deines Codes mit diesen Randbedingungen.
    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