Запрещение повторного объявления класса.

[Vovik]

Можно ли как-нть отследить сколько раз объявляется переменная с типом моего класса? Мне б как-нть запретить это дело.
О... ещё вопр... а можно переменные объявлять с начальными значениями, как в С++? Например Public b As New DX = NULL?

[GSerg]

Нет (а зачем?) и нет (все в ноль).

[sanches]

нассчет первого: можно прибегнуть к смешному методу: при инициализации класс проверяет некое значение в реестре (или в файле). Если значения нет, то это первый экземпляр и мы создаем такое значение, если есть, то экземпляр уже есть. А при выходе затираем значение.

[Fedorfx]

не такой уж он и смешной.
я использую этот метод для получения уникльного имени классовой копии.( чтоб их различать, сортировать и удалять)
Вопрос, а можно но ли получить какое нибудь уникальное значение классовой копии??? ( типа hwnd? hdc) понятно что класс не имеет окна, но все же....

[Vovik]

Нет (а зачем?) и нет (все в ноль).

Как зачем?
При объявлении DirectX он может быть не пуст, а мне хотелось сразу при объявлении его обнулять...

[codemaster]

Можно ли как-нть отследить сколько раз объявляется переменная с типом моего класса? Мне б как-нть запретить это дело. :

Ключевое слово: Static

О... ещё вопр... а можно переменные объявлять с начальными значениями, как в С++? Например Public b As New DX = NULL?

В VB6 ты не можешь преопределить конструктор класса
Как выход пользовать фабрику классов

[sanches]

а фабрика классов - это, извиняюсь, что ?

[Fde]

Функция выполняющая создание класса и его первичную реализацию, но не пренадлежащая ему. Т.е.

Код: Выделить всё

oNew = ClassFactory(constMyObject)

Более того, в ряде сложных случаев может потребоваться введение объекта-абстрактной фабрики для нормального анализа всех внешних параметров, влияющих на создание объекта.

P.S.: Забыл добавить, что для большей понятности связей часто удобно использовать иерархии классов, построенных на принципе реализации базового(ых) интерфейса(ов).

[sanches]

так это ты про .НЕТ?

[codemaster]

так это ты про .НЕТ?

Это про Vb6 . Особенно если проект большой и будет экспертиза проекта.

[Fedorfx]

а можно пример где ЭТО используется??

Код: Выделить всё

oNew = ClassFactory(constMyObject)


[Fde]

Данный пример абстрактный. Вот реальный код:

Код: Выделить всё

Private Function IIntegrationBuilder_GetIntegrationRules() As classIntegrationRule
    Set oRule = New classIntegrationRule
   
    oRule.Groups.Add 0, "Договор"
    oRule.Groups.Add 0, "Приложение"
   
    oRule.InSignalsGroups.Add "Договор", "2"
    oRule.InSignalsGroups.Add "Договор", "14"
    oRule.InSignalsGroups.Add "Приложение", "4"
    oRule.InSignalsGroups.Add "Приложение", "5"
   
    Set IIntegrationBuilder_GetIntegrationRules = oRule
End Function


Это начинка конкретного bilder'а

А вот его использование:

Код: Выделить всё

Set oRule = oBuilder.GetIntegrationRules


Использован принцип взаимозаменяемой абстрактной фабрики. Могу кинуть еще примеров, если надо.
Кстати, а какого рода примеры интересуют?

[Konst_One]

В VB это назвается имплементацией и использовать можно с замечательным словом Implements Class1, например, в заголовке Class2 будет обозначать наследование всех описателей класса 1

[codemaster]

В VB это назвается имплементацией и использовать можно с замечательным словом Implements Class1, например, в заголовке Class2 будет обозначать наследование всех описателей класса 1

Имплементация и фабрика классов разные вещи.
В VB6 из наследования можно реализовать только агрегирование.

[Fedorfx]

to Fde
>>>>>Могу кинуть еще примеров, если надо.
кинь пожалуста
интерисуют примеры

Имплементация
фабрика классов
с наследованием

Вообще интерисуют красивые примеры.
С 98 года пишу на VB и только последние 2 года начал понимать что нихрена не понимаю в программировании.

[Konst_One]

2 codemaster Это как рассмаривать. ты рассматриваешь это с точки зрения java/c , а в VB - Implements именно для того, о чем спрашивал первый товарищ. чтобы можно было создать класс на основе другого

[Fde]

В VB это назвается имплементацией и использовать можно с замечательным словом Implements Class1, например, в заголовке Class2 будет обозначать наследование всех описателей класса 1

Реализация интерфейса у меня в классе была использована для другого. Просто я выбрал пример из компонента на требуемую тему, но там попалась имплементация.

[codemaster]

2 codemaster Это как рассмаривать. ты рассматриваешь это с точки зрения java/c , а в VB - Implements именно для того, о чем спрашивал первый товарищ. чтобы можно было создать класс на основе другого

Нет никакого рассмотрения
с точки зрения java/c

То о чем ты пишешь называется Наследование интерфейса

В VB6 нет никакого наследования реализации иными словами
ты не можешь создать класс на основе другого!!!


P.S. Ну почитайте книги в конце концов . В есть MSDN целая статья .

[Fde]

Имплементация
фабрика классов

