' die Kategorie
Wahl ausdrücklich an
Allgemeine Kategorie SharedRecordDefinitions
Allgemeine Struktur RecordLayout
Schwaches FName als Schnur
Schwaches LName als Schnur
Vorneues (ByVal F-N als Schnur, ByVal LN als Schnur)
Me.FName = F-N
Me.LName = LN
Enden-Unterseeboot
Enden-Struktur
Privates m_RecordA () als RecordLayout = {_
Neues RecordLayout („H“, „B“), _
Neues RecordLayout („R“, „B“), _
Neues RecordLayout („B“, „B“) _
}
Privates m_RecordB () als RecordLayout = {_
Neues RecordLayout („H“, „B“), _
Neues RecordLayout („R“, „B“), _
Neues RecordLayout („B“, „B“) _
}
Privates m_RecordC () als RecordLayout = {_
Neues RecordLayout („H“, „B“), _
Neues RecordLayout („R“, „B“), _
Neues RecordLayout („B“, „B“) _
}
Allgemeines Read-only-Eigentum RecordA () als RecordLayout ()
Erhalten
m_RecordA zurückbringen
Ende erhalten
Enden-Eigentum
Allgemeines Read-only-Eigentum RecordB () als RecordLayout ()
Erhalten
m_RecordB zurückbringen
Ende erhalten
Enden-Eigentum
Allgemeines Read-only-Eigentum RecordC () als RecordLayout ()
Erhalten
m_RecordC zurückbringen
Ende erhalten
Enden-Eigentum
Enden-Kategorie
'Ein einfacher Klient in VB.NET
Importe SharedRecordDefinitions.SharedRecordDefinitions
Modul frmMain
Private m_recAllFormats als SharedRecordDefinitions.SharedRecordDefinitions = neues SharedRecordDefinitions.SharedRecordDefinitions
Vorhauptleitung ()
Schwaches reca () als SharedRecordDefinitions.SharedRecordDefinitions.RecordLayout = m_recAllFormats.RecordA
Schwaches recb () als SharedRecordDefinitions.SharedRecordDefinitions.RecordLayout = m_recAllFormats.RecordB
Schwaches recc () als SharedRecordDefinitions.SharedRecordDefinitions.RecordLayout = m_recAllFormats.RecordC
Für jedes O als RecordLayout in m_recAllFormats.RecordA
Debug.Print (o.FName u. „: “ u. o.LName)
Zunächst
Enden-Unterseeboot
Ende Module
|