них single і Double. Змінна з типом даних single займає 4 байти і може приймати значення в діапазоні -3,4 ^ 38 ... -1,4 ^ -45 Для негативних чисел і 1,4 ^ -45 ... 3,4 ^ 38 для позитивних чисел. p align="justify"> Змінні x0, y0, x1, y1 використовуються для завдання координат графічних об'єктів
Dim x0 As Single, y0 As Singlex1 As Single, y1 As Single
Мінлива булевского типу, визначальна малюється картинка вперше або нетpicDrawFirst As Boolean
Мінлива picDrawWidth цілого типу визначає товщину лінії. Спочатку 'встановлюється в едініцуpicDrawWidth As Integer
Мінлива булевского типу, визначальна чи натиснута мишка на ізображенііpicMouseDown As Boolean
Опишемо процедури нашої програми
Процедура викликається Form Load () при завантаженні форми (запуск програми)
Private Sub Form_Load () i As Integer
Задає фоновий колір об'єктам Picture6 (0)-Picture6 (15) типу PictureBoxi = 0 To 15 (i). BackColor = QBColor (i)
Next (0)
Встановлює в одиницю ширину контуру зображення = 1
Встановлює зображення курсору мишки в зображення Image5 - карандаш.MouseIcon = Image5
встановлює за замовчуванням маску обираних з папки файлів у формат bmp
CommonDialog1.Filter = "*. bmp | *. bmp" Sub
Процедура Picture Redraw () реалізує меню вибору товщини лінії
Обрану лінію виділяємо одним кольором, решта іншим
Private Sub Picture Redraw (Index As Integer) i As Integer
Цикл по 5 типам ліній
For i = 0 To 4
Якщо обрана лінія, то виділяємо її
If i = Index Then (i). BackColor = vbHighlight (i). ForeColor = vbHighlightText
інакше задаємо чорну лінію на сірому фоні (i). BackColor = vbButtonFace (i). ForeColor = vbButtonTextIf
малюємо саму лінію (i). Line (0, 4) - (41, 4)
NextSub
Процедура Sub Option1_Click встановлює вид курсора миші в залежності від натиснутої кнопки графічного меню
Private Sub Option1_Click (Index As Integer) Case Index1.MouseIcon = Image22.MouseIcon = Image33.MouseIcon = Image44.MouseIcon = Image55.MouseIcon = Image60, 6 To 9
Picture1.MouseIcon = Image7Select
Якщо вікна для вставки тексту або картинки видимі, то прибираємо їх, використовуючи відповідні процедури
