Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Klappt irgendwie nicht
Autor: unbekannt
Datum: 25.11.01 22:22
Hi, die nachstehene Function reagiert wie folgt: Dim Rval As Boolean Rval = SaveMyListItem(List1, "C:Eigene DateienSaveList.TXT") Die Funktion erwartet: Eine Listbox, den Namen derselben und eine Angabe, wohin zu speichern ist, d.H. eine gültige Pfad_Namen_und Dateibezeichnung. Die Funktion erwartet im ersten Parameter klar ein Objekt (gekennzeichnet sogar durch ByRef) und im zweiten Teil einen String(klar gekennzeichnet durch Byval). Die Funktion gibt Wahr alsoTrue zurück wenn alles ok ist und false, wenn etwas schief gelaufen ist. cu Lordchen Private Function SaveMyListItems(Byref lstBx As ListBox, Byval sFilName As String) As Boolean Dim nFilNr As Long, i As Long SaveMyListItems = False If lsBx.ListCount = 0 Then Exit Function On Error Goto FileErrorDetect nFilNr = FreeFile(0) Open sFilName For Output As #nFilNr For i=0 To lstBx.ListCount - 1 Print #nFilNr,lsBx.List(i) Next Close #nFilNr SaveMyListItems = True End Function FileErrorDetect: MsgBox "Speichern wurde abgebrochen.",vbExclamation,"Fehler in Modul: SaveMyListItems" End Function

List Box ??????	104	cromec	25.11.01 19:03
Re: List Box ??????	296	unbekannt	25.11.01 19:18
Stopp, kleiner Zusatz:	261	unbekannt	25.11.01 19:20
Thanx. Ihr seit super (ot)	77	cromec	25.11.01 21:26
Klappt irgendwie nicht	135	cromec	25.11.01 22:08
Re: Klappt irgendwie nicht	259	unbekannt	25.11.01 22:22
Danke	81	cromec	26.11.01 08:03

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