Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.05.2015, 10:18   #1
LM23
 
Регистрация: 11.03.2015
Сообщений: 6
По умолчанию Наследование, где у меня ошибка ?

Код:
Public MustInherit Class person
    Protected c_sFirstName As String
    Protected c_sLastName As String
    MustOverride ReadOnly Property ClassName() As String
Get
ClassName = "Person"
End Get
End Property
    NotOverridable ReadOnly Property BaseClassName() As String
        Get
            BaseClassName = "Person"
End Get .
    End Property
Overidable Public Property FirstName() as String
Get
FirstName = c_sFirstName
End Get
Set(ByVal Value as string)
c_sFirstName = Value
End Set
End Property
    Public Overridable Property LastName() As String
        Get
            LastName = c_sLastName
        End Get
        Set(ByVal Value As String)
            c_sLastName = Value
        End Set
    End Property
    Overridable Sub Speak()
Console.WriteLine("I am " & c_sFirstName & " " S c_sLastName)
        Console.WriteLine(" and I am a Person.")
    End Sub
End Class
2 класс
Код:
Public Class NewPerson
Inherits Person
MustOverride Overrides Public Readonly Property ClassName()as String
Get
ClassName = "NewPerson"
End Get
End Property
Overrides Sub Speak()
Console.WriteLine("My name is " S c_sFirstName S " " &
c_sLastName)
Console.WriteLine(" and I am a new person.")
End Sub
End Public

Последний раз редактировалось Аватар; 24.05.2015 в 11:25.
LM23 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ребят, укажите, где у меня ошибка. С++ NYork Помощь студентам 4 16.12.2014 14:48
MathCad где у меня ошибка аннна22 Помощь студентам 1 07.04.2014 07:21
Fortran где у меня ошибка???? Bezo Помощь студентам 3 18.06.2010 00:06
Подскажите,где у меня здесь ошибка!!НА СИ osichev Помощь студентам 11 07.06.2009 20:17
Подскажите где у меня ошибка(Паскаль) NTFS Помощь студентам 3 02.04.2008 19:28