Hi ich eig ein ziemlicher Anfänger in Sachen VB (progge erst seit 3 Jahren und bringe mir alles selbst bei)
Doch habe mich an ein neues Projekt gesetzt: Einen Texteditor.
Bisher klappt alles super nur will ein ein Menüpunkt einbauen in dem man das letzte geöffnete file auswählen kann.
Das geht auch Theoretisch aber Praktisch irgendwie doch nicht.
Das ganze ist so asugebaut:
Beim laden einer Datei wird in eine txt datei im sysverzeichniss der Pfad geschrieben ( überschreiben steht auf True).
Beim start des Programmes wird nachgesehen ob die txt existiert, wenn nicht wird sie erstellt. Außerdem wird geguckt ob in der txt Zeichen sind wenn nicht wird der Stream reader direkt wieder beendet. wenn in der txt zeichen sind sollen diese(also der pfad solang die txt nicht manuell modifiziert wurde) in ein Erst dann sichtbar gemachten menüpunkt in der MenuToolBar geschrieben werden.
Dies funktioniert alles. Doch schreibt er anstatt den zeichen in den Menüpunkt:
Nichts.
Das is das Problem an dem ich hänge. Hier mal der Code vom Form_load:
[highlight=vbnet] Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim fSizeLNG As Object
Dim lastopen1 As String
Dim leer As String
Lastopen1ToolStripMenuItem.Visible = False
strWinVerz = System.Environment.SystemDirectory.ToString
fSizeLNG = "0" & " kb"
Lastopen1ToolStripMenuItem.Visible = False
Me.Text = "139Pad"
ToolStripStatusLabel1.Text = "Kein Ladevorgang"
ToolStripStatusLabel2.Text = "Keine Datei geöffnet"
ToolStripStatusLabel3.Text = "Größe:" & fSizeLNG
If File.Exists(strWinVerz & "\" & DATEINAME) = False Then
objDateiMacher = New StreamWriter(strWinVerz & "\" & DATEINAME)
objDateiMacher.Close()
objDateiMacher = Nothing
End If
objDateiLeser = File.OpenText(strWinVerz & "\" & DATEINAME)
leer = objDateiLeser.ReadToEnd
If leer = "" Then
objDateiLeser.Close()
Else
lastopen1 = objDateiLeser.ReadToEnd()
Lastopen1ToolStripMenuItem.Visible = True
Lastopen1ToolStripMenuItem.Text = lastopen1
objDateiLeser.Close()
End If
End Sub
[/highlight]
und hier der header-code wo auch die cons. DATEINAME drinn is:
[highlight=vbnet]
Imports System.IO
Public Class Form1
Dim objDateiLeser As StreamReader
Dim objDateiMacher As StreamWriter
Dim strWinVerz As String
Const DATEINAME As String = "139pad_last_open_info.txt"
[/highlight]
Hoffe ihr könnt mir schnell helfen, denn ich wollt eig heute anbend noch mit der Speichern unter funltion anfangen
Danke im vorraus
Robin
Doch habe mich an ein neues Projekt gesetzt: Einen Texteditor.
Bisher klappt alles super nur will ein ein Menüpunkt einbauen in dem man das letzte geöffnete file auswählen kann.
Das geht auch Theoretisch aber Praktisch irgendwie doch nicht.
Das ganze ist so asugebaut:
Beim laden einer Datei wird in eine txt datei im sysverzeichniss der Pfad geschrieben ( überschreiben steht auf True).
Beim start des Programmes wird nachgesehen ob die txt existiert, wenn nicht wird sie erstellt. Außerdem wird geguckt ob in der txt Zeichen sind wenn nicht wird der Stream reader direkt wieder beendet. wenn in der txt zeichen sind sollen diese(also der pfad solang die txt nicht manuell modifiziert wurde) in ein Erst dann sichtbar gemachten menüpunkt in der MenuToolBar geschrieben werden.
Dies funktioniert alles. Doch schreibt er anstatt den zeichen in den Menüpunkt:
Nichts.
Das is das Problem an dem ich hänge. Hier mal der Code vom Form_load:
[highlight=vbnet] Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim fSizeLNG As Object
Dim lastopen1 As String
Dim leer As String
Lastopen1ToolStripMenuItem.Visible = False
strWinVerz = System.Environment.SystemDirectory.ToString
fSizeLNG = "0" & " kb"
Lastopen1ToolStripMenuItem.Visible = False
Me.Text = "139Pad"
ToolStripStatusLabel1.Text = "Kein Ladevorgang"
ToolStripStatusLabel2.Text = "Keine Datei geöffnet"
ToolStripStatusLabel3.Text = "Größe:" & fSizeLNG
If File.Exists(strWinVerz & "\" & DATEINAME) = False Then
objDateiMacher = New StreamWriter(strWinVerz & "\" & DATEINAME)
objDateiMacher.Close()
objDateiMacher = Nothing
End If
objDateiLeser = File.OpenText(strWinVerz & "\" & DATEINAME)
leer = objDateiLeser.ReadToEnd
If leer = "" Then
objDateiLeser.Close()
Else
lastopen1 = objDateiLeser.ReadToEnd()
Lastopen1ToolStripMenuItem.Visible = True
Lastopen1ToolStripMenuItem.Text = lastopen1
objDateiLeser.Close()
End If
End Sub
[/highlight]
und hier der header-code wo auch die cons. DATEINAME drinn is:
[highlight=vbnet]
Imports System.IO
Public Class Form1
Dim objDateiLeser As StreamReader
Dim objDateiMacher As StreamWriter
Dim strWinVerz As String
Const DATEINAME As String = "139pad_last_open_info.txt"
[/highlight]
Hoffe ihr könnt mir schnell helfen, denn ich wollt eig heute anbend noch mit der Speichern unter funltion anfangen
Danke im vorraus
Robin
Comment