Property Let и Get с параметрами

Public Property Get DoubMin() As Double ' Возвращает значение свойства минимально допустимого числа
 DoubMin = dblMin
End Property
 
Public Property Let DoubMin(ByVal NewValue As Double) ' Устанавливает значение свойства минимально допустимого числа
dblMin = NewValue
End Property

Public Property Get SummaInt() As Long
SummaInt = intSummaN
End Property
 
Public Property Set SummaInt(ByVal L As ListBox)
Dim i As Integer, N As Long
N = 0
For i = 0 To L.ListCount - 1
    N = N + Val(Right$(L.List(i), 3))
Next
intSummaN = N
End Property

Public Property Get SummaDoub(Optional Y As Boolean = True) As Double
 
SummaDoub = dblSummaS
End Property
 
Public Property Let SummaDoub(Y As Boolean, ByVal L As ListBox)
Dim i As Integer, S As Double
S = 0
 
For i = 0 To L.ListCount - 1
    If Y Then
    S = S + F(Val(Left$(L.List(i), 6))) * Val(Right$(L.List(i), 3))
    Else
    S = S + Val(Left$(L.List(i), 6)) * Val(Right$(L.List(i), 3))
    End If
 
Next
dblSummaS = S
End Property

Public Property Get SummaDoub(Optional Y As Boolean = True, Optional L As ListBox) As Double
 
SummaDoub = dblSummaS
End Property
 
Public Property Let SummaDoub(Y As Boolean, ByVal L As ListBox, S As Double)
Dim i As Integer
S = 0
For i = 0 To L.ListCount - 1
    If Y Then
    S = S + F(Val(Left$(L.List(i), 6))) * Val(Right$(L.List(i), 3))
    Else
    S = S + Val(Left$(L.List(i), 6)) * Val(Right$(L.List(i), 3))
    End If
Next
dblSummaS = S
End Property

Dim ce As New clsEnter
'...
Set ce.SummaDoub(True) = myListBox

'модуль класса
 
Public Sub CalcSum(L As ListBox, Optional Y As Boolean = True)
'...
End Sub
 
'вызов
ce.CalcSum myListBox, False

Option Explicit
 
Private X As Long
' Возвращает значение свойства типы и имена переменных строго одинаковы на 1 меньше
Public Property Get lngNum(Optional ByVal dblMin As Byte = 0, Optional ByVal intMax As Integer = 100) As Long
lngNum = X
End Property
' Устанавливает значение свойства типы и имена переменных строго одинаковы на 1 больше, последний указатель на объект
Public Property Set lngNum(ByVal dblMin As Byte, ByVal intMax As Integer, ByVal NewValue As TextBox)
Dim i As Integer, ch As String
NewValue.ForeColor = &H80000008 'черный
'Проверка на максимальное
If Val(NewValue) > intMax Then MyError NewValue, "Не допустимо большое число!", vbExclamation
'Проверка на ввод целого числа
For i = 1 To Len(NewValue)
    ch = Mid$(NewValue, i, 1)
       If ch = "." Then
          MyError NewValue, "Число должно быть целым!", vbExclamation
          Exit For
       End If
    'Проверка на не числовой символ
    If Not (ch >= "0" And ch <= "9") Then MyError NewValue, "Введенное значение не является числовым!", vbCritical
Next
'Проверка на минимальное
If NewValue <> "" And Val(NewValue) < dblMin Then MyError NewValue, "Не допустимо малое число!", vbExclamation
X = Val(NewValue.Text)
 
End Property
' метод'класса
Private Sub MyError(A As Control, Str As String, St As String)
         A.ForeColor = &HFF&       'красный
        MsgBox "Ошибка ввода!" + vbCrLf + Str, St, "Ошибка ввода"
        A.Text = ""
End Sub

Option Explicit
 
' Объявление переменной типа clsNum
Dim myObj As clsNum
Dim A As Long, B As Long
 
Private Sub Form_Click() 'смотрим свойства объекта на форме
'Если параметры Property Get не Optional пишем Obj.lngNum(A, B)
Print myObj.lngNum
End Sub
 
Private Sub Form_Load()
A = 1: B = 100
' Создание объекта clsNum
Set myObj = New clsNum
' Установка свойств объекта dblMin,intMax
With myObj
Set myObj.lngNum(0, 1) = Text1
End With
 
End Sub
 
Private Sub Text1_Change()
'Установка свойств объекта TextBoxом и устанавливаем dblMin,intMax
With myObj
Set myObj.lngNum(A, B) = Text1
End With
Text2 = myObj.lngNum 'смотрим свойства объекта в TextBoxе
End Sub