, .
, , .
Type, . Private Public. :
Private Type DataTypel
Public Type DataType2
, :
'
Private Type SystemInfo
CPU As Variant
Memory As Long
Disk As Long
VideoColor As Integer
Cena As Currency
MadeDate As Variant
End Type
. , private public:
Dim MySystem As SystemInfo, YourSystem As SystemInfo
, :
| / | ... | ... |
| Private Public | Private Public | |
| Private | Private | |
| Private | Private |
. :
MySystem.CPU = "485"
If MySystem.MadeDate < #1/1/95# Then
, . .
YourSystem = MySystem
, . ( ). :
Type SystemInfo
CPU As Variant
Memory As Long
DiskDrives (5) As String '
VideoColor As Integer
Cena As Currency
MadeDate As Variant
End Type
:
Type SystemInfo
CPU As Variant
Memory As Long
DiskDrivesO As String '
VideoColor As Integer
Cena As Currency
MadeDate As Variant
End Type
:
Dim MySystem As SystemInfo
ReDim MySystem.DiskDrives (3)
MySystem.DiskDrives(0) = 1.44 MB"
:
Dim AllSystems(100) As SystemInfo
, :
AllSystems(5).CPU = "485DX"
|
|
|
AllSystems(5).DiskDrives(2) = "530M SCSI"
. , . , , :
Sub FillSystem (System1 As SystemInfo)
Sysiem1.CPU = .Text
System1.Memory = .Text
Sysiem1.Cena = .Text
System1.MadeDate = Now
End Sub
, private.
, . :
Private Type SchetVvod
frmInput as Form
dbSchet as Database
End Type
. . . , , , .
