double arrow

Public Property Set Form(FormObject)

' Получение переданного объекта (FonnObject)

' и запись его в приватную переменную (mobjForm).

Set mobjForm = FormObject

End Property

При загрузке frmPropertySet форма передается в свойство Form. Поскольку это объект, используется ключевое слово Set. Затем можно получить имя объекта формы для окна сообщений. Ниже приведен код для формы frmPropertySet:

' В данном примере используется объект "cForm". Об"ьект "cForm"

' содержит свойство "Form". При загрузке этой формы (frmPropertySet) она

' передается как объект в свойство "Form". При щелчке на кнопке

' "Property Set" считывается имя формы.

Private mobjForm As cForm Private Sub cmdClose_Click()

DoCmd.Close acForm, "frmPropertySet", acSaveNo

End Sub

Private Sub cmdPropertySet_Cliclt()

MsgBox "The form object (in the 'Form' property) has a name of: " _

mobjForm.Form.Name, vblnfonnation, "Property Set Example"

End Sub

Private Sub Form_Load()

Set mobjForm = New cForm

Set mobjForm.Form = Forms!frmPropertySet End Sub

Private Sub Form_Unload(Cancel As Integer)

Set mobjForm = Nothing

End Sub

Общедоступная переменная и процедуры свойств

Простейший способ создания свойств класса заключается в использовании общедоступных переменных. Однако данный подход имеет некоторые недостатки. Общедоступные переменные всегда отображаются вне модуля. Таким образом, невозможно контролировать доступ к значениям свойств. Если кто-либо меняет значения свойств без ведома других пользователей, это может вызвать нежелательные проблемы.

Еще одно преимущество процедур свойств заключается в том, что можно создать свойства "только для чтения" или "только для записи". Например, если нужно создать свойство Password, можно разрешить пользователям устанавливать пароль, но не получать его (только для записи). Для создания свойства "только для записи" необходимо включить выражение Property Let, но не включать выражение Property Get.

Кроме того, с помощью процедур свойств можно выполнять действия в коде в зависимости от того, установлено свойство или получено.


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



Сейчас читают про: