Dim FirstBall As Balloon Dim
|
Public Sub UnModal() Dim FirstBall As Balloon Dim Text1 As String, Text2 As String Dim Text3 As String, Text4 As String Dim myPath As String myPath = ActiveDocument.Path 'Формирование свойства Text 'Вставка графики в начало текста Text1 = "{wmf " & myPath & " /Cabbage.wmf}" Text2 = "Вы уже перевезли на другой берег " Text3 = "Волка и Козу! Осталось съездить за капустой." Text4 = "Отправляясь назад, Вы возьмете с собой: " Set FirstBall = Assistant.NewBalloon With FirstBall .Mode = msoModeModeless .Callback = "Answer" .Icon = msoIconAlert .Heading = "ВОЛК, КОЗА И КАПУСТА" .Text = Text1 & Text2 & Text3 & Text4 .BalloonType = msoBalloonTypeButtons .Button = msoButtonSetNone .Labels(1).Text = "Волка" .Labels(2).Text = "Козу" .Labels(3).Text = "Капусту" .Labels(4).Text = "Никого" .Show End With End Sub Public Sub Answer(Ball As Balloon, Count As Long, iPriv As Long) 'Анализ принятого решения Select Case Count Case 1 Call Explain("Это возможное, но не лучшее решение!") Case 2 Call Explain("Это правильно!") Case 3 Call Explain("Это невозможно!") Case 4 Call Explain("Ужасная трагедия: Волк съест Козу!") Case Else 'Пропускаем End Select ' При желании можно закрыть окно диалога Ball.Close End Sub Public Sub Explain(Txt As String) Dim ExplainBall As Balloon Set ExplainBall = Assistant.NewBalloon With ExplainBall .Heading = "ВОЛК, КОЗА И КАПУСТА" .Text = Txt .Show End With End Sub |
| Листинг 7.7. |
| Закрыть окно |