Hi,
Ich habe folgendes Problem und zwar möchte ich einen Favoriten in mein Programm einbauen.
Beim daraufklicken auf den Favoriten Button soll folgendes geschehen:
1. Inputbox öffnen um den Namen für den Favoriten festzulegen. (Dieser wird in einer Listbox wiedergegeben)
2. Alle Werte der Textboxen auslesen und in eine neue Datei abspeichern
Bei jedem klick soll die Datei aber eine neue Endung bekommen sprich
"test.txt" (original)
Klick auf Button
Ereignis:
"test1.txt" (FavoritenDatei)
Wenn man auf ein Favoriten in der Listbox klickt sollen dann eben die Werte ausgelesen werden.
Könnte man noch eine Lade Funktion einbinden die autom. ".dat" Dateien in der Listbox ausgibt?
Danke für eure Hilfe!
//EDIT:
Hat sich erledigt. Habe eine andere Lösung gefunden! Danke!
Gruß
Dennis
Ich habe folgendes Problem und zwar möchte ich einen Favoriten in mein Programm einbauen.
Beim daraufklicken auf den Favoriten Button soll folgendes geschehen:
1. Inputbox öffnen um den Namen für den Favoriten festzulegen. (Dieser wird in einer Listbox wiedergegeben)
2. Alle Werte der Textboxen auslesen und in eine neue Datei abspeichern
Bei jedem klick soll die Datei aber eine neue Endung bekommen sprich
"test.txt" (original)
Klick auf Button
Ereignis:
"test1.txt" (FavoritenDatei)
Wenn man auf ein Favoriten in der Listbox klickt sollen dann eben die Werte ausgelesen werden.
VB.NET-Quellcode
- Private Sub KryptonButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonButton6.Click
- Dim s As String = InputBox("Gib bitten den Namen deines Favorites ein!")
- ListBox2.Items.Add(s)
- Try
- Dim linie() As String = IO.File.ReadAllLines(CurDir() & "\data\handling.dat")
- Try
- linie(ListBox1.SelectedIndex) = ListBox1.SelectedItem & .............
- Catch
- End Try
- Try
- 'My.Computer.FileSystem.DeleteFile(CurDir() & "\data\handling.dat")
- For i As Long = 0 To 1000
- If My.Computer.FileSystem.FileExists(CurDir() & "\data\handling.dat") = True Then
- My.Computer.FileSystem.WriteAllText(CurDir() & "\data\handling1.dat", vbNewLine & linie(i), True)
- Else
- My.Computer.FileSystem.WriteAllText(CurDir() & "\data\handling1.dat", linie(i), False)
- End If
- Next
- Catch
- End Try
- ' Handling löschen
- File.Delete(My.Settings.Pfad & "\common\data\handling.dat")
- File.Copy(CurDir() & "\data\handling.dat", My.Settings.Pfad & "\common\data\handling.dat")
- Catch
- MessageBox.Show("Fehler beim speichern: " & Err.Description, "Fehler")
- End Try
- End Sub
Könnte man noch eine Lade Funktion einbinden die autom. ".dat" Dateien in der Listbox ausgibt?
Danke für eure Hilfe!
//EDIT:
Hat sich erledigt. Habe eine andere Lösung gefunden! Danke!
Gruß
Dennis
