Введение в программирование на VBA - eDrive
Введение в программирование на VBA - eDrive
Введение в программирование на VBA - eDrive
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
53<br />
.процессор = "Pentium"<br />
.частота = 800<br />
.память = 256<br />
End With<br />
MsgBox IBMPC.процессор & "-" & IBMPC.частота _<br />
& "-" & IBMPC.память<br />
End Sub<br />
Кроме а<strong>в</strong>торских типо<strong>в</strong>, <strong>в</strong>озможно создание а<strong>в</strong>торских классо<strong>в</strong>. Членданные<br />
классо<strong>в</strong> описы<strong>в</strong>аются с<strong>в</strong>ойст<strong>в</strong>ами следующей структуры:<br />
• [операторХранения] [Property Let] имяС<strong>в</strong>ойст<strong>в</strong>а<br />
( [определениеАргументо<strong>в</strong>] )<br />
Выражение<br />
[…]<br />
End Property<br />
• [операторХранения] [Property Get] имяС<strong>в</strong>ойст<strong>в</strong>а<br />
( [определениеАргументо<strong>в</strong>] )<br />
Выражение<br />
[…]<br />
End Property<br />
Let используется для устано<strong>в</strong>ки з<strong>на</strong>чения с<strong>в</strong>ойст<strong>в</strong>а, а Get — для получения<br />
з<strong>на</strong>чения.<br />
Кроме данных, чле<strong>на</strong>ми а<strong>в</strong>торских классо<strong>в</strong> языка <strong>VBA</strong> я<strong>в</strong>ляются также<br />
процедуры, именуемые методами. Создание а<strong>в</strong>торского класса <strong>на</strong>чи<strong>на</strong>ется из<br />
меню Вста<strong>в</strong>ка .Модуль класса. В классе объя<strong>в</strong>ляются переменные модуля,<br />
процедуры Propety Let и Propety Get и методы, работающие с переменными<br />
этого модуля. Объекты как предста<strong>в</strong>ители класса создаются <strong>в</strong> д<strong>в</strong>а этапа:<br />
с<strong>на</strong>чала объя<strong>в</strong>ляется объект<strong>на</strong>я перемен<strong>на</strong>я, тип которой со<strong>в</strong>падает с именем<br />
класса, а затем ей прис<strong>в</strong>аи<strong>в</strong>ается ссылка <strong>на</strong> класс оператором Set. За<strong>в</strong>ершая<br />
работу с объектом, его удаляют прис<strong>в</strong>оением з<strong>на</strong>чения Nothing.<br />
Dim r<br />
Public Property Get Радиус ()<br />
Радиус = r<br />
End Property<br />
Public Property Let Радиус (перемен<strong>на</strong>я)<br />
If Not (IsNumeric (перемен<strong>на</strong>я)) Then<br />
MsgBox "В<strong>в</strong>едите число"<br />
Exit Property<br />
End If