' The Klasa
Opcja Wyraźny Dalej
Społeczeństwo Klasowy SharedRecordDefinitions
Jawny Struktura RecordLayout
Ciemnawy FName Sznurek
Ciemnawy LName Sznurek
Okręt podwodny Nowy (ByVal FN Jako Sznurek, ByVal LN Sznurek)
Me.FName = FN
Me.LName = LN
Końcówka Okręt podwodny
Końcówka Struktura
Intymny m_RecordA () Jako RecordLayout = {_
Nowy RecordLayout ("H", "B"), _
Nowy RecordLayout ("R", "B"), _
Nowy RecordLayout ("B", "B") _
}
Intymny m_RecordB () Jako RecordLayout = {_
Nowy RecordLayout ("H", "B"), _
Nowy RecordLayout ("R", "B"), _
Nowy RecordLayout ("B", "B") _
}
Intymny m_RecordC () Jako RecordLayout = {_
Nowy RecordLayout ("H", "B"), _
Nowy RecordLayout ("R", "B"), _
Nowy RecordLayout ("B", "B") _
}
Jawny Jawny Majątkowy RecordA () Jako RecordLayout ()
Dostawać
Wracać m_RecordA
Końcówka Dostawać
Końcówka Własność
Jawny Jawny Majątkowy RecordB () Jako RecordLayout ()
Dostawać
Wracać m_RecordB
Końcówka Dostawać
Końcówka Własność
Jawny Jawny Majątkowy RecordC () Jako RecordLayout ()
Dostawać
Wracać m_RecordC
Końcówka Dostawać
Końcówka Własność
Końcówka Klasa
'Prosty Klient w VB.NET
Import SharedRecordDefinitions.SharedRecordDefinitions
Moduł frmMain
Intymny m_recAllFormats Jako SharedRecordDefinitions.SharedRecordDefinitions = Nowy SharedRecordDefinitions.SharedRecordDefinitions
Okręt podwodny Magistrala ()
Ciemnawy reca () Jako SharedRecordDefinitions.SharedRecordDefinitions.RecordLayout = m_recAllFormats.RecordA
Ciemnawy recb () Jako SharedRecordDefinitions.SharedRecordDefinitions.RecordLayout = m_recAllFormats.RecordB
Ciemnawy recc () Jako SharedRecordDefinitions.SharedRecordDefinitions.RecordLayout = m_recAllFormats.RecordC
Dla M_recAllFormats.RecordA o Jako RecordLayout W m_recAllFormats.RecordA
Debug.Print (o.FName & ": " & o.LName)
Następnie
Końcówka Okręt podwodny
Końcówka Module
|