Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Делаем простой графический редактор






Наш графический редактор будет уметь:

  1. изменять размер мазка
  2. настраивать цвет
  3. очищать графическое поле

Разместим на форме 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






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.