- •Программирование на языке visual basic 2005
- •Лабораторная работа № 1. Изучение интегрированной среды разработки Visual Studio 2005
- •Основные сведения об интегрированной среде разработки
- •1.6. Вид формы с калькулятором
- •Лабораторная работа №2 Отладка программ и обработка ошибок в Visual Basic 2005 Цель лабораторной работы:
- •Основные сведения о средствах отладки и обработки ошибок
- •Средства обнаружения и предупреждения возникновения синтаксических ошибок
- •Обработка ошибок времени выполнения
- •Средства обнаружения логических ошибок
- •Выполнение лабораторной работы
- •Лабораторная работа №3 Создание и обработка файлов Цель лабораторной работы:
- •Выполнение лабораторной работы
- •Лабораторная работа № 4. Разработка и отладка приложения по индивидуальному заданию
- •Лабораторная работа 5
- •5.1. Наследование формы
- •5.2. Настройка производной формы
- •5.3. Создание собственных базовых классов
- •5.3.1. Добавление в проект нового класса
- •Создание проекта Person Class
- •Объявление переменных класса
- •Создание свойств
- •Создание метода
- •Создание объекта с помощью нового класса
- •5.4. Наследование базового класса
- •Использование ключевого слова Inherits
- •Краткая справка по лабораторной работе 5
- •Приложение 1
- •Приложение 2
- •Приложение 3
- •Библиографический список
5.4. Наследование базового класса
В следующем упражнении изменить проект My Person Class, добавив в модуль класса Person второй класс, определенный пользователем. Этот новый класс с именем Teacher будет наследовать от класса Person свойство FirstName, свойство LastName и метод Age, и будет добавлять свойство с именем Grade, в которое будет записываться уровень, на котором обучает новый учитель.
Использование ключевого слова Inherits
-
Щелкните в Обозревателе решений на классе Person.vb, а затем щелкните на кнопке View Code (Просмотреть код).
-
Прокрутите Редактор кода вниз так, что текстовый курсор окажется стоящим после оператора End Class. (В модуль класса может быть включено более одного класса, при условии, что каждый класс отделен от остальных операторами Public Class и End Class). Создайте в этом модуле класса новый класс с именем Teacher, а для встраивания в него методов и свойств, определенных в классе Person используйте ключевое слово Inherits.
-
Введите в Редактор кода следующее определение класса.
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
-
Отобразите процедуру события 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 для отображения информации о новом сотруднике в подтверждающем окне сообщения.
-
Поэкспериментируйте еще с несколькими значениями, а затем щелкните на кнопке Закрыть формы. Программа остановится, и вернется среда разработки.