Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Klassen in Dateien schreiben
Autor: David M
Datum: 30.07.04 21:13
In C++ geht das ganz einfach (Pseudocode): fwrite(Klassenname, sizeof(Klassenname), *Dateiname); In VB jedoch vermisse ich so einen praktischen Befehl. Das bloede ist naemlich, dass ich rund 10 Klassen in einem VB-Projekt mit jeweils etwa 20 Variablen habe, die ich gern alle in eine Datei schreiben wuerde. Momentan muesste ich leider jede Variable einzeln schreiben und das ist sehr umstaendlich. Falls da jemand ne Idee hat ... waere ich ihm sehr verbunden.

Re: Klassen in Dateien schreiben
Autor: Blacky
Datum: 01.08.04 01:02
Hi, soweit ich weiss ist das mit VB nicht möglich ! Da wirst du alles einzeln speichern müssen... VB RULEZ !

Re: Klassen in Dateien schreiben
Autor: Master
Datum: 01.08.04 07:13
was vielleicht noch interessant wäre: speichern in Propertybags (sh. Tipps & Tricks)

Re: Klassen in Dateien schreiben
Autor: adama
Datum: 02.08.04 16:27
Hallo, wie wäre es denn mit folgendem Vorschlag: Class 1: ClsMyClass Private m_Variant As Variant '... ' Diese Klasse beinhaltet alle Variablen die benötigt werden Public Property Get Var1() As Variant Var1 = m_Variant End Property Public Property Let Var1(New_Value As Variant) m_Variant = New_Value End Property Class 2: ClsMyClassCol ' Eine Collection die sämtliche Objekte der benötigten Klassen speichert Private m_colItem As Collection Public Sub SetValue(Id As Long, Value As String) On Error GoTo eh Dim oCls As clsMyClass ' Ein lokales Object aus der Collection ziehen Set oCls = Me.ItemPerID(Id) If oCls Is Nothing Then ' Wenn es noch nicht existiert wird es hier erstellt und der Collection zugewiesen Set oCls = New clsMyClass m_colItem.Add oCls, CStr(Id) End If ' Hier können dann beliebig die Werte gesetzt werden oCls.Var1 = Value '... Exit Sub eh: MsgBox "Error:..." End Sub Public Function Item(KeyOrIndex As Variant) As clsMyClass On Error GoTo eh ' Rückgabe eines geforderten Objektes If m_colItem Is Nothing Then Set m_colItem = New Collection On Error Resume Next Set Item = m_colItem(KeyOrIndex) On Error GoTo eh Exit Function eh: MsgBox "Error:..." End Function Public Function ItemPerID(Id As Long) As clsMyClass On Error GoTo eh ' Mit einer gültigen ID wird ein Object der Klasse clsMyClass angefordert Set ItemPerID = Me.Item(CStr(Id)) Exit Function eh: MsgBox "Error:..." End Function Private Sub Class_Terminate() Set m_colItem = Nothing End Sub Gruß Adama

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