ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с наследованием
9 сообщений из 9, страница 1 из 1
Проблема с наследованием
    #39763555
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eolt
Участник
Что-то я туплю. После шарпов забыл вб. :(
Есть базовый класс:

BaseClass.cls
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Option Explicit
Private mvarTxt As String

Public Property Let Txt(ByVal vData As String)
 mvarTxt = vData
End Property

Public Property Get Txt() As String
 Txt = mvarTxt
End Property



И два наследника:

AnsiText.cls

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
Option Explicit

Implements BaseClass

Private mvarTxt As String
Private mvarAnsiText As Variant
Private mBase As BaseClass

Public Property Let AnsiText(ByVal vData As String)
    mvarAnsiText = vData
End Property

Public Property Get AnsiText() As String
    AnsiText = mvarAnsiText
End Property

Public Property Let BaseClass_Txt(ByVal vData As String)
    mBase.Txt = vData
End Property

Public Property Get BaseClass_Txt() As String
    BaseClass_Txt = mBase.Txt
End Property
Private Sub Class_Initialize()
    Set mBase = New BaseClass
End Sub



UnicodeText.cls

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
Option Explicit

Implements BaseClass

Private mvarTxt As String
Private mvarUnicodeText As Variant
Private mBase As BaseClass

Public Property Let UnicodeText(ByVal vData As String)
    mvarUnicodeText = vData
End Property
Public Property Get UnicodeText() As String
    UnicodeText = mvarUnicodeText
End Property

Public Property Let BaseClass_Txt(ByVal vData As String)
    mBase.Txt = vData
End Property

Public Property Get BaseClass_Txt() As String
    BaseClass_Txt = mBase.Txt
End Property

Private Sub Class_Initialize()
    Set mBase = New BaseClass
End Sub



Я хочу задать им свойства в зависимости от типа класса:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Private Sub Form_Load()
    Dim col As  New Collection
        col.Add New AnsiText
        col.Add New UnicodeText

    Dim obj As BaseClass
    For Each obj In col
       Select Case TypeName(obj)
     
        Case "AnsiText"
           obj.AnsiText = "ANSI"
        
         Case "UnicodeText"
            obj.UnicodeText = "UNICODE"
      End Select
           obj.Txt = "Text"
    Next

End Sub



Но оно вообще не компилируется. Ругается на строке obj.AnsiText = "ANSI" --> Method or data member not found!
Как тут сделать правильно?
...
Рейтинг: 0 / 0
23.01.2019, 15:08
| Ответить | Цитировать | Написать  
Проблема с наследованием
    #39763562
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: vbnet
1.
Dim obj As BaseClass
...
Рейтинг: 0 / 0
23.01.2019, 15:13
| Ответить | Цитировать | Написать  
Проблема с наследованием
    #39763569
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
... as Object
...
Рейтинг: 0 / 0
23.01.2019, 15:16
| Ответить | Цитировать | Написать  
Проблема с наследованием
    #39763570
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eolt
Участник
А какой тип должен быть у obj ? Если Object то не очень удобно, нет выпадающих списков в редакторе
...
Рейтинг: 0 / 0
23.01.2019, 15:17
| Ответить | Цитировать | Написать  
Проблема с наследованием
    #39763571
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
сам же значешь , что только через tlb и интерфейс
...
Рейтинг: 0 / 0
23.01.2019, 15:17
| Ответить | Цитировать | Написать  
Проблема с наследованием
    #39763572
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
*знаешь
...
Рейтинг: 0 / 0
23.01.2019, 15:17
| Ответить | Цитировать | Написать  
Проблема с наследованием
    #39763645
ЦЦа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЦЦа
Гость
Eolt,

странная реализация наследования реализации :) Как технический момент - зачем члены, которые должны быть реализованы в рамках implements, означены как public?

Для удобства же использования ещё обычно делают тривиальные функции, кастующие к нужному типу:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Option Explicit

Public Function AsBaseClass(ByVal Obj As Object) As BaseClass
 Set AsBaseClass = Obj
End Function

Public Function AsAnsiText(ByVal Obj As Object) As AnsiText
 Set AsAnsiText = Obj
End Function

Public Function AsUnicodeText(ByVal Obj As Object) As UnicodeText
 Set AsUnicodeText = Obj
End Function



То есть в месте использования будет:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
    Dim col As New Collection
    col.Add New AnsiText
    col.Add New UnicodeText

    Dim Obj As BaseClass
    For Each Obj In col
       Select Case TypeName(Obj)
     
        Case "AnsiText"
           AsAnsiText(Obj).AnsiText = "ANSI"
        
         Case "UnicodeText"
            AsUnicodeText(Obj).UnicodeText = "UNICODE"
       End Select
       Obj.Txt = "Text"
    Next

Ну и, вместо TypeName использовать TypeOf ... Is.
...
Рейтинг: 0 / 0
23.01.2019, 16:21
| Ответить | Цитировать | Написать  
Проблема с наследованием
    #39764813
ATM-TURBO 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ATM-TURBO 2
Гость
Интерфейс IBaseClass:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Option Explicit

Public Property Let Txt(ByVal vData As String)
End Property

Public Property Get Txt() As String
End Property


CAnsiText:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Option Explicit

Implements IBaseClass

Private msTxt As String

Private Property Get IBaseClass_Txt() As String
    IBaseClass_Txt = msTxt
End Property

Private Property Let IBaseClass_Txt(ByVal RHS As String)
    msTxt = RHS
End Property


CUnicodeText:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Option Explicit

Implements IBaseClass

Private msTxt As String

Private Property Get IBaseClass_Txt() As String
    IBaseClass_Txt = msTxt
End Property

Private Property Let IBaseClass_Txt(ByVal RHS As String)
    msTxt = RHS
End Property


Использование:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Private Sub Form_Load()
    Dim cCol    As Collection
    Dim cObj    As IBaseClass
    
    Set cCol = New Collection
    
    cCol.Add New CAnsiText
    cCol.Add New CUnicodeText
    cCol.Add New CUnicodeText
    cCol.Add New CAnsiText
    
    For Each cObj In cCol
        
        If TypeOf cObj Is CUnicodeText Then
            cObj.Txt = "Unicode"
        ElseIf TypeOf cObj Is CAnsiText Then
            cObj.Txt = "Ansi"
        End If
        
    Next
    
End Sub
...
Рейтинг: 0 / 0
25.01.2019, 11:13
| Ответить | Цитировать | Написать  
Проблема с наследованием
    #39764907
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eolt
Участник
ATM-TURBO 2,

ага спасибо, я так уже и сделал )
...
Рейтинг: 0 / 0
25.01.2019, 13:04
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с наследованием
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39764907&tid=2154953]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 52ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 270ms
total:  410ms
созд. / загр.: 410ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]