Наследование форм и создание базовых классов

В процедуре события Button3_Click введите следующий оператор программы:

MsgBox("Это подчиненная форма!")

Щелкните на кнопке Start (Начать). Откроется производная форма, показанная ниже.

Щелкните на кнопке OK. Производная форма выполнит процедуру события наследуемой формы Form1, и она выведет следующее сообщение.

Установите для объектов формы следующие свойства:

Ваша форма должна выглядеть примерно так.

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

Щелкните на команде Add Class (Добавить класс) в меню Project (Проект). Visual Studio откроет диалоговое окно Add New Item (Добавление нового элемента), показанное ниже.

Диалоговое окно Add New Item (Добавление нового элемента) дает возможность задать имя вашего класса. Когда вы присвоите имя, обратите внимание, что вы можете сохранить в новом модуле класса несколько классов и указать имя, которое будет для них общим.

Введите в текстовом поле Name (Имя) имя Person.vb, а затем щелкните на Open (Открыть). Visual Studio откроет в Редакторе кода пустой модуль класса и добавит имя файла Person.vb в ваш проект в Обозревателе решений, как показано ниже.

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

Под оператором программы Public Class Person введите следующие объявления переменных:

Private Name1 As String
Private Name2 As String

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

Под объявлением переменных введите следующий оператор программы и нажмите клавишу (Enter):

Public Property FirstName() As String

Этот оператор создает свойство вашего класса с именем FirstName, которое имеет тип String. Когда вы нажмете (Enter), Visual Studio немедленно создаст структуру кода для остальных элементов объявления свойства. Требуемыми элементами являются: блок Get, который определяет, что программисты увидят, когда будут проверять свойство FirstName, блок Set, который определяет, что произойдет, когда свойство FirstName будет установлено или изменено, и оператор End Property, который отмечает конец процедуры свойства.

Заполните структуру процедуры свойства так, чтобы она выглядела, как показано ниже. (Вводимые вами элементы не выделены жирным шрифтом.)

Public Property FirstName() As String
	Get
		Return Name1
	End Get
	Set(ByVal Value As String)
		Name1 = Value
	End Set
End Property

Ключевое слово Return указывает, что при обращении к свойству FirstName будет возвращена строковая переменная Name1. При установке значения свойства блок Set присваивает переменной Name1 строковое значение. Обратите особое внимание на переменную Value, используемую в процедурах свойств для обозначения значения, которое присваивается свойству класса при его установке. Хотя этот синтаксис может выглядеть странно, просто поверьте мне - именно так создаются свойства в элементах управления, хотя более сложные свойства будут иметь здесь дополнительную программную логику, которая будет проверять значения и производить вычисления.

Под оператором End Property введите для свойства LastName вашего класса вторую процедуру свойства. Она должна выглядеть так, как показано ниже. (Жирным шрифтом выделены строки, которые нужно ввести.)

Public Property LastName() As String
	Get
		Return Name2
	End Get
		Set(ByVal Value As String)
		Name2 = Value
	End Set
End Property

Эта процедура свойства аналогична первой, за исключением того, что она использует вторую строковую переменную ( Name2 ), которую вы объявили в верхней части кода класса. Вы закончили определять два свойства вашего класса. Теперь перейдем к методу с именем Age, который будет определять текущий возраст нового сотрудника на основе даты рождения.

Под процедурой свойства LastName введите следующее определение функции:

Public Function Age(ByVal Birthday As Date) As Integer
	Return Int(Now.Subtract(Birthday).Days / 365.25)
End Function

Чтобы создать метод класса, который выполняет некое действие, добавьте в ваш класс процедуру Sub. Хотя многие методы не требуют для выполнения своей работы аргументов, метод Age, определенный мной, требует для своих вычислений аргумент Birthday типа Date. Это метод использует для вычитания даты рождения нового сотрудника из текущей системной даты метод Subtract, и возвращает значение, выраженное в днях, деленных на 365.25 - примерную длину одного года в днях. Функция Int преобразует это значение в целое, и это число с помощью оператора Return возвращается в вызывающую процедуру - как и в случае с обычной функцией. (За дополнительной информацией об определении функций обратитесь к лекции 10 .)

Определение класса закончено! Вернитесь к форме Form1 и используйте новый класс в процедуре события.

Введите следующие операторы программы:

Dim Employee As New Person
Dim DOB As Date

Employee.FirstName = TextBox1.Text
Employee.LastName = TextBox2.Text
DOB = DateTimePicker1.Value.Date

MsgBox(Employee.FirstName  "" Employee.LastName _
 "в возрасте "  Employee.Age(DOB)  "лет.")

Эта процедура сохраняет в объекте с именем Employee, который имеет тип Person, значения, введенные пользователем. Ключевое слово New указывает, что вы хотите немедленно создать новый экземпляр объекта Employee. Теперь нужно объявить переменную с помощью класса, созданного вами самими! Затем процедура объявляет переменную с именем DOB типа Date. Она будет хранить дату, введенную пользователем, и устанавливает свойства FirstName и LastName объекта Employee равными имени и фамилии, введенным в два объекта текстовых полей формы. Значение, возвращаемое объектом выбора даты и времени, сохраняется в переменной DOB, а последний оператор программы отображает окно сообщения, содержащее свойства FirstName и LastName, а также возраст нового сотрудника, определенный методом Age, который при передаче в него переменной DOB возвращает целое значение. Как только вы определили класс в модуле класса, его легко можно использовать в процедуре события.

Чтобы запустить программу, щелкните на кнопке Start (Начать).

В среде разработки появится интерфейс пользователя, готовый к приему ваших данных.

Щелкните на раскрывающемся списке объекта выбора даты и времени, и прокрутите его до вашей даты рождения.

Ваша форма будет выглядеть примерно так.

Щелкните на кнопке Отобразить запись. Ваша программа сохраняет значения имени и фамилии в свойствах и использует метод Age для вычисления текущего возраста нового сотрудника. Появится диалоговое окно с результатом.

Введите в Редактор кода следующее определение класса. (Введите операторы, выделенные ниже жирным шрифтом - Visual Studio автоматически добавит остальные операторы.)

Public Class Teacher
	Inherits Person
	Private Level As Short

	Public Property Grade() As Short
		Get
			Return Level
		End Get
		Set(ByVal Value As Short)
			Level = Value
		End Set
	End Property
End Class

Оператор Inherits связывает класс Person с этим новым классом, встраивая в него все свои переменные, свойства и методы. Если бы класс Person находился в отдельном модуле или проекте, вы могли бы указать его расположение задав пространство имен, точно так же, как вы указываете классы библиотеки .NET Framework с помощью оператора Imports. По существу я определил класс Teacher как специальный тип класса Person - в дополнение к свойствам FirstName и LastName класс Teacher имеет свойство Grade, которое хранит уровень студента, обучаемого учителем. Теперь вы будете использовать этот новый класс в процедуре события Button1_Click.

Отобразите процедуру события Button1_Click формы Form1. Вместо создания новой переменной для хранения класса Teacher, я просто использую имеющуюся переменную Employee - единственное различие будет в том, что теперь я могу установить свойство Grade нового сотрудника.

Измените процедуру события Button1_Click в соответствии со следующим кодом. (Вводимые вами строки выделены жирным шрифтом.)

Dim Employee As New Teacher
Dim DOB As Date

Employee.FirstName = TextBox1.Text
Employee.LastName = TextBox2.Text
DOB = DateTimePicker1.Value.Date
Employee.Grade = InputBox("На каком уровне вы обучаете?")

MsgBox(Employee.FirstName  "" Employee.LastName _
 "обучает на уровне " Employee.Grade)

В этом примере я удалил вычисление текущего возраста - метод Age не используется, но я сделал это только для того, чтобы сократить до минимума информацию, выводимую в окне сообщения. Когда вы определяете свойства и методы класса, вам не требуется использовать их в коде программы.

Чтобы запустить программу, щелкните на кнопке Start (Начать).

На экране появится форма для ввода данных о новом сотруднике.

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

Введите 3, а затем щелкните на OK, чтобы закрыть окно ввода. Приложение сохраняет число 3 в новом свойстве Grade и использует свойства FirstName, LastName и Grade для отображения информации о новом сотруднике в подтверждающем окне сообщения. Вы увидите такое сообщение.