As Any в коде пользовательских функций

[Разрыв Шаблонов]

Почему VB не позволяет объявить пользовательский тип Any (из TLB) в функции, как тогда решить данный инцидент?

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

Private Function TestFunc(ByRef vVar As AnyVoid)
End Function

Этот код выводит ошибку компиляции:

Compile error: Automation type not supported in Visual Basic

Для генерации TLB используется MIDL (с другими и не получилось тогда), но не работает ни в каком варианте (с положением звездочки):

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

typedef [public] void *AnyVoid;
typedef [public] void* AnyVoid;

Еще сама загвоздка в том, что в сети толком нет информации по данному поводу. Так что и копать самостоятельно не получится.
Может тут какие-то особые ключи компиляции тоже нужны (подобно тому как тогда уважаемый Хакер открыл)?
И если программист "для генерации TLB использует MIDL", можно ли уровень его компетенций и развития определить как Мидл? Еще ведь Джун, Синьор бывают. И Архитектор. А то непонятно еще, как эти самые уровни толком определять.

Тип Any, видимо, предназначен для работы с указателями на неизвестный и неопредопределенный заранее тип данных (например, в CopyMemory).

[Хакер]

Почему VB не позволяет объявить пользовательский тип Any (из TLB) в функции,

Потому что так задумано. Если бы так было можно, тогда откуда бы VB должен был знать и как бы он должен был решать, что вообще делать при обращении к vVar? vVar ссылается на что-то, но что это и какого оно размера?

Допустим:

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

Private Function TestFunc(ByRef vVar As AnyVoid)
    vVar = 0
End Function

Что занулять? Один байт? Два байта? Четыре байта? Восемь байт? А может вообще там указатель на объект и в данной строке программист имел в в иду, что его свойству-по-умолчанию нужно присвоить значение 0?

Может тут какие-то особые ключи компиляции тоже нужны (подобно тому как тогда уважаемый Хакер открыл)?

Никакие ключи не исправят положение, это фундаментальное ограничение.

[The trick]

Делай ByVal pVar As Long и разыменовывай вручную.