Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Textfeld speichern...
Autor: coolschrank
Datum: 06.02.03 20:38
hi leutze, habe folgendes Problem: ------------------------------- Private Sub mnusave_Click(Index As Integer) 'Datei Speichern 1 On Error GoTo ErrH cmdialog1.Flags = &H2& cmdialog1.Filter = "Textname(*.txt)|*.txt" cmdialog1.Action = 2 Daten_Speichern (cmdialog1.FileName) Ausgang: Exit Sub ErrH: MsgBox "So ein Mist", 33, "evtl. Laufwerk nicht vhd." Resume Ausgang End Sub Sub Daten_Speichern(dateibez As String) 'Datei Speichern 2 Dim i As Integer Open dateibez For Output As 100 Write #100, Anzahl For i = 1 To Anzahl Write #100, X(i) Write #100, Y(i) Next Close 100 End Sub --------------------------------------- Irgendwie gibt der mir immer ne 0 beim speichern aus, warum? danke schon mal für ne antwort cya coolschrank

Textfeld speichern...	343	coolschrank	06.02.03 20:38
Re: Textfeld speichern...	200	Ne kölsche Jung	07.02.03 07:31
Re: Textfeld speichern...	207	dbayer	07.02.03 07:43

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