Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь КАТЕГОРИИ: АрхеологияБиология Генетика География Информатика История Логика Маркетинг Математика Менеджмент Механика Педагогика Религия Социология Технологии Физика Философия Финансы Химия Экология ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Использование ключевого слова Inherits
1. Щелкните в Обозревателе решений на классе Person.vb, а затем щелкните на кнопке View Code (Просмотреть код). 2. Прокрутите Редактор кода вниз так, что текстовый курсор окажется стоящим после оператора End Class. (В модуль класса может быть включено более одного класса, при условии, что каждый класс отделен от остальных операторами Public Class и End Class). 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 Class4. Отобразите процедуру события 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
Приложение 1
|
|||||||||||||||||||||||||
Последнее изменение этой страницы: 2017-02-07; просмотров: 96; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 44.223.36.100 (0.006 с.) |