Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: ComboBox
Autor: Eddie
Datum: 05.12.02 23:35
OH Entschuldige Ich habe natürlich das Modul vergessen ' 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 Eddie

ComboBox	404	Eddie	05.12.02 22:57
Re: ComboBox	248	unbekannt	05.12.02 23:10
Re: ComboBox	271	Eddie	05.12.02 23:35
Re: ComboBox	252	unbekannt	05.12.02 23:38
Und Problem erkannt:	251	unbekannt	05.12.02 23:49
Re: Und Problem erkannt:	234	Eddie	06.12.02 00:05
Re: Und Problem erkannt:	243	unbekannt	06.12.02 00:15
Nämlich das Symtom!	253	unbekannt	06.12.02 00:08
Re: Nämlich das Symtom!	237	Eddie	07.12.02 01:28
Re: ComboBox	38	Mr. NoName	06.12.02 12:49
Re: ComboBox	250	Eddie	07.12.02 01:24

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen