Здраствуйте!!!
Имеется программа под названием "Простейший графический редактор", но прочерчивание линий происходит непосредственно на форме!
Как рисовать на чем-то еще (может на PictureBox) и , если не трудно, напишите пожалуйста программный код для этой программы!
(Т.е. добавьте или удалите, что необходимо).
Имеем на данный момент:
Dim IsDraw As Boolean
Option Explicit
Private Sub Exit_Click()
'Выход из графического редактора с помощью вкладки Выход
ГрафРедактор.Hide
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
IsDraw = True
CurrentX = X
CurrentY = Y
'Режим "Карандаш" (нажата левая кнопка мыши)
'Цвет: чёрный; толщина: 1твип.
If Button = vbLeftButton Then
DrawWidth = 1
ForeColor = vbBlack
End If
'Режим "Резинка" (нажата правая кнопка мыши)
'Цвет: фоновый; толшина: 25 твипов.
If Button = vbRightButton Then
DrawWidth = 20
ForeColor = BackColor
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Прочерчивание линии
If IsDraw Then
Line -(X, Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
IsDraw = False
End Sub
Заранее благодарю!!!!!
Подскажите ещё пожалуйста, как сделать так, чтобы, нажав на вкладку "О программе" в меню, получить открытый текстовый документ, в котором все данные будут написаны???
Напишите, пожалуйста код для этого задания!
Спасибо огромное!!!