Класс Resultat
Option Explicit
Private mvarPlayer As String
Private mvarCurDate As Date
Private mvarResult As Long
Public Property Let Result(ByVal vData As Long)
mvarResult = vData
End Property
Public Property Get Result() As Long
Result = mvarResult
End Property
Public Property Let CurDate(ByVal vData As Date)
mvarCurDate = vData
End Property
Public Property Get CurDate() As Date
CurDate = mvarCurDate
End Property
Public Property Let Player(ByVal vData As String)
'вначале ограничим строку 10 знаками
Select Case Len(vData)
Case Is > 10
vData = Left(vData, 10)
Case Is < 10
Do Until Len(vData) = 10
vData = vData & " "
Loop
End Select
mvarPlayer = vData
End Property
Public Property Get Player() As String
Player = mvarPlayer
End Property
Коллекция Resultats
Option Explicit
Private mvarPlayer As String
Private mvarCurDate As Date
Private mvarResult As Long
Public Property Let Result(ByVal vData As Long)
mvarResult = vData
End Property
Public Property Get Result() As Long
Result = mvarResult
End Property
Public Property Let CurDate(ByVal vData As Date)
mvarCurDate = vData
End Property
Public Property Get CurDate() As Date
CurDate = mvarCurDate
End Property
Public Property Let Player(ByVal vData As String)
'вначале ограничим строку 10 знаками
Select Case Len(vData)
Case Is > 10
vData = Left(vData, 10)
Case Is < 10
Do Until Len(vData) = 10
vData = vData & " "
Loop
End Select
mvarPlayer = vData
End Property
Public Property Get Player() As String
Player = mvarPlayer
End Property
Форма frmTest
Option Explicit
Private R As Resultats
Private Sub cmdAdd_Click()
R.Add Text1.Text, Text2.Text, Text3.Text
End Sub
Private Sub cmdClear_Click()
R.Clear
End Sub
Private Sub cmdPrint_Click()
R.PrintCls Me
End Sub
Private Sub Form_Load()
Set R = New Resultats
With R
.Max = 10
.Add "Иванов", "01.01.2001", 1000
.Add "Петров", "02.01.2001", 900
.Add "Сидоров", "03.01.2001", 800
.Add "Шариков", "04.01.2001", 700
.Add "Бобиков", "05.01.2001", 600
.Add "Муркин", "06.01.2001", 500
.Add "Барсиков", "07.01.2001", 400
.Add "Мышкин", "08.01.2001", 300
.Add "Крыскин", "09.01.2001", 200
.Add "К.Рябов", "10.01.2001", 100
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set R = Nothing
End Sub