Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.108
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.108

Public Class свойства

Private hg As Integer "высота Label

Private col As Color "цвет фона

Private txt As String "текст

Private If As Integer "расположение End Class

Теперь следует определиться с методами и свойствами. Напишем следующую строку: Property hght () As Integer. Ею с помощью специальной процедуры Property объявляется свойство, содержащее данные типа Integer. Переменная послужит для передачи данных, определяющих высоту надписи. Почему именно эта переменная, выясним позже. А пока нажмем клавишу Enter. Курсор переведется на другую строку, при этом автоматически создадутся следующие коды:

Property hght() As Integer Get

End Get

Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

Создание файла класса

Set(ByVal Value As Integer) End Set End Property

Как видно, процедура Property состоит из двух частей. Блок Get...End Get описывает свойства переменной hght, а блок S et...End Set определяет ее значение. Попробуем разобраться в назначении этой переменной, ведь у нас уже есть переменная hg, определяющая высоту Label. Дело в том, что мы объявили переменную hg как локальную, то есть изолировали ее от остальной части программы. Но поскольку нам придется передавать ее значение в процедуру Button_Click, то его присвоит переменная hght, которая и будет использована в процедуре Button Click. В данном случае в качестве значения одной переменной используется другая.

Оператор присваивания работает следующим образом: значение выражения, находящегося в правой части, передается выражению, находящемуся в левой. Поэтому в блок Get...End Get впишем код hght = hg, а в блок Set...End Set - код hg = Value. Затем таким же образом создадим коды для остальных переменных. Теперь осталось добавить инструкции, определяющие выполнение программой поставленной задачи. Для запуска программы используется процедура Sub Move ( ). В окончательном варианте коды файла класса выглядят примерно так:

Public Class свойства

Private hg As Integer "высота Label Private col As Color "цвет фона Private txt As String "текст Private If As Integer "расположение Property hght() As Integer Get


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