Nbsp; Новогодняя заставка экрана

Option Explicit

Sub Form_Click()

Dim CX, CY, Msg, XPos, YPos ' Объявляем переменные.

ScaleMode = 3 'Устанавливаем режим ScaleMode в пикселы.

DrawWidth = 5 ' Устанавливаем ширину рисунка.

ForeColor = QBColor(4) ' Устанавливаем фон в красный.

FontSize = 24 ' Устанавливаем размер точки.

CX = ScaleWidth / 2 'Получаем центр по горизонтали.

CY = ScaleHeight / 2 ' Получаем центр по вертикали.

Cls ' Очищаем форму.

Msg = "С Новым Годом!"

CurrentX = CX - TextWidth(Msg) / 2 ' Выводим текст приветствия в центр по горизонтали.

CurrentY = CY - TextHeight(Msg) 'Выводим текст выше центра по вертикали.

Print Msg 'Печатаем сообщение.

Do

XPos = Rnd * ScaleWidth ' Случайным образом определяем горизонтальную позицию.

YPos = Rnd * ScaleHeight 'Тоже для вертикальной.

PSet (XPos, YPos), QBColor(Rnd * 15) 'Рисуем конфети.

DoEvents ' Переход к другому конфети

Loop ' Выполнение.

End Sub

Private Sub Form_DblClick()

End

End Sub

Пример 28

Перетаскивание объектов

Option Explicit

Private Sub Image2_DragDrop(Source As Control, X As Single, Y As Single)

Image1.Visible = False

Label1.Caption = "Теперь закройте форму"

End Sub

Пример 29

Горящая бочка

Option Explicit

Private Sub Image1_DragDrop(Source As Control, X As Single, Y As Single)

Source.Visible = False

If Source.Tag = "Fire" Then

Image1.Picture = Image6.Picture

Picture1.Visible = True

Timer1.Enabled = True

End If

End Sub

Private Sub Timer1_Timer()

If Picture1.Top > 0 Then

Picture1.Move Picture1.Left - 50, Picture1.Top - 75

Else

Picture1.Visible = False

Timer1.Enabled = False

End If

End Sub

Примечание.

Алгоритм работы программы таков: в бочку перетаскиваются все картинки и последней перетаскивается картинка с динамитными шашками. Бочка загорается, из нее появляется пламя и поднимается дым. Иконки для программы возьмите готовые или нарисуйте сами в формате BMP с помощью программы Paint.

Пример 30