Наследование форм
Создание класса
•объект состоит из данных и методов, которые он использует для работы с ними
•Внедрение (инкапсуляция) представляет собой процесс интеграции программной оболочки и данных в единое целое — объект.
•Для создания объекта из класса, класс должен иметь интерфейс (свойства, методы, события)
Объявление
переменных класса
• Private Name1 As String
• Private Name2 As String
Для создания свойств класса: Public Property FirstName() As String
пример:
Создание свойств
Public Property FirstName() As String
Get
Return Name1
End Get
Set(ByVal Value As String)
Name1 = Value
End Set
End Property
Создание свойств
•Блок Get описывает свойства переменной
•Блок Set определяет ее значение
•Для запуска программы используется функция Age()
Public Function Age(ByVal Birthday As Date) As Int
Return Int(Now.Subtract(Birthday).Days / 365.25)
End Function
Пример
Пример
Pablic Class Person Private Name1 As String Private Name2 As String
Public Property FirstName() As String Get
Return Name1 End Get
Set(ByVal Value As String) Name1 = Value
End Set
End Property
Пример
Public Property LastName() As String Get
Return Name2 End Get
Set(ByVal Value As String) Name2 = Value
End Set
End Property
Public Function Age(ByVal Birthday As Date) As Integer Return Int(Now.Subtract(Birthday).Days / 365.25)
End Function
Пример
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) & "лет.")
