Главная | Регистрация | Вход | RSSСреда, 20/Июн/2018, 07:09

МБОУ "СШ №36"

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум Школы №36 » Программирование » Visual Basic 6.0 » Рисовалка
Рисовалка
ex1kДата: Пятница, 14/Дек/2007, 18:22 | Сообщение # 1
¤Администратор + модератоР¤
Группа: Администраторы
Сообщений: 243
Репутация: 19
Статус: Offline
Начнём с простого! Создадим упрощёное приложение Paint (если это можно так назвать!)
Запускаем Microsoft Visual Basic. В появившимся окне выбираем Standard EXE.
Перед нами появилось окно, которое будет являться нашим Paint'ом. Делаем его подходящим по размеру.
________________________________
В окне Propertis Задаём значения:
Caption: Paint
BackColor: (выбираем любой цвет фона)
________________________________
Приступаем к програмному коду.
Жмем правой кнопкой на форму и выбираем View Code в оявившимся окне пишим программный код!

Dim IsDraw As Boolean
Option Explicit

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
'Режим "Резинка" (нажатая правая кнопка)
'Цвет: фоновый; толщина: 20 твипов.
If Button = vbRightButton Then
DrawWidth = 100
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

Параметры, которые я выделил красным цветом можно заменить для получения нужного карандаша и ластика.
И вот наш проект готов, теперь его можно просмотреть, нажав кнопку F5.
Далее сохраняем проект. На вкладке File выбираем раздел Save Prodject As...

Добавлено (14.12.2007, 18:22)
---------------------------------------------
легко


________________0ооо___
___ооо0________(___)____
__(___)_________) _/_____
___\_ (_________(_/______
____\_)_________________
 
Форум Школы №36 » Программирование » Visual Basic 6.0 » Рисовалка
  • Страница 1 из 1
  • 1
Поиск:


Copyright MyCorp © 2018
Бесплатный конструктор сайтов - uCoz