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

Private Sub Forml_MouseMove(ByVal sender As Object, _ ByVal e As Systern.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove Labell.Left = e.X Labell.Top = e.Y End Sub

Запустите эту программу и убедитесь, что положение надписи Label на форме напрямую зависит от положения указателя мыши. Если движется указатель, вместе с ним движется

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

MouseDown

объект. Ниже будет рассмотрен пример, в котором в качестве объекта используется не элемент управления, а нарисованный четырехугольник.

8.3. MouseDown

Событие MouseDown (Кнопка нажата) происходит при щелчке любой кнопки мыши. Но можно использовать и одну из них - левую или правую. В приведенном ниже коде использованы две процедуры обработки событий: Form_MouseDown и Form_DoubleClick. После двойного щелчка формы отображается четырехугольник, верхний левый угол которого находится в месте расположения курсора. Причем в момент первого щелчка происходит событие MouseDown. В результате этого координаты четырехугольника х и у приравниваются координатам курсора е. X и е. Y и остаются без изменения. Обратите внимание: поскольку одни и те же переменные задействованы в разных процедурах, они должны быть видимы в пределах модуля.

Dim k As Boolean Dim х As Integer Dim у As Integer

Private Sub Form3_MouseDown(ByVal sender As Object, ByVal e _ As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown If e.Button = MouseButtons.Left Then к = True x = e.X у = e.Y End If End Sub

Private Sub Form3_DoubleClick(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles MyBase.Doubleclick Dim graf As Graphics = MyClass.CreateGraphics If к = True Then

graf.FillRectangle((Brushes.Blue), x, y, 100, 100) End If End Sub

Рассмотрим другие способы рисования с помощью мыши. Приведенный ниже код отображает на форме отрезок прямой

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

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

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


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