class= " lineNumbers " de
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 :
|
class= de
id= " codeSnippet828875 " class= " de ' la classe
Option explicite dessus
Classe publique SharedRecordDefinitions
Structure publique RecordLayout
Faible FName comme corde
Faible LName comme corde
Nouveau secondaire (ByVal F-N comme corde, ByVal LN comme corde)
Me.FName = F-N
Me.LName = LN
Sous-marin d'extrémité
Structure d'extrémité
m_RecordA privé () comme RecordLayout = {_
Nouveau RecordLayout (« H », « B »), _
Nouveau RecordLayout (« R », « B »), _
Nouveau RecordLayout (_ de « B », de « B »)
}
m_RecordB privé () comme RecordLayout = {_
Nouveau RecordLayout (« H », « B »), _
Nouveau RecordLayout (« R », « B »), _
Nouveau RecordLayout (_ de « B », de « B »)
}
m_RecordC privé () comme RecordLayout = {_
Nouveau RecordLayout (« H », « B »), _
Nouveau RecordLayout (« R », « B »), _
Nouveau RecordLayout (_ de « B », de « B »)
}
Propriété inaltérable publique RecordA () comme RecordLayout ()
Obtenir
Renvoyer le m_RecordA
L'extrémité obtiennent
Propriété d'extrémité
Propriété inaltérable publique RecordB () comme RecordLayout ()
Obtenir
Renvoyer le m_RecordB
L'extrémité obtiennent
Propriété d'extrémité
Propriété inaltérable publique RecordC () comme RecordLayout ()
Obtenir
Renvoyer le m_RecordC
L'extrémité obtiennent
Propriété d'extrémité
Classe d'extrémité
'Un client simple dans VB.NET
Importations SharedRecordDefinitions.SharedRecordDefinitions
frmMain de module
m_recAllFormats privés en tant que SharedRecordDefinitions.SharedRecordDefinitions = nouveau SharedRecordDefinitions.SharedRecordDefinitions
Force secondaire ()
Faible reca () en tant que SharedRecordDefinitions.SharedRecordDefinitions.RecordLayout = m_recAllFormats.RecordA
Faible recb () en tant que SharedRecordDefinitions.SharedRecordDefinitions.RecordLayout = m_recAllFormats.RecordB
Faible recc () en tant que SharedRecordDefinitions.SharedRecordDefinitions.RecordLayout = m_recAllFormats.RecordC
Pour chaque o comme RecordLayout dans m_recAllFormats.RecordA
Debug.Print (o.FName et « : » et o.LName)
Après
Sous-marin d'extrémité
Extrémité Module
|