ться в одну соту секунди (процедура для розпилення написана в таймері)
If Option1 (5). Value = True Then.DrawWidth = 1
Timer1.Interval = 10If
Якщо обрана лінія або прямокутник
If Option1 (7). Value = True Or Option1 (8). Value = True Then.DrawMode = vbInvertIf
Якщо обраний елліпсOption1 (9). Value = True Then.AutoRedraw = False.DrawMode = vbInvertIf
Встановлюємо початкові координати: = X = Y = True = TrueSub
Процедура Picture1_MouseMove визначає набір дій при переміщенні миші
Private Sub Picture1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
У деяких випадках може вийде, що подія MouseMove може виникнути без попереднього події MouseDown
Тому якщо події MouseDown не було, то виходимо з процедури
If picMouseDown = False Then Exit Sub
Якщо вибрано виділення малюнка, вставка тексту або малювання прямокутника
If Option1 (0). Value = True Or Option1 (6). Value = True Or Option1 (8). Value = True Then
Якщо прямокутник був намальований, то стираємо його і малюємо прямокутник з новими координатами
If picDrawFirst = False Then.Line (x0, y0) - (x1, y1),, BIf.Line (x0, y0) - (X, Y),, B
End If
Якщо обраний ластик або олівець, то проводимо лінію зазначеного кольору (якщо це ластик, то колір-це колір фону):
If Option1 (1). Value = True Or Option1 (4). Value = True Then.Line - (X, Y) If
Якщо обрана установка цветаOption1 (3). Value = True Then (1). BackColor = Picture1.Point (X, Y)
End If
Якщо обраний розпилювач, то вказуємо координати
If Option1 (5). Value = True Then = X
y0 = YIf
Якщо обрана лініяOption1 (7). Value = True Then
Якщо лінія була намальована, то стираємо її і малюємо лінію з новими координатами
If picDrawFirst = False Then.Line (x0, y0) - (x1, y1) If.Line (x0, y0) - (X, Y) If
Якщо обраний елліпсOption1 (9). Value = True Then
Якщо еліпс був намальований, то стираємо його і малюємо еліпс з новими координатами
If picDrawFirst = False ThenPicture1.hdc, x0, y0, x1, y1IfPicture1.hdc, x0, y0, X, YIf = X = Y = False
End Sub
Процедура визначає набір дій при відпуску кнопки миші
Private Sub Picture1_MouseUp (Button As Intege...
