Dim FirstBall As Balloon, LastBall
|
Public Sub CheckingHobbies() Dim FirstBall As Balloon, LastBall As Balloon Dim i As Integer 'Первый баллончик выясняет увлечения Assistant.FileName = "Rocky.acs" Set FirstBall = Assistant.NewBalloon With FirstBall .Heading = "Ваши увлечения" .Checkboxes(1).Text = "Футбол" .Checkboxes(2).Text = "Теннис" .Checkboxes(3).Text = "Шахматы" .Checkboxes(4).Text = "Плавание" .Checkboxes(5).Text = "Горные лыжи" .Show End With 'Второй баллончик уведомляет об увлечениях Assistant.FileName = "OffCat.acs" Set LastBall = Assistant.NewBalloon Dim Count As Integer Count = 0 With LastBall .Heading = "Ваши увлечения" .BalloonType = msoBalloonTypeBullets For i = 1 To 5 If FirstBall.Checkboxes(i).Checked Then Count = Count + 1 .Labels(Count).Text = FirstBall.Checkboxes(i).Text End If Next i If Count > 0 Then .Text = "Вы любите:" Else .Text = "Вы ничего не любите" End If .Show End With End Sub |
| Листинг 7.4. |
| Закрыть окно |
