Создание приложения «Календарь наших дел» в среде VB 6.0

Листинг 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

Возврат


Наш канал на Youtube

1999 1 2 3 4 5 6 7 8 9 10 11 12
2000 1 2 3 4 5 6 7 8 9 10 11 12
2001 1 2 3 4 5 6 7 8 9 10 11 12
2002 1 2 3 4 5 6 7 8 9 10 11 12
2003 1 2 3 4 5 6 7 8 9 10 11 12
2004 1 2 3 4 5 6 7 8 9 10 11 12
2005 1 2 3 4 5 6 7 8 9 10 11 12
2006 1 2 3 4 5 6 7 8 9 10 11 12
2007 1 2 3 4 5 6 7 8 9 10 11 12
2008 1 2 3 4 5 6 7 8 9 10 11 12
2009 1 2 3 4 5 6 7 8 9 10 11 12
2010 1 2 3 4 5 6 7 8 9 10 11 12
2011 1 2 3 4 5 6 7 8 9 10 11 12
2012 1 2 3 4 5 6 7 8 9 10 11 12
2013 1 2 3 4 5 6 7 8 9 10 11 12
Популярные статьи
КомпьютерПресс использует