Создание приложений ОС Windows средствами Visual Basic


Приложение «Paint» - часть 2


Line (Paint1.CurrentX, Paint1.CurrentY)-(x, Y), QBColor(col)

End If

End Sub

В первом участке кода объявляются необходимые переменные, такие как координаты x и y, цвет col, и другие служебные переменные.

Второй участок кода представляет собой обработчик события щелчка мыши внутри формы. При щелчке его координаты заносятся в свойства CurrentX и CurrentY формы Paint1, которые содержат координаты для начала рисования.

Третий участок это обработчик события перемещения курсора мыши над формой, причём в него передаётся переменная Button, которая содержит значение зависящее от того, нажата ли кнопка мыши, и если да, то какая. В данном случае проверяется состояние левой кнопки мыши, если она нажата, то чертится линия от текущих координат, до координат положения курсора. При этом текущие координаты устанавливаются в конечную точку линии. QBColor оператор передающий процедуре Line необходимый код цвета, в зависимости от условного кода, являющегося его аргументом.

Процедура рисования линии использована вместо процедуры установки цвета пикселя потому, что в противном случае при резком перемещении мыши получались бы отдельные точки вместо сплошной линии.

Добавьте обработчики событий выбора команд меню:

Private Sub mnuBlack_Click()

mnuBlue.Checked = False

mnuBlack.Checked = True

mnuRed.Checked = False

col = 0

End Sub

Private Sub mnuBlue_Click()

mnuBlue.Checked = True

mnuBlack.Checked = False

mnuRed.Checked = False

col = 1

End Sub

Private Sub mnuRed_Click()

mnuBlue.Checked = False

mnuBlack.Checked = False

mnuRed.Checked = True

col = 4

End Sub

Эти обработчики в зависимости от того, какая команда меню была выбрана устанавливают её в состояние Checked, т.е. она становится отмеченной, и убирает это свойство у других команд, чтобы не было отмечено более одного пункта меню. Также устанавливается соответствующий названию команды меню код цвета.

   

Рис. 26                                                         Рис. 27

Напишите обработчик команды меню выхода из приложения:

Private Sub mnuExitYes_Click()

End

End Sub




- Начало -  - Назад -  - Вперед -