Основы офисного программирования и язык 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

Пример 4.6.

Закрыть окно






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