n.Line (x0, y0) - (X, Y),, BIf
Якщо обраний елліпсOption1 (9). Value = True Then
Якщо еліпс був намальований, то стираємо його і остаточно малюємо еліпс з новими координатами
If picDrawFirst = False ThenPicture1.hdc, x0, y0, x1, y1If.DrawMode = vbCopyPen.AutoRedraw = TruePicture1.hdc, x0, y0, X, Y
Оновлюємо ізображеніе.RefreshIf
Встановлюємо режим натискання миші в В«БрехняВ» = FalseSub
Процедура Timer1_Timer () визначає набір дій при роботі таймера:
Private Sub Timer1_Timer () i As Integer
Створюємо ефект розпилення шляхом друку точок з довільними координатами навколо координат мишки
For i = 1 To 10.PSet (x0 - 5 + Int (Rnd * 11), y0 - 5 + Int (Rnd * 11)), Picture1.ForeColor
End Sub
Процедура Picture9_MouseMove здійснює наступний набір дій:
Private Sub Picture9_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
Якщо натиснута кнопка мишки, то переміщаємо виділену картинку відповідно з координатами мишки
If Button = 1 Then.Left = Picture9.Left + X - x0.Top = Picture9.Top + Y - y0
End IfSub
Процедура Text1_Change () здійснює наступний набір действійSub Text1_Change ()
Розмальовує текст і імітує autosize для текстового віконця
Label1.Caption = Text1.TextLabel1.Width + 10> Text1.Width Then Text1.Width = Label1.Width + 10
End Sub
Процедура Picture5_Click дозволяє вибрати товщину зазначеної лінії:
Private Sub Picture5_Click (Index As Integer)
Вибір товщини лінії (Index). DrawWidth = Index + 1 = Index + 1
End Sub
Процедура Picture6_MouseDown здійснює наступні операції
Private Sub Picture6_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Вибір кольору: Button = 1 Then (1). BackColor = Picture6 (Index). BackColor (0). BackColor = Picture6 (Index). BackColor
End IfSub
Процедура Picture1_Resize () встановлює максимальні значення смуг прокручувань відповідно до розміру малюнка:
Private Sub Pictur...
