ник: час
Public Function funGetMyClsTest() As clsTest
Static objTest As New clsTest 'объявим статичную переменную экземпляра класса
Set funGetMyClsTest = objTest 'вернем ссылку на экземпляр класса
End Function
Public Function funGetClsTestProperty()
With funGetMyClsTest()
'Посмотрим свойства
Debug.Print .StringProperty, .LongProperty, .DateProperty
End With
End Function
|
ну ниХР себе.....
ФУНКЦИЯ_ ОБЪЕКТ_ЭКЗЕМПЛЯР
ДАААААААААААА ОФИГЕТЬ блинннннннннн
Ну ты изворотлив........
Хотя конечно примеры идентичны - по результату работы, но второй вариант - просто показатель изощрённого программирования....
