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

Вот как выглядит код, созданный в файле класса:

Public Class name "или Classl

Public Sub rect(ByVal e As System.Windows.Forms.PaintEventArgs) e.Graphics.DrawRectangle(New Pen(Color.Red, 3), 50, 50, _ 100, 100) End Sub

А это сопутствующий ему код, составленный в файле модуля формы:

Private Sub Forml_Paint(ByVal sender As Object, ByVal e _ As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint Dim с las As New name clas.rect(e) End Sub

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

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

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

преобразований: изменения размеров и вида, перемещения, вращения и т.п. Как все это сделать, мы узнаем позже, а пока разберем примеры с использованием переменных в подобных кодах.

14.2. Ввод данных

Переменные в файле класса лучше объявлять в начале модуля этого класса, используя ключевое слово Private. Это даст возможность задействовать имеющиеся переменные во всех кодах данной подпрограммы, а самое главное - сделает удобным редактирование кодов и облегчит поиск ошибок, так как разработчик без труда определит, какие именно переменные используются в этом классе. Помня тот факт, что Visual Basic .NET допускает расположение нескольких объектов в одном файле класса, переменную можно сделать и глобальной, хотя это может создать определенные трудности при поиске ошибок. Такую переменную будет видеть вся программа.

А теперь рассмотрим конкретный пример. Объявим переменные типа Integer в файле, класса, имеющие своими значениями координаты прямоугольника и его размеры. Код файла класса:

Public Class name "или Classl

Private x, y, h, w As Integer

Sub val() x = 50 y = 50 h = 200 w = 100 End Sub

Public Sub rect(ByVal e As System.Windows.Forms.PaintEventArgs) e.Graphics.DrawRectangle(New Pen(Color.Red, 3), x, y, h, w) End Sub


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