Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

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

Klassen in Dateien schreiben	667	David M	30.07.04 21:13
Re: Klassen in Dateien schreiben	372	Blacky	01.08.04 01:02
Re: Klassen in Dateien schreiben	369	Master	01.08.04 07:13
Re: Klassen in Dateien schreiben	397	adama	02.08.04 16:27

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