Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования стр.52
Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования стр.52 Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программированияТрусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования

помощью мыши можно нарисовать на форме любую

геометрическую фигуру В этом случае используются

Х^-И параметры, заданные в коде или определенные положением курсора. Процесс рисования зависит от выбранной процедуры обработки событий. Вспомним, как создается процедура обработки события. Откроем окно кодов. В текстовом поле Class Name выберем строку (Forml Events), а в текстовом поле Method Name - строку с нужным методом. В результате будет создана пустая заготовка процедуры обработки событий. А теперь рассмотрим методы, управляющие действиями мыши.

Создав процедуру обработки события DoubleClick (Двойной щелчок), можно вписать в нее нужный код, который будет выполнен при любом двойном щелчке. Чтобы задача выполнялась при щелчке только левой или правой кнопки, необходимо указать в коде именно ее. А теперь напишем код, который отобразит геометрическую фигуру Rectangle:

Private Sub Forml_DoubleClick(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles _ MyBase.DoubleClick

Dim graf As Graphics = MyClass.CreateGraphics()

8.1. DoubleClick

ГЛАВА 8 ▼ Рисуем с помощью мыши

Dim rect As Rectangle = New Rectangle(50, 50, 100, 100) graf.FillRectangle((Brushes.Brown), rect) End Sub

Такого рода применение мыши для рисования нецелесообразно, так как в этом случае с успехом можно задействовать любой элемент управления, если он может использовать метод Click. Дело в том, что любое движение мыши изменяет положение указателя на форме. А поскольку указатель мыши, как и любой другой объект, имеет свои координаты (х, у), с его помощью всегда можно задать параметры геометрической фигуры, которые будут находиться в прямой зависимости от положения указателя мыши.

Рассмотрим пример, в котором координаты элемента управления Label приравняем координатам указателя мыши, в результате чего эта надпись будет постоянно перемещаться вместе с указателем. Для этого используем метод MouseMove.

8.2. MouseMove

При использовании метода MouseMove (Движение мыши) любое действие программы связано с движением мыши. Если движется мышь, перемещается и курсор (указатель мыши) на форме. При его движении возникает событие MouseMove. Составим небольшую программу для этого события. Координаты указателя мыши зададим с помощью параметра е и приравняем их к координатам надписи Label. Привязка координат объекта, находящегося на форме, к координатам курсора, обеспечит их совместное перемещение. Выглядит эта программа примерно так:


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta