Архитектура Microsoft Windows для разработчиков

       

Обращение к свойствам


Синтаксис Для установки значения свойства применяется следующий синтаксис:

Объект.Свойство = Значение

Синтаксис Для извлечения значения свойства применяется синтаксис:

Значение = Объект.Свойство

Пример Здесь считывается дата, выбранная в элементе управления Calendar, вычисляется

стоимость доставки в этот день и результат отображается в стандартном текстовом

поле HTML:

Sub ShipDate_Click()

Dim shiptime

shiptime = ShipDate.Value - Date ,

If shiptime < 0 Then

MsgBox "Невозможно доставить задним числом"

Elself shiptime < 5 Then

frmShip.txtCost.Value = 12

Else

frmShip.txtCost.Value = 8

End If

End Sub



Содержание раздела