Использование ключевого слова Inherits 


Мы поможем в написании ваших работ!



ЗНАЕТЕ ЛИ ВЫ?

Использование ключевого слова Inherits



1. Щелкните в Обозревателе решений на классе Person.vb, а затем щелкните на кнопке View Code (Просмотреть код).

2. Прокрутите Редактор кода вниз так, что текстовый курсор окажется стоящим после оператора End Class. (В модуль класса может быть включено более одного класса, при условии, что каждый класс отделен от остальных операторами Public Class и End Class).
Создайте в этом модуле класса новый класс с именем Teacher, а для встраивания в него методов и свойств, определенных в классе Person используйте ключевое слово Inherits.

3. Введите в Редактор кода следующее определение класса.

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 PropertyEnd Class

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

5. Измените процедуру события Button1_Click в соответствии со следующим кодом. (

Dim Employee As New TeacherDim DOB As Date Employee.FirstName = TextBox1.TextEmployee.LastName = TextBox2.TextDOB = DateTimePicker1.Value.DateEmployee.Grade = InputBox("На каком уровне вы обучаете?") MsgBox(Employee.FirstName & ""& Employee.LastName _& "обучает на уровне "& Employee.Grade)

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

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

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

7. Введите в текстовое поле Имя ваше имя, а в текстовое поле Фамилия - фамилию.

8. Щелкните на объекте выбора даты и прокрутите его до вашего дня рождения.

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

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

11. Поэкспериментируйте еще с несколькими значениями, а затем щелкните на кнопке Закрыть формы. Программа остановится, и вернется среда разработки.

Краткая справка по лабораторной работе 5

Чтобы Сделайте следующее
Наследовать интерфейс и функциональность существующей формы Щелкните на команде Add Inherited Form (Добавить производную форму) в меню Project (Проект), укажите имя производной формы, а затем щелкните на Open (Открыть). Для выбора наследуемой формы используйте Inheritance Picker (Выбор наследования), а затем щелкните на OK. Чтобы наследование было возможно, базовая форма должна быть скомпилирована в.exe- или.dll-файл. Если вы хотите наследовать от формы, которая не является компонентой текущего проекта, форма должна быть скомпилирована в.dll-файл.
Настроить производную форму Добавьте в форму элементы управления Области элементов и установите свойства. Заметьте, что вы не можете установить свойства наследуемых объектов формы. Эти объекты могут быть обнаружены по маленьким значкам и будут неактивными.
Создать собственные базовые классы Щелкните на команде Add Class (Добавить класс) в меню Project (Проект), укажите имя класса, а затем щелкните на Open (Открыть). С помощью кода программы определите класс в модуле класса.
Объявить переменные класса Используйте ключевое слово Private, чтобы сделать ваши переменные скрытыми при изучении класса. Например: Private Name1 As String
Создать в классе новое свойство Определите в классе открытую процедуру свойства. Например: Public Property FirstName() As String Get Return Name1 End Get Set(ByVal Value As String) Name1 = Value End SetEnd Property
Создать в классе новый метод Определите в классе процедуру Sub или Function. Например: Public Function Age(ByVal Birthday As Date) _ As Integer Return Int(Now.Subtract(Birthday).Days _ / 365.25) End Function  
Объявить переменную объекта для использования в классе Используйте в операторе программы ключевые слова Dim и New, имя переменной и класс, определенный пользователем. Например: Dim Employee As New Person
Установить свойства для переменной объекта Используйте обычный синтаксис для установки свойств объекта. Например: Employee.FirstName = TextBox1.Text
Наследовать базовый класс в новом классе Создайте новый класс и используйте ключевое слово 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  

 


Приложение 1



Поделиться:


Последнее изменение этой страницы: 2017-02-07; просмотров: 96; Нарушение авторского права страницы; Мы поможем в написании вашей работы!

infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 44.223.36.100 (0.006 с.)