Fenster öffnet sich nicht

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

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Fenster öffnet sich nicht

    Hallo
    Ich habe eine App geschrieben, die ein Textfile anzeigt (wenn es vorhanden ist). wenn mehrere Textfiles vorhanden sind, sollen alle nacheinander angezeigt werden.
    Der code funktioniert soweit, nur werden die Files nicht im Fenster angezeigt. In der Messagebos funktioniert es.
    Kann mir jemand helfen?
    (Ich beschäftige mich erst seit ca. 1 Woche mit VB.Net)

    Besten Dank

    Peter
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing.Text
    2. Imports System.Net
    3. Imports System.Reflection.Emit
    4. Imports System.Threading
    6. Public Class Form1
    8. Private GetEnvironment = Environment.GetEnvironmentVariable("LOCALAPPDATA") & "\" ' & "RemBody.txt"
    9. Private Zeitraum As String
    10. Private PfadSys As String
    11. Private StrParameter As String
    12. Private DatEnde As Date
    13. Private DatStart As Date
    14. Private StrPfad As String
    17. Private Sub FilesListen()
    19. ' Verzeichnis, dessen Dateien ermittelt werden sollen
    20. ' Dim sPath As String = Environment.GetEnvironmentVariable("LOCALAPPDATA")
    22. ' Directory-Object erstellen
    23. Dim oDir As New System.IO.DirectoryInfo(GetEnvironment)
    25. ' alle Dateien des Ordners
    26. ' Dim oFiles As System.IO.FileInfo() = oDir.GetFiles()
    28. ' nur TXT-Dateien ...
    29. Dim oFiles As System.IO.FileInfo() = oDir.GetFiles("*.txt")
    31. ' Datei-Array durchlaufen und in ListBox übertragen
    32. Dim oFile As System.IO.FileInfo
    34. For Each oFile In oFiles
    37. MessageBox.Show(oFile.Name)
    39. Select Case oFile.Name '** Auswahl
    41. Case = "1.txt"
    42. StrPfad = "1.txt"
    43. MessageBox.Show(GetEnvironment & StrPfad)
    44. SubAusführen()
    46. Case = "2.txt"
    47. StrPfad = "2.txt"
    48. MessageBox.Show(GetEnvironment & StrPfad)
    49. SubAusführen()
    51. Case = "3.txt"
    52. StrPfad = "3.txt"
    53. MessageBox.Show(GetEnvironment & StrPfad)
    54. SubAusführen()
    56. Case = "RemBody.txt"
    57. StrPfad = "RemBody.txt"
    58. MessageBox.Show(GetEnvironment & StrPfad)
    59. SubAusführen()
    62. Case Else
    63. MessageBox.Show("ELSE= " & GetEnvironment & StrPfad)
    64. Exit Sub
    65. End Select
    66. Next
    68. End Sub
    71. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    73. FilesListen()
    75. End Sub
    77. Private Function SubAusführen() As Boolean
    79. '** Nachricht aufteilen 0= Oberer Teil, 1= Unterer Teil
    80. Dim strNachricht() As String = Split(IO.File.ReadAllText(GetEnvironment & StrPfad, System.Text.Encoding.Default), "~") '** Aufteilen ab Trennzeichen und in Array (0-1)schreiben
    82. MessageBox.Show("Param= " & strNachricht(0)) '** Parameter OK
    83. MessageBox.Show("Param= " & strNachricht(1)) '** Text OK
    85. '** Nachricht ausgeben'
    87. TextBox1.Text = strNachricht(1) '!!!!!!!!!!!!!!! Funktioniert nicht
    89. Exit Sub'*################## zum Testen
    94. '************ Parameter der Meldung **************
    96. For Each Line As String In IO.File.ReadAllLines(GetEnvironment & StrPfad, System.Text.Encoding.Default) '** Auswahl der Parameter
    98. Select Case True
    99. Case Line.StartsWith("1§") '** Pfad
    100. PfadSys = Line.Substring(2)
    101. Case Line.StartsWith("2§") '** Parameter
    102. StrParameter = Line.Substring(2)
    103. Case Line.StartsWith("3§") '** Start-Datum
    104. DatStart = Line.Substring(2)
    105. Case Line.StartsWith("4§") '** End-Datum
    106. DatEnde = Line.Substring(2)
    108. End Select
    110. Next
    113. '********************** Start-Datum und Ende-Datum zuweisen *********************
    114. Zeitraum = "Diese Nachricht wurde am: (" & DatStart & ") erstellt und Endet am: (" & DatEnde & ")"
    117. If System.DateTime.Now.ToString("dd.MM.yyyy") > DatEnde Then '** Zeitraum berechnen (Datum Heute größer Datum Ende)
    119. My.Computer.Audio.Play(My.Resources.Control, AudioPlayMode.Background)
    121. Select Case MessageBox.Show("Die maximale Aufbewahrunsdauer der Nachricht vom:" &
    122. Microsoft.VisualBasic.ControlChars.CrLf _
    123. & "[" & DatStart & "] ist erreicht!" &
    124. Microsoft.VisualBasic.ControlChars.CrLf _
    125. & Microsoft.VisualBasic.ControlChars.CrLf _
    126. & "Soll die nachricht jetzt gelöscht werden?",
    127. "Erinnerung löschen" _
    128. & vbCrLf, MessageBoxButtons.OKCancel,
    129. MessageBoxIcon.Question,
    130. MessageBoxDefaultButton.Button2,
    131. MessageBoxOptions.DefaultDesktopOnly Or
    132. MessageBoxOptions.ServiceNotification)
    134. Case DialogResult.OK
    135. My.Computer.FileSystem.DeleteFile(GetEnvironment & StrPfad) '** Erinnerung Löschen **
    136. My.Computer.Audio.Play(My.Resources.Control, AudioPlayMode.Background)
    138. MessageBox.Show("Die Erinnerung wurde gelöscht.",
    139. "Erinnerung löschen",
    140. MessageBoxButtons.OK,
    141. MessageBoxIcon.Information,
    142. MessageBoxDefaultButton.Button1,
    143. MessageBoxOptions.DefaultDesktopOnly Or
    144. MessageBoxOptions.ServiceNotification)
    146. Case DialogResult.Cancel
    147. End
    148. End Select
    150. End '** Schließen
    152. End If
    157. '****************************************** Information der Meldung ********************************************
    158. ' ** WAVE-Datei aus Anwendungsressource abspielen
    159. My.Computer.Audio.Play(My.Resources.Calendar, AudioPlayMode.Background)
    160. Me.Text = Zeitraum '** In kopfzeile des Fensters schreiben
    162. '** Nachricht ausgeben
    163. TextBox1.Text = strNachricht(1) '** (1) ist der 2.Teil der Nachricht (Information)
    164. '***************************************************************************************************************
    166. End Function
    173. Private Sub Btn_OK_Click(sender As Object, e As EventArgs) Handles btn_OK.Click
    174. If My.Computer.FileSystem.FileExists(GetEnvironment & StrPfad) = True Then '** Wenn File existiert
    175. My.Computer.FileSystem.DeleteFile(GetEnvironment & StrPfad) '** Erinnerung Löschen **
    177. If My.Computer.FileSystem.FileExists(GetEnvironment & StrPfad) = True Then '** Wenn File noch existiert
    179. MessageBox.Show("Das File " & vbCrLf &
    180. GetEnvironment & StrPfad & vbCrLf &
    181. "konnte nicht gelöscht werden!" &
    182. Microsoft.VisualBasic.ControlChars.CrLf &
    183. "Löschen Sie es bitte von Hand" &
    184. Microsoft.VisualBasic.ControlChars.CrLf &
    185. "Sonst wird die Erinnerung bei jedem" &
    186. Microsoft.VisualBasic.ControlChars.CrLf &
    187. "Systen-Neustart angezeigt",
    188. "Erinnerung löschen",
    189. MessageBoxButtons.OK,
    190. MessageBoxIcon.Information)
    191. End If
    192. End '** Schließen
    193. End If
    194. End '** Schließen
    197. End Sub
    199. Private Sub Btn_Abbruch_Click(sender As Object, e As EventArgs) Handles btn_Abbruch.Click
    200. End '** Schließen
    201. End Sub
    203. Private Sub BtnÖffnen_Click(sender As Object, e As EventArgs) Handles BtnÖffnen.Click
    205. '**************** App mit Argumenten Öffnen ******************
    206. Dim pr As New Process
    208. pr.StartInfo.FileName = PfadSys
    209. pr.StartInfo.Arguments = StrParameter '*** Argumente angeben
    210. pr.Start()
    212. End
    214. End Sub
    217. End Class



    Thema verschoben; Das Thema wird automatisch dort erstellt, wo man sich befindet, wenn man auf [ Neues Thema] klickt.
    CodeTags gesetzt
    aufgrund des Datenumfangs Spoiler hinzugefügt     ~VaporiZed

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VaporiZed“ ()

    Willkommen im Forum.

    Bevor Du weitermachst, bitte die empfohlenen VS-Einstellungen verwenden. Ich hab schon gelesen, dass Du erst seit einer Woche mit VB.NET arbeitest. Daher: Je früher Du die empfohlenen Einstellungen aktivierst, desto besser. Ganz oben auf der to-do-List: Option Strict On
    Für weitere Themen gleich: versuche das Problem für Dich und uns auf das Wesentliche zu reduzieren. Über 200 Zeilen, aber eigentlich geht es nur um einen sehr kleinen Abschnitt.
    Auch wären Ist- und Sollwerte, ggf. mit Screenshot sinnvoll. Ein funktioniert nicht ist zu unkonkret.
    Auch hantierst Du mit Daten, die uns nicht zur Verfügung stehen.
    Bilder und andere Anhänge (wie Beispieltextdateien) kannst Du forenintern über [+ Erweiterte Antwort] -> _|Dateianhänge|_ -> [Hochladen] posten.

    Letztenendes scheint es so zu sein, dass das Problem auf folgenden Teil reduziert werden kann:

    VB.NET-Quellcode

    1. Dim strNachricht() As String = Split(IO.File.ReadAllText(GetEnvironment & StrPfad, System.Text.Encoding.Default), "~") '** Aufteilen ab Trennzeichen und in Array (0-1)schreiben
    2. MessageBox.Show("Param= " & strNachricht(0)) '** Parameter OK
    3. MessageBox.Show("Param= " & strNachricht(1)) '** Text OK
    4. '** Nachricht ausgeben'
    5. TextBox1.Text = strNachricht(1) '!!!!!!!!!!!!!!! Funktioniert nicht

    Ich wandle mal ab zu:

    VB.NET-Quellcode

    1. Dim Nachrichtentext = "Teil1~Teil2"
    2. Dim Nachrichten = Nachrichtentext.Split("~"c)
    3. MessageBox.Show(Nachrichten(0))
    4. MessageBox.Show(Nachrichten(1))
    5. TextBox1.Text = Nachrichten(1)


    So, da können wir Leser uns schon schneller was drunter vorstellen. Der Ausgabecode an sich sollte klappen. Es liegt daher wahrscheinlich an den Daten - die wir nicht kennen. Vermutlich ist ein Zeilenumbruch oder ein anderen Steuerzeichen drin, welches eine Ausgabe in der MessageBox ermöglicht (da diese auch von Haus aus mehrzeilige Texte ausgibt), aber nicht in der normalen TextBox, da diese nicht auf MultiLine = True eingestellt ist. Aktivier mal den Mehrzeilenmodus der TextBox, mach sie im Designer größer und schau, was passiert. Oder gib mal eine vermeintlich nicht funktionierende Beispieldatei. Und, wie geschrieben, auch eine Beispieldatei, mit der es nicht klappt und ggf. Screenshots.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @Pewi55 Ebenfalls: Willkommen im Forum. :thumbup:
    Der Anfängerfehler schlechthin:
    Mein Code compiliert, wieso funktioniert er nicht?
    Ganz einfach:
    Weil jede einzelne Zeile Deines Codes so lange falsch ist, bis Du Dich davon überzeugt hast, dass sie genau das tut, was sie tun soll.
    Nach der Sicherstellung von Option Strict On lerne zu debuggen:
    Vergleiche das, was Dein Code tut, mit dem, was Dein Code tun soll.
    Verfolge dazu den Inhalt der relevanten Variablen.
    Debuggen, Fehler finden und beseitigen
    Und:
    Code, den Du von irgendwo her in Dein Programm kopierst, ist genau so falsch wie Dein eigener Code, bis Du Dich vom Gegenteil überzeugt hast.
    Das Problem dabei besteht darin, dass Du diesen Code zunächst verstehen musst, bevor Du ihn bewerten kannst.
    Um mit der Programmiersprache VB.NET warm zu werden, schaust Du vielleicht mal hier rein:
    [Sammelthread] Programmieren, aber was? (Programmideen)
    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!

    Hallo
    besten Dank für Deine schnelle Antwort.
    Option Strict On ist wirklich sehr hilfreich.

    Sorry dass ich den ganzen Code gepostet habe.
    Die Textfiles liegen im Ordner 'Local' und haben das Format:

    ######### Reminder von der APP 'Bewertungen' #########
    1§E:\Access\Access-Projekte\Bewertung\20.08.2023 Bewertung.accdb
    2§
    3§21.08.2023
    4§24.08.2023 ===>Parameter
    ~eeeeeeeeeeeeeee
    rrrrrrrrrrrrr

    ttttttttttttttttttt

    *** Ende ***

    Mit
    Dim Nachrichtentext = IO.File.ReadAllText(GetEnvironment & StrPfad, System.Text.Encoding.Default)
    Dim Nachrichten = Nachrichtentext.Split("~"c)
    MessageBox.Show(Nachrichten(0))
    MessageBox.Show(Nachrichten(1))
    TextBox1.Text = Nachrichten(1)

    Werden die einzelnen Teilstrings im der Messagebox angezeigt.
    Allerdings wird das Formularmit der Textbox1 nicht angezeigt.
    Das Form soll in jedem Durchlauf geöffnet und der zugehörige Text angzeigt werden. Nach scließen des Forms soll, wenn vorhanden, das nächste Textfile dargestellt werden.
    Das Form wird jedoch nur am Ende des Codes geöffnet.

    Besten Dank

    Peter

    Ich habe jetzt als Dateiinhalt das hier (bitte CodeTags verwenden!, siehe Link am Ende von Post#1)

    Quellcode

    1. ######### Reminder von der APP 'Bewertungen' #########
    2. 1§E:\Access\Access-Projekte\Bewertung\20.08.2023 Bewertung.accdb
    3. 2§
    4. 3§21.08.2023
    5. 4§24.08.2023 ===>Parameter
    6. ~eeeeeeeeeeeeeee
    7. rrrrrrrrrrrrr
    9. ttttttttttttttttttt
    11. *** Ende ***


    Und der Code aus Post#1 ergibt mir dann ein entsprechendes Ergebnis für die Ausgabe von strNachricht(1). TextBox1 oben links ist SingleLine, TextBox2 unten ist MultiLine.

    Von daher: so what?

    ##########

    Pewi55 schrieb:

    Allerdings wird das Formularmit der Textbox1 nicht angezeigt.
    Waswie? Moment. Es geht darum, dass das Formular nicht angezeigt wird? Ist das das Programm-Hauptformular oder ein Unterformular? Wenn letzteres: Dann wird es wohl am Aufrufcode für das Unterformular liegen. Wie rufst Du das auf? Wie lautet der Code?
    Bilder

    • Result.png

      1,62 kB, 277×304, 21 mal angesehen
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

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

    Pewi55 schrieb:

    Allerdings wird das Formularmit der Textbox1 nicht angezeigt.
    Setze auf die Stelle, wo Du Textbox1 befüllst, einen Haltepunkt und überzeuge Dich davon, dass das, was da stehen soll, auch steht.
    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!

    Pewi55 schrieb:

    Das Form soll in jedem Durchlauf geöffnet und der zugehörige Text angzeigt werden. Nach scließen des Forms soll, wenn vorhanden, das nächste Textfile dargestellt werden.
    Das Form wird jedoch nur am Ende des Codes geöffnet.


    Probier mal myForm.ShowDialog() zu verwenden, statt myFrm.Show()

    Hallo
    Ich mußte das Form mit Me.Visible= False unsichtbar machen, sonst konnte ich es nicht kompilieren.

    Die Textfile werden jetzt abgearbeitet und angezeigt.
    Der Aufruf und die Zuweisung der Sub erfolgt über ein Select Case.

    Allerdings bleibt das form nicht, bis ich es von Hand schließe, geöffnet, sondern wird sofort von der nächsten Case-Anweisung überschrieben.
    (Das Form wartet nicht auf schließen von Hand)
    Wie kann ich das ändern?

    Besten Dank

    Pewi55 schrieb:

    Wie kann ich das ändern?
    Solange wir nicht wissen, wie Du es bisher ganz konkret machst, können wir nicht sagen, was geändert werden muss. Deshalb nochmal die Frage:

    VaporiZed schrieb:

    Wie rufst Du das [Unterformular alias Form1] auf? Wie lautet [Dein] Code?


    Pewi55 schrieb:

    Ich mußte das Form mit Me.Visible= False unsichtbar machen, sonst konnte ich es nicht kompilieren.
    Es kompiliert nicht, wenn es sichtbar ist? Mit welcher Fehlermeldung kompiliert es denn ganz konkret nicht. Bitte genauen Wortlaut und/oder Screenshot.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Pewi55 schrieb:

    sonst konnte ich es nicht kompilieren.
    Das ist keine gute Fehlerbeschreibung.
    Wenn ein Programm nicht compiliert, gibt es eine fehlerhafte Code-Zeile und eine präzise Fehlerbeschreibung.
    Poste bitte beides.
    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