Hallo Volker
wer kann mir helfen?
ich möche Strukturen in Datenfeldern serialisieren.
Private Type PanelInfo
lIcon As Long
lForeColor As Long
lBackColor As Long
Text As String
ToolTipText As String
Tag As Variant
End Type
Private m_tPanels() As PanelInfo
Ich suche eine Funktion :
'Datenfeld in ein String umwandeln
Private Function TypeToStr(Info() AS PanelInfo) AS String
End Function
'String in ein Datenfeld wandeln
Private Sub StrToType(ByVal Str$,Info() AS PanelInfo)
End Function
für eine Hilfe wäre ich dankbar.
Zuerst musst du dir mal überlegen wie du die einzelnen Felder wieder aus dem String herausholen kannst.
Entweder füllst du alles in Felder mit fixen Längen, also die Zeichen 1 bis 10 enthalten „lIcon“ (maximaler Wert + Vorzeichen) je nach wert der Zahl musst du von links mit Nullen oder Leerzeichen füllen,
Zeichen 11 bis 20 enthält „lForeColor“ usw.
Die Strings musst du dann halt auf eine maximale Grösse festlegen.
Oder du legst ein spezielles Zeichen fest, welches aber in den Strings nicht vorkommen darf, mit welchem du die Felder trennst.
Wenn du z.B. das Komma als Zeichen nimmst:
„1234,-567,789,erster String,2. string,vvvvvv“
MfG Peter(TOO)
