Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Делаем простой графический редактор
|
|
Наш графический редактор будет уметь:
- изменять размер мазка
- настраивать цвет
- очищать графическое поле
Разместим на форме PictureBox, TextBox с атрибутом Text = 8, подключаем Common Dialog, даём ему имя dlg, и две кнопки с надписями Цвет и Очистить.
Пишем код:
Private Sub Command1_Click() With dlg.ShowColorPicture1.ForeColor =.Color End WithEnd Sub Private Sub Command2_Click()Picture1.Cls End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then intPrevX = XintPrevY = Y End IfEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Picture1.DrawWidth = Text1.TextPicture1.Line (intPrevX, intPrevY)-(X, Y) End If intPrevX = XintPrevY = Y End SubЗапускаем. В Text1 вписываем размер мазка
Я не дописал код. Если в текстовом поле написать 0, то будет ошибка
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
On Error Resume Next
Picture1.DrawWidth = Text1.Text
Picture1.Line (intPrevX, intPrevY)-(X, Y)
End If
intPrevX = X
intPrevY = Y
End Sub
|
|