Основы офисного программирования и язык VBA


Пример 4.6


Option Explicit

Private WithEvents myFriendOne As Личность

Private WithEvents myFriendTwo As Личность

Private Sub myFriendOne_ДеньРождения(Dat As Date)

BirthDay (Dat)

End Sub

Private Sub myFriendOne_ИзменениеФамилии(Fam As String, _

NewFam As String, Permission As Boolean)

MsgBox ("Изменение фамилии " & Fam & " на " & NewFam & Chr(13) _

& "не разрешается.")

Permission = False

End Sub

Private Sub myFriendTwo_ДеньРождения(Dat As Date)

BirthDay (Dat)

End Sub

Private Sub myFriendTwo_ИзменениеФамилии(Fam As String, _

NewFam As String, Permission As Boolean)

MsgBox ("Поздравляю с замужеством, дорогая " & _

Fam & "-" & NewFam & "!")

Permission = True

End Sub

Public Sub BirthDay(Dat As Date)

Debug.Print Dat, "-", Now

Select Case Day(Dat)

Case Day(Now)

MsgBox ("Сегодня День Рождения!")

Case Is < Day(Now)

MsgBox ("Вчера был День Рождения!")

Case Else

MsgBox ("Завтра День Рождения!")

End Select

End Sub

Public Sub Connect()

Set myFriendOne = FriendOne

Set myFriendTwo = FriendTwo

End Sub




Начало  Назад  Вперед