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.381 mal aufgerufen. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Buchempfehlung Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Neu! sevDTA 3.0 Pro SEPA mit Kontonummernprüfung Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. |
||||||||||
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. |