von moppel » Di, 24.01.2006 10:30
Hallo OO-Freaks,
als fortgeschrittener VB-Programmierer verwendete ich type - Strukturen.
Für einen Umstieg auf OO-Basic suche ich nun eine analoge Möglichkeit geschachtelte Strukturen zu erzeugen. Das einzige was ich in Richtung Strukturen gefunden habe, aber nicht ausreichend ist, sind com.sun.star.PropertyValue Strukturen mit .Name und .Value.
Folgende vereinfachte VB-Strukturen sollten nach OO portiert werden:
Public Type tDab ' Datenbankinfos
sDabKey As String ' Key für Datenbank
lSpaltenAnz As Long ' Spaltenanzahl Datenbank
lZeilenAnz As Long ' Anzahl Datenbankwerte je Spalte
vSpalte() As tSpalte ' Spaltendaten (1 ... lSpaltenAnz)
End Type
Type tSpalte ' Alle Daten zu einer Spalte
sSpaltenKey As String ' Interner Spalten-Schlüssel
sSpaltenLabel As String ' Spalten-Beschriftung
sZeilenWert() As String ' alle Zeilenwerte zu dieser Spalte
sTypKey As String ' Typschlüssel sZeilenWert in {CStr, CLng, ...}
bVec As Boolean ' mit oder ohne Indexvektor
lVec() As Long ' sortierter Indexvektor, falls bVec True
End Type
Für einen Tipp danke ich im voraus
moppel
Hallo OO-Freaks,
als fortgeschrittener VB-Programmierer verwendete ich type - Strukturen.
Für einen Umstieg auf OO-Basic suche ich nun eine analoge Möglichkeit geschachtelte Strukturen zu erzeugen. Das einzige was ich in Richtung Strukturen gefunden habe, aber nicht ausreichend ist, sind com.sun.star.PropertyValue Strukturen mit .Name und .Value.
Folgende vereinfachte VB-Strukturen sollten nach OO portiert werden:
Public Type tDab ' Datenbankinfos
sDabKey As String ' Key für Datenbank
lSpaltenAnz As Long ' Spaltenanzahl Datenbank
lZeilenAnz As Long ' Anzahl Datenbankwerte je Spalte
vSpalte() As tSpalte ' Spaltendaten (1 ... lSpaltenAnz)
End Type
Type tSpalte ' Alle Daten zu einer Spalte
sSpaltenKey As String ' Interner Spalten-Schlüssel
sSpaltenLabel As String ' Spalten-Beschriftung
sZeilenWert() As String ' alle Zeilenwerte zu dieser Spalte
sTypKey As String ' Typschlüssel sZeilenWert in {CStr, CLng, ...}
bVec As Boolean ' mit oder ohne Indexvektor
lVec() As Long ' sortierter Indexvektor, falls bVec True
End Type
Für einen Tipp danke ich im voraus
moppel