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

Public Class Classl Private x As Integer Private у As Single

Property xl() As Integer Get

xl = X End Get

Set(ByVal Value As Integer)

x = Value

End Set

End Property

Property yl() As Single

Get

yl = у End Get

Set(ByVal Value As Single)

у = Value

End Set

End Property

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

ГЛАВА 14 Т Создание графики методами ООП

Sub rect()

If х < 300 Then x = x + 6 : у = 200 + Math.Sin(x) * 100 If x >= 300 Then x = x + 1 : у = у + 1 End Sub End Class

Таким образом, файл класса будет содержать только часть программы, которая выполняет работу по перемещению объекта. Сам же объект создадим в файле формы, куда также внесем сопутствующие коды. Обратите внимание на использование здесь статических переменных, значения которых определяют координаты прямоугольника.

Private Sub Forml_Paint(ByVal sender As Object, ByVal e _

As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

Dim ret As New Classl

Static a As Integer

Static b As Integer

rct.xl = a

rct.yl = b

ret.rect()

a = rct.xl

b = rct.yl

e.Graphics.DrawRectangle(New Pen(Color.Red, 3), a, b, 100, 100) End Sub

Private Sub Timerl_Tick(ByVal sender As System.Object, ByVal _ e As System.EventArgs) Handles Timerl.Tick Me.RefreshO End Sub

А теперь рассмотрим еще один пример, в котором построим более сложную геометрическую фигуру в виде массива кривых Безье и придадим этой фигуре вращательное движение. Затем создадим еще одну форму, которая унаследует коды первой. Этот файл используем для построения многоугольника, который будет также запрограммирован на вращение вместе с массивом кривых Безье, так как вновь созданный класс С lass 2 унаследует коды класса Classl. Отличительная особенность этого примера состоит в том, что оба класса будут размещены в одном файле.

Здесь уже не раз указывалось, что Visual Basic .NET, в отличие от шестой версии Бейсика, допускает размещение нескольких классов в одном файле. И это очень удобно, так как

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

Перемещение объектов

в этом случае легко составить цепочку наследуемых классов, что, в свою очередь, облегчает редактирование кодов и работу над ошибками.


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