class= " lineNumbers "
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=
id= " codeSnippet828875 " class= " ' тип
Вариант точный дальше
Общественный тип SharedRecordDefinitions
Общественная структура RecordLayout
Тусклое FName как шнур
Тусклое LName как шнур
Sub новая (ByVal FN как шнур, ByVal LN как шнур)
Me.FName = FN
Me.LName = LN
Подводная лодка конца
Структура конца
Приватное m_RecordA () как RecordLayout = {_
Новое RecordLayout («h», «b»), _
Новое RecordLayout («r», «b»), _
Новое RecordLayout (_ «b», «b»)
}
Приватное m_RecordB () как RecordLayout = {_
Новое RecordLayout («h», «b»), _
Новое RecordLayout («r», «b»), _
Новое RecordLayout (_ «b», «b»)
}
Приватное m_RecordC () как RecordLayout = {_
Новое RecordLayout («h», «b»), _
Новое RecordLayout («r», «b»), _
Новое RecordLayout (_ «b», «b»)
}
Общественное свойство только для чтения RecordA () как RecordLayout ()
Получите
Возвратите m_RecordA
Конец получает
Свойство конца
Общественное свойство только для чтения RecordB () как RecordLayout ()
Получите
Возвратите m_RecordB
Конец получает
Свойство конца
Общественное свойство только для чтения RecordC () как RecordLayout ()
Получите
Возвратите m_RecordC
Конец получает
Свойство конца
Тип конца
'Просто клиент в VB.NET
Ввозы SharedRecordDefinitions.SharedRecordDefinitions
frmMain модуля
Приватные m_recAllFormats как SharedRecordDefinitions.SharedRecordDefinitions = новое SharedRecordDefinitions.SharedRecordDefinitions
Sub основа ()
Тусклое reca () как SharedRecordDefinitions.SharedRecordDefinitions.RecordLayout = m_recAllFormats.RecordA
Тусклое recb () как SharedRecordDefinitions.SharedRecordDefinitions.RecordLayout = m_recAllFormats.RecordB
Тусклое recc () как SharedRecordDefinitions.SharedRecordDefinitions.RecordLayout = m_recAllFormats.RecordC
Для каждого o как RecordLayout в m_recAllFormats.RecordA
Debug.Print (o.FName & «: » & o.LName)
Затем
Подводная лодка конца
Конец Module
|