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.415 mal aufgerufen. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung Neu! sevCommand 4.0 Professionelle Schaltflächen im modernen Design! Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. |
||||||||||
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. |