Как работать с группами проектов?

[Diamock]

Хакер, спасибо! Очень интересно и познавательно. Буду экспериментировать.

[Diamock]

То есть по сути, ровно то, о чём я говорил — сделать публичную обёртку над New. Но вы же предпочитаете делать какую-то гадость...

Если я правильно понял, выходит так...

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

Option Explicit

Public FormDisplayed As Boolean
Dim myForm As New FormExemple

Sub ShowForm()
   
On Error Resume Next
   
If myForm Is Nothing Then
    Set myForm = New FormExemple
End If
   
FormDisplayed = True
myForm.Show

End Sub

Или надо создать абстрактный класс myForm и на его основе, используя Implement создать класс-обёртку?

[Хакер]

Нет! Как можно только придумывать такую муть...

Зачем дублировать уже имеющееся естественное поведение DAN-ссылок своим аналогичным образом?
То, что метод класса называется ShowForm говорит о том, что ничего не был понято.
Зачем переменная FormDisplayed?

Придётся делать пример.

[Хакер]

Лови и разбирайся тщательнейшим образом. То, что в проекте CLIENT, отношения к делу имеет мало, — это просто чтобы пример красиво работал. То, что в проекте SERVER — это непосредственно фабрика экземпляров форм с возможностью выбором типа формы.

Изучай, как из CLIENT-проекта я имею доступ к свойству Caption и методу Show любой из трёх форм без создания трёх идиотских классов с тремя идиотскими методами ShowForm.

FormFactoryInActiveXDll.zip

(54.27 Кб) Скачиваний: 397

На каждую из трёх кнопок «Породить» жать по нескольку раз!А то ведь до некоторых так и не доходит, что у одной формы может быть сто экземпляров.

[Денис]

сделать публичную обёртку над New

Это как?
Сделать в dll публичный класс, в нем сделать метод NewForm, который будет дергать метод New у формы в dll?

[Хакер]

Это как?

Прежде чем поднимать старые темы, вернее вместо этого, тебе следовало скачать проект, который приаттачен постом выше и посмотреть, что я имел в виду.

Сделать в dll публичный класс, в нем сделать метод NewForm, который будет дергать метод New у формы в dll?

У формы нет метода New.
Есть квази-оператор New.
Есть моя волшебная обёртка над ним, позволяющая избежать огромный Select-Case для множества классов.

[Денис]

Да, тормознул я. У этой ветки была вторая страница.
Тем не менее.
Когда у меня был VB, я пробовал делать подобное и у меня не получилось. Принципиальной разницы со своим кодом я не вижу:

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

'В dll
'Публичный класс:
public function LoadDLLForm() as object
   dim frm1 as Form
   set LoadDLLForm = New Form1 'само собой, Form1 есть в проекте dll
end function

'B exe
'В том месте, где надо вызвать форму.
private sub Button1_Click()
   dim DLLForm as Form
   Set DLLForm = LoadDLLForm()
end sub

И не работало. Выдавало ошибки. За давностью лет не помню, какие именно, но выдавало. А сейчас нет васика под рукой, чтоб проверить.

[Хакер]

где надо вызвать форму.

Опять вызвать форму.

[Diamock]

Возможно, немного не в тему, но что значит : квази-оператор?

[Хакер]

Меня самого всего режет, когда я пишу этот термин. Потому что термин сугубо мой, и любой вправе предъявить претензию: что это вообще такое.

Поясняю.
Оператор — это языковая сущность, которая применяется к одному, двум или трём выражениям, и порождает новое выражение.

Например, унарный оператор «минус»: применённый к выражению (2+9) даёт новое выражение -(2+2).
Или унарный оператор «Not»: примерённый к выражению bFlag даёт новое выражение Not bFlag, с его участием.

Или бинарный оператор «плюс», применённый к двум выражениями i * 3 и 20 даёт новое выражение i * 3 + 20.

В общем, оператор принимает выражения и в результате даёт выражение. То есть его операнды — выражения. И результат исчисления — выражение.

Квази-оператор во всём похож на оператор, за исключением того, что его операнды — не являются исчислимыми выраженими с точки зрения языка программирования.

Квази-оператор как и оператор порождает выражение, но если операндом оператора может быть любое субвыражение (атомарное или комплексное), то операндом квазиоператора всегда будет какая-то языковая сущсность, специфичная для конкретно взятого квазиоператора.

В VB это:

• AddressOf x (операнд — не выражение, а имя функции)
• New x (операнд — не выражение, а имя coclass-а)
• TypeOf x Is y (второй операнд — не выражение, а имя типа)

[Diamock]

Хакер, спасибо за пояснение. В общем, понятно изложено, но в ясную картинку ещё не сложилось. Будем думать .

[Денис]

Ну это просто языковая конструкция. В конкурирующих языках за создание и уничтожение объектов отвечают специальные методы соответствующего класса, конструкторы и деструкторы. А вот в бейсике все наперекосяк. За создание объекта отвечает "квази-оператор" а за уничтожение отвечает присваивание "квази-переменной" Nothing.

[Хакер] :: Не надо намеренно писать ЧУШЬ галактических масштабов.

[Хакер]

Простое правило-детектор: если операнд нельзя взять в скобки, значит мы имеем дело с квазиоператором.

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


a =   b   +     c     ' Так можно
a = ( b ) + ( ( c ) ) ' Так _тоже_ можно
' Вывод: Плюс — это нормальный оператор

A = AddressOf SomeProcedure ' Так можно
a = AddressOf (SomeProcedure) ' Так нельзя
' AddressOf — квази-оператор

a =   b   and c ' Так можно
a = ( b ) and c ' Так _тоже_ можно
' Вывод: And — это нормальный оператор

a = not     b     ' Так можно
a = not    (b)    ' Так можно тоже
a = not ( ( b ) ) ' И так можно
' Вывод: Not — это нормальный оператор

If TypeOf A Is B Then ' Так можно
If TypeOf ( A ) Is B Then ' Так тоже можно
If TypeOf ( A) Is ( B ) Then ' Так уже нельзя
' TypeOf...Is — квази-оператор

Set B = New Class1 ' Так можно
Set B = New ( Class1 ) ' Так нельзя
' New — квази-оператор


[Денис]

Не надо намеренно писать ЧУШЬ галактических масштабов.

Эээ! Что конкретно тебе не нравится? Конструкторы и деструкторы? "Квази-оператор" как синтаксическая конструкция?
Объяснись.

[Diamock]

Всё понятно!

[Хакер]

Что конкретно тебе не нравится?

По пунктам:

Ну это просто языковая конструкция.

Это не конструкция.
Выделение из множества операторов подмножества квазиоператоров — это таксономическая методология, применяемая ко многим языкам программирования.

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

Вот это просто дикая чушь. Конструктуры и дескрукторы вообще никаким образом сюда не относятся. Во всех остальных известных мне популярных языках программирования, в которых есть классы, и даже в которых классов нет, для создания объектов используется оператор New. Во многих языках он является при этом квазиоператором.

А вот в бейсике все наперекосяк.

В твой голове всё наперекосяк.

а за уничтожение отвечает присваивание "квази-переменной" Nothing.

И это чушь. Никаких квази-переменных не существует. Nothing не является ни квази-переменной, ни просто переменной, а является самой обычной константой со значением 0.

Даже если закрыть глаза на то, что сказано до этого. Присвоение объектной переменной этого значения не отвечает за уничтожение объекта. За уничтожения объекта отвечает логика самого объекта. COM вообще и VB в частности допускает существоание таких объектов, которые не уничтожаются вообще, даже если число ссылок на них достигло нуля.

[Хакер]

Всё понятно!

Но главное не строить в голове определение: квазиоператор — это там, где нельзя поставить скобочки. Это было вспомогательное мнемо-правило, а не определение. Определение, вернее критерий, это то, что требуется операнд, не являющийся с точки зрения языка выражением.

[Денис]

Во всех остальных известных мне популярных языках программирования, в которых есть классы, и даже в которых классов нет, для создания объектов используется оператор New. Во многих языках он является при этом квазиоператором.

И New, и Create и то что ты называешь квазиоператором, на самом деле называется конструктором. При этом конструктор либо принадлежит классу, либо наследуется от класса-предка.

alibek :: Ругательства удалены

[Хакер]

И New, и Create и то что ты называешь квазиоператором, на самом деле называется конструктором. При этом конструктор либо принадлежит классу, либо наследуется от класса-предка.

Всё верно, за исключением того, что New и конструктор класса — две разные вещи. New — оператор, а конструктор — процедура, принадлежащая классу. За реализацию конструктора отвечает автор класса, за реализацию же New — компилятор/интерпретатор, и эта реализация включает в себя поиск информации о нужном классе и вызов его конструктора.

[ger_kar]

Вообще все предельно ясно, я раньше все называл операторами.

Возможно, немного не в тему, но что значит : квази-оператор?

Меня самого всего режет, когда я пишу этот термин. Потому что термин сугубо мой, и любой вправе предъявить претензию: что это вообще такое.

А мне понравилось, включу как я его в свой лексикон А если что сошлюсь на Хакера