Программа для рисования – исходный код на языке Visual Basic

В данном уроке мы рассмотрим исходный код программы для рисования на форме написанной на языке Visual Basic. Функционал данной программы позволяет изменять фон формы, а также мы рассмотрим такую полезную вещь в Visual Basic это появление сообщения на какие-нибудь действия, в данной программе приведен пример, когда при закрытии программы Вам будет показано сообщение о том, что «Вы действительно хотите закрыть программу?» с возможностью выбора.

Давайте приступим к написанию этой программы, открываем среду программирования Microsoft Visual Basic v 6.0 и можете сразу вставлять код, но Вам также нужно будет создать меню, для того чтобы Вы могли изменять цвет фона, очищать содержимое формы и выйти из программы. Для этого нажимайте «Инструменты ->Редактор меню» в появившемся окошке добавьте 5 пунктов меню по следующему принципу:

Название Имя

Зеленый -cmda
Серый — cmdb
Красный — cmdc
Очистить — cmdd
Выход — cmdi

И у Вас должно получиться примерно как на следующей картинке. Также в свойстве формы измените параметр StartUpPosition, он у Вас должен быть равен 1-centerowner, это для того чтобы наша программа запускалась по центру.

Исходный код на языке Visual Basic

   Private Sub cmda_Click()
                Form1.BackColor = QBColor(2)
        End Sub

        Private Sub cmdb_Click()
                Form1.BackColor = QBColor(7)
        End Sub

        Private Sub cmdc_Click()
                Form1.BackColor = QBColor(4)
        End Sub

        Private Sub cmdd_Click()
                Cls
        End Sub

        Private Sub cmdi_Click()
                Beep
                Dim message As String
                Dim buttonsandicons As Integer
                Dim title As String
                Dim response As String
                message = "Хотите выйти?"
                title = "Выход"
                buttonasicons = vbYesNo + vbQuestion
                response = MsgBox(message, buttonasicons, title)
                If response = vbYes Then
                End
                End If
        End Sub

        Private Sub Form_MouseDown(Button As Integer, _
        Shift As Integer, X As Single, Y As Single)
                Form1.CurrentX = X
                Form1.CurrentY = Y
        End Sub

        Private Sub Form_MouseMove(Button As Integer, _
        Shift As Integer, X As Single, Y As Single)
                If Button = 1 Then
                Line (Form1.CurrentX, Form1.CurrentY)-(X, Y), QBColor(0)
                End If
        End Sub

Сначала у нас идет описание всех пунктов меню, например Form1.BackColor = QBColor(2) говорит программе, что при нажатии этой кнопки наша форма будет зеленым цветом, за это отвечает функция QBColor(2), а цифра внутри скобок говорит, каким будет цвет формы. Описание всех цветов приведено ниже:

0 – Черный
1 – Синий
2 – Зеленый
3 – Голубой
4 – Красный
5 – Пурпурный
6 – Желтый
7 – Белый
8 – Серый
9 – Светло-синий
10 – Светло-зеленый
11 – Светло-голубой
12 – Ярко-красный
13 – Ярко-пурпурный
14 – Ярко-желтый
15 – Ярко-белый

Когда мы доходим до пункта cmdi_Click, здесь описывается вывод сообщения на экран с помощью функции MsgBox. Далее идет код формы (Form_MouseDown и Form_MouseMove), в котором мы задаем параметры, при каких будет происходить сам процесс рисования, и как это будет отображаться на экране. Вот и все можете запустить программу и порисовать, программа не сложная, поэтому и функционал ее тоже простой, но для начинающих программистов на Visual Basic самое то!