В данном примере для задания
|
Public Sub CheckingHobbies1() ' В данном примере для задания предпочтений используются метки 'и возможности анализа результата работы метода Show Dim FirstBall As Balloon, LastBall As Balloon Dim i As Integer Dim Answer As MsoBalloonButtonType 'баллончик выясняет увлечения Set FirstBall = Assistant.NewBalloon With FirstBall .Heading = "Ваш любимый вид спорта?" .BalloonType = msoBalloonTypeButtons .Labels(1).Text = "Футбол" .Labels(2).Text = "Теннис" .Labels(3).Text = "Шахматы" .Labels(4).Text = "Плавание" .Labels(5).Text = "Горные лыжи" .Button = msoButtonSetBackNextClose Answer = .Show End With 'Анализ пользовательского выбора Select Case Answer Case 1 MsgBox ("Футбол - любимая игра миллионов.") Case 2 MsgBox ("Теннис - красивый вид спорта.") Case 3 MsgBox ("Шахматы - игра мыслителей.") Case 4 MsgBox ("Плавание - нет ничего полезнее.") Case 5 MsgBox ("Горные лыжи - спорт избранных.") Case msoBalloonButtonBack MsgBox ("Показать предыдущий список игр?") Case msoBalloonButtonNext MsgBox ("Показать следующий список игр?") Case Else MsgBox ("Вы совсем не спортсмен!") End Select End Sub |
| Листинг 7.5. |
| Закрыть окно |