Давай я лучше тебе мылом кину компонент из которого я брал предыдущий пример. Там все это вместе используется вполне органично. Архив небольшой, а выложить пока мне некуда, да и смысла мало, так как он много внутренние библиотеки использует.

Если только идеи взять...

с наследованием

Наследование реализуется криво. Пример кидать не буду, ибо влом писать, а сам такой изврат почти не юзал.

В общем:
1) Создаем базовый класс
2) Создаем потомок с ключевым словом Implements <базовый клас>. то есть реализуем интерфейс базового класса.
3) Объявляем приватный экземпляр базового класса и переадрессуем на него все вызовы базового интерфейса (ну и при необходимости довешиваем код).

Вообще интерисуют красивые примеры.

Кинь эталон красивости кода

[Konst_One]

Могу не согласиться. Как раз я могу создать класс на основе своего другого класса и это и будет полиморфизм. Но я ничего не знаю о так называемом наследовании реализации.

Код: Выделить всё

'Class1
public property Get MyProperty() as string
MyProperty="myproperty"
end property

'Class2
Implements Class1

public property Get MyProperty() as string
'
end property

public Property Get MyPropertyNext() as long
MyPropertyNext=2
end property


Вот тебе и весь сказ.

[Fedorfx]

to Fde
>>>Давай я лучше тебе мылом кину компонент из которого я брал предыдущий пример.

Заранее спасибо

а по поводу красивого кода - этоя имелл ввиду красивые (небычные) решения повседневных задач.
Для меня нижеприведенный код достаточно красив.

Код: Выделить всё

Dim dd(1000) as double
dd(0)=1
CopyMemory dd(1), dd(0), ubound(dd)*4
dd(0)=2


[sanches]

странно, у меня есть книжка от Microsoft. Про Implements там все сказано и вообще про ООП там есть, но никих упоминаний о какой-то фабрике.

И я кстати так и не понял, что же это за зверь такой и чем он лучше имплемента? (зы Вопрос немного корявый, но суть в этом)

[codemaster]

Могу не согласиться. Как раз я могу создать класс на основе своего другого класса и это и будет полиморфизм. Но я ничего не знаю о так называемом наследовании реализации.

Мда... а код .......
Нет слов !!!

Для справки: реализация полиморфизма в VB6 без имплементов

Код: Выделить всё

'------------Class 1------------
Public Function GetName() As String
GetName = "Class1"
End Function

Private Sub Class_Terminate()
Debug.Print "Class1_Terminate "
End Sub
'------------Class 2------------

Public Function GetName() As String
GetName = "Class2"
End Function

Private Sub Class_Terminate()
Debug.Print "Class2_Terminate "
End Sub

'--------  тест----------
Private Sub pTest()

Dim i As Integer
Dim objArr(1) As Object
'
Set objArr(0) = New Class1
Set objArr(1) = New Class2
'
For i = 0 To UBound(objArr)
    ' собственно полиморфизм
    Debug.Print objArr(i).GetName
Next i
'<-- попоробуйте закомент. Erase objArr и см.
'Class_Terminate классов

Erase objArr

'
End Sub

замечания и критика принимается

[GSerg]

Замечания:
Зачем комментировать erase?
С ним:

Код: Выделить всё

Class1
Class2
Class1_Terminate
Class2_Terminate

Без него:

Код: Выделить всё

Class1
Class2
Class1_Terminate
Class2_Terminate

Критика:
Это не полиморфизм. Это два абсолютно не связанных объекта, которые абсолютно случайно имеют методы, называющиеся одинаково.

[Konst_One]

Прлностью согласен с GSerg!

[codemaster]

Замечания:
Зачем комментировать erase?
С ним:

Код: Выделить всё

Class1
Class2
Class1_Terminate
Class2_Terminate

Без него:

Код: Выделить всё

Class1
Class2
Class1_Terminate
Class2_Terminate

Критика:
Это не полиморфизм. Это два абсолютно не связанных объекта, которые абсолютно случайно имеют методы, называющиеся одинаково.

Здравствуйте !!!! Приехали !!!!

Ну что поговорим о IDispatch , vTable раннем и позднем связывании !!!! ????

'Зачем комментировать erase?
смотрим где возникает ClassX_Terminate

P.S. Берем книгу и читаем определение полиморфизма.

[Fde]

странно, у меня есть книжка от Microsoft. Про Implements там все сказано и вообще про ООП там есть, но никих упоминаний о какой-то фабрике.

И я кстати так и не понял, что же это за зверь такой и чем он лучше имплемента? (зы Вопрос немного корявый, но суть в этом)

rtfm BO4 (если не в курсе, то книга называется "Приемы объектно ориентированного проектирования.Патерны проектирования.")

Этот зверь дополняет имплемент, то бишь дает простой способ генерации конкретных объектов для абстрактных интерфейсов.

[Fde]

Ну что поговорим о IDispatch , vTable раннем и позднем связывании !!!! ????

'Зачем комментировать erase?
смотрим где возникает ClassX_Terminate

P.S. Берем книгу и читаем определение полиморфизма.

Зачем так глубоко зарываться? Ведь есть еще и Object, но, имхо, изначально тема была о том как максимально определить до компиляции все типы интерфейсы и т.д.