Den Inhalt einer ListBox speichern und wieder auslesen geht so: ' Modul: Public Sub ListeSpeichern(Liste As ListBox, ByVal sFile As String) Dim F As Integer Dim I As Integer F = FreeFile Open sFile For Output As #F With Liste For I = 0 To .ListCount - 1 Print #F, .List(I) Next I End With Close #F End Sub Public Sub ListeEinlesen(Liste As ListBox, ByVal sFile As String) Dim F As Integer Dim Eintrag As String With Liste ' sicherheitshalber ListBox leeren .Clear ' nur, wenn Datei "sFile" existiert If Dir(sFile) <> "" Then F = FreeFile Open sFile For Input As #F While Not Eof(F) Line Input #F, Eintrag .AddItem Eintrag Wend Close #F End If End With End Sub ' Form: ' Beim Aufrufen der Form, Liste füllen Private Sub Form_Load() ListeEinlesen List1, App.Path & "\MeineListe.dat" End Sub ' nachfolgenden Code dort einfügen, wo die Liste gespeichert werden soll... ' z.B. beim Beenden der Form Private Sub Form_Unload() ListeSpeichern List1, App.Path & "\MeineListe.dat" End Sub Siehe auch folgenden Tipp: Speichern und Einlesen von Listenfeldinhalten Diese Seite wurde bereits 13.400 mal aufgerufen. |
Neu! sevPopUp 2.0 Dynamische Kontextmenüs! Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Buchempfehlung Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |