Листинг 1.

Программный код для пользовательского элемента управления Memos. Он добавляет процедуры Property Get и Property Let для каждого его компонента, а также включает вызов метода PropertyChange в события chkDeleteMe_Click и txtRimindMemo_Change.

Public Property Let RemindTime(ByVal newTime As String)
    lblRemindTime.Caption = newTime
End Property

Public Property Get RemindTime() As String
    RemindTime = lblRemindTime.Caption
End Property

Public Property Let RemindMemo(ByVal newMemo As String)
    txtRemindMemo.Text = newMemo
End Property

Public Property Get RemindMemo() As String
    RemindMemo = txtRemindMemo.Text
End Property

Public Property Get DeleteMe() As Boolean
  ' правильное преобразование Value в Boolean
    If chkDeleteMe.Value = 0 Then 
      DeleteMe = False 
    Else 
      DeleteMe = True
    End If
     ' ТАК писать можно, НО НЕ НУЖНО:
     ' newDelete = chkDeleteMe.Value
End Property

Public Property Let DeleteMe(ByVal newDelete As Boolean)
  ' правильное преобразование Boolea в Value
    If newDelete Then 
      chkDeleteMe.Value = 1 
    Else 
      chkDeleteMe.Value = 0
    End If
     ' ТАК ПИСАТЬ НЕЛЬЗЯ:
     ' chkDeleteMe.Value = newDelete
End Property

Private Sub txtRemindMemo_Change()
    PropertyChanged "RemindMemo"
End Sub

Private Sub chkDeleteMe_Click()
    PropertyChanged "DeleteMe"
End Sub

В начало страницы