Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: FreeFile in Klassen
Autor: WeatherMan
Datum: 04.01.02 11:17
Also, in meiner Klasse steht folgendes: 'Klasse clsFiles ... Public Sub Zuweisen(ByVal Dateiname as String) 'Dateinamen zuweisen und nächste freie Filenummer vergeben strFileName = DateiName intChannel = FreeFile End Sub ... Public Sub ReadOnly() 'Nur zum Schreiben öffnen Open strFileName For input As #intChannel End Sub ... Public Sub ReWrite() 'Nur zum Schreiben öffnen Open strFileName For Output As #intChannel EndSub ... 'IM FORMULAR Private Datei_A as New clsFiles Private Datei_B as New clsFiles ... Datei_A.Zuweisen "Datei1" Datei_B.Zuweisen "Datei2" Datei_A.ReWrite Datei_B.ReadOnly ... ---- Datei_B.ReadOnly erzeugt dann einen Fehler, dass Datei schon offen ist. Mit dem Debugger seh ich das aber etwas anders... Ich hab mir auch eine Msgbox in die Klasse geproggt, die alle Klasseninternen-Variablen ausspuckt. In Datei_A ist der FileName "Datei1" und in Datei_B "Datei2"... Oder ist im Code der Hund begraben....? Unabhängig voneinander, als nur Datei_A oder Datei_B als Klasse (das andere per Hand) funktioniert reibungslos. CU, WM

FreeFile in Klassen	46	WeatherMan	04.01.02 10:47
Re: FreeFile in Klassen	532	Dieter	04.01.02 10:54
Re: FreeFile in Klassen	29	WeatherMan	04.01.02 11:17
Re: FreeFile in Klassen	541	Dieter	04.01.02 11:24
Re: FreeFile in Klassen	25	WeatherMan	04.01.02 11:26

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