Inhalt einer ComboBox beim beenden der form im ordner speichern beim öffnen wieder anzeigen lassen

kevios12 · 24. März 2011, 18:26

Hallo ich wollte gerne über die combobox wenn ich im event Form1_Closing also die form1 beende das der inhalt der combobox in einem ordner gespeichert wird & beim öffnen wieder angezeigt wird wie funktioniert das ganze??

Vitox · 24. März 2011, 18:34

wie meinst du in einem Ordner?
soll es eine einfache Textdatei sein
oder geht es dir nur drum es speichern und wieder aufzurufen, ohne eine Datei zu hben, und es ohne das Programm ändern zu können.
Dann würd ich es in den Settings machen, des geht einfacher

Gruß Vitox

kevios12 · 24. März 2011, 18:50

Ne er soll es schon mit einer Textdatei im ordner speicher & denn halt beim öffnen wieder anzeigen lassen in combobox

scientia · 24. März 2011, 18:52

Speichern: In einer Schleife jedes einzelne Item in eine Zeile der Datei schreiben
Öffnen: Umgekehrt

SystemUnknow · 24. März 2011, 18:53

an ComboBox anpassen: vbarchiv.net/faq/faq_listbox_save_net.html

kevios12 · 24. März 2011, 19:03

Klappt alles auser eins wenn ich was darin speicher und wieder öffne sind da 2 leerzeilen drinne... also 2 einträge und da unter ist mein eintrag den ich gemacht hab

scientia · 24. März 2011, 19:05

Wie speichers du denn die Einträge ?

kevios12 · 24. März 2011, 19:09

SystemUnknow schrieb:

an ComboBox anpassen: vbarchiv.net/faq/faq_listbox_save_net.html

ich hab den code genommen

bei form1 hab ich eintrag 1 usw rausgenommen form1 load event

scientia · 24. März 2011, 19:11

Kuck mal in der Datei ob da irgend welche leeren Zeilen sind

kevios12 · 24. März 2011, 19:14

Bei mir in der Combobox ist eine leere zeile wie kann ich machen das keine leere zeile gezeigt wird? oder ist sowas möglich?

scientia · 24. März 2011, 19:17

Die Leerzeile muss ja irgendwo herkommen.

kevios12 · 24. März 2011, 19:20

Ja aus der Combobox

Die da am anfang immer drinne ist geht die auch weg? sonst wirds beim speichern immer mehr zeiln^^

SystemUnknow · 24. März 2011, 19:21

Bei mir in der Combobox ist eine leere zeile wie kann ich machen das keine leere zeile gezeigt wird?

du kannst abfragen ob der Leerzeile vorkommt, siehe link oder hast du falsch code angepasst.

kevios12 · 24. März 2011, 19:22

Ich hab dein link benutzt

Speichern geht alles nur die zeile nervt beim speichern wird halt immer mehr^^

SystemUnknow · 24. März 2011, 19:26

...dann hast du in eigene code irgend - wo kleines "denk fehler".

scientia · 24. März 2011, 19:26

Die Leerzeile ist ja nicht einfach da, die muss ja irgendwie erstellt werden

Vitox · 24. März 2011, 19:29

sonst entfern sie doch einfach gleich, beim einfügen:

du wirst es ja wahrscheinlich mit einer For Each Schleife machen, dann machs halt so

For Each itm As String in Document.Lines (oderso)
If itm <> "" Then
ComboBox1.Items.Add(itm)
EndIf
Next

Gruß Vitox

kevios12 · 24. März 2011, 19:30

mein code

VB.NET-Quellcode

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
' ListBox speichern
Dim sFile As String
sFile = Application.StartupPath & "\Liste.dat"
Combobox_Save(ComboBox1, sFile)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sFile As String
sFile = Application.StartupPath & "\Liste.dat"
combobx_Read(ComboBox1, sFile)
End Sub
Public Sub Combobox_Save(ByVal ListBox As ComboBox, _
ByVal sFile As String)
' Inhalt einer ListBox speichern
Dim oStream As IO.StreamWriter
Dim i As Short
oStream = New IO.StreamWriter(sFile)
For i = 0 To ComboBox1.Items.Count - 1
oStream.WriteLine(ComboBox1.Items(i))
Next
oStream.Close()
End Sub
Public Sub combobx_Read(ByVal ListBox As ComboBox, _
ByVal sFile As String)
' Inhalt einer ListBox speichern
Dim oStream As IO.StreamReader
Dim sLine As String
' Existsiert die Datei?
Dim oFile As New IO.FileInfo(sFile)
If oFile.Exists() = True Then
oStream = New IO.StreamReader(sFile)
' Datei zeilenweise auslesen
Do
sLine = oStream.ReadLine()
If IsNothing(sLine) Then Exit Do
ComboBox1.Items.Add(sLine)
Loop
oStream.Close()
End If
End Sub

was daran falsch ???

SystemUnknow · 24. März 2011, 19:32

von Vitox:

VB.NET-Quellcode

For Each itm As String in Document.Lines (oderso)
If itm <> "" Then
ComboBox1.Items.Add(itm)
EndIf
Next

kevios12 · 24. März 2011, 19:35

Document.Lines Weiß nicht was ich da zu meinem code was einsetzen soll...

Inhalt einer ComboBox beim beenden der form im ordner speichern beim öffnen wieder anzeigen lassen

Inhalt einer ComboBox beim beenden der form im ordner speichern beim öffnen wieder anzeigen lassen

SystemUnknow schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

1 Benutzer hat hier geschrieben