1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
|
" codeBody "
" notpretty " de ' Klasse
Expliciete optie
Openbare Klasse SharedRecordDefinitions
Openbare Structuur RecordLayout
Schemerige FName als Koord
Schemerige LName als Koord
Sub Nieuw (ByVal F-N als Koord, ByVal LN als Koord)
Me.FName = F-N
Me.LName = LN
Sub van het eind
De Structuur van het eind
Privé m_RecordA () als RecordLayout = {_
Nieuwe RecordLayout („H“, „B“), _
Nieuwe RecordLayout („R“, „B“), _
Nieuwe RecordLayout („B“, „B“) _
}
Privé m_RecordB () als RecordLayout = {_
Nieuwe RecordLayout („H“, „B“), _
Nieuwe RecordLayout („R“, „B“), _
Nieuwe RecordLayout („B“, „B“) _
}
Privé m_RecordC () als RecordLayout = {_
Nieuwe RecordLayout („H“, „B“), _
Nieuwe RecordLayout („R“, „B“), _
Nieuwe RecordLayout („B“, „B“) _
}
Openbaar ReadOnly Bezit RecordA () als RecordLayout ()
Krijg
Keer m_RecordA terug
Het eind krijgt
Het Bezit van het eind
Openbaar ReadOnly Bezit RecordB () als RecordLayout ()
Krijg
Keer m_RecordB terug
Het eind krijgt
Het Bezit van het eind
Openbaar ReadOnly Bezit RecordC () als RecordLayout ()
Krijg
Keer m_RecordC terug
Het eind krijgt
Het Bezit van het eind
De Klasse van het eind
Een 'eenvoudige Cliënt in VB.NET
De invoer SharedRecordDefinitions.SharedRecordDefinitions
Module frmMain
Privé m_recAllFormats als SharedRecordDefinitions.SharedRecordDefinitions = Nieuwe SharedRecordDefinitions.SharedRecordDefinitions
Sub Leiding ()
Schemerige reca () als SharedRecordDefinitions.SharedRecordDefinitions.RecordLayout = m_recAllFormats.RecordA
Schemerige recb () als SharedRecordDefinitions.SharedRecordDefinitions.RecordLayout = m_recAllFormats.RecordB
Schemerige recc () als SharedRecordDefinitions.SharedRecordDefinitions.RecordLayout = m_recAllFormats.RecordC
Voor Elk o als RecordLayout in m_recAllFormats.RecordA
Debug.Print (o.FName & „: “ & o.LName)
Daarna
Sub van het eind
Eind Module
|