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

"Способ второй

Dim rct2 As Rectangle

rct2 = New Rectangle(110, 110, 200, 200)

После того как будет поставлена скобка, появится всплывающая подсказка с необходимыми параметрами. В данном случае это горизонтальная координата левой верхней вершины прямоугольника, ее вертикальная координата, высота объекта и его ширина. Обратите внимание, что этот конструктор - не единственный. В той же подсказке указан еще один конструктор, в котором такие же параметры задаются другим способами. Итак, сначала создается конструктор с параметрами - координатами левой верхней вершины прямоугольника, затем конструктор, определяющий его высоту и ширину:

"координаты точки

Dim pt As Point

pt = New Point(100, 100)

"высота и ширина

Dim sz As New Size(150, 150)

"прямоугольник

Dim rct2 As Rectangle

rct2 = New Rectangle(pt, sz)

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

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

Конструкторы и методы

как уже указывалось, конструктор значений не возвращает. Для этого используется метод, создающий нужный объект. В данном случае - метод Draw Rectangle. Метод отличается от конструктора тем, что возвращает заданное значение - рисует указанную фигуру. При определении параметров метода также есть возможность воспользоваться подсказкой. Обязательным параметром всех методов является так называемое перо (Реп). Этот параметр определяет толщину и цвет линий, из которых состоит нарисованный объект. При сплошной окраске геометрической фигуры вместо пера используется кисть (Brush). В приведенном ниже коде параметрами метода Draw Rectangle являются перо, вертикальная и горизонтальная координаты, высота и ширина прямоугольника.

Private Sub Forml__Paint(ByVal sender As Object, ByVal e _ As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint e.Graphics.DrawRectangle(New Pen(Color.Black, 3), 110, 110, 200, 200) End Sub

А вот как выглядит этот же код с использованием переменных, представляющих описанные выше конструкторы:


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