Работа с объектами по ссылке

[Faust]

Можно ли по ссылке (полученна по VarPtr) на экземпляр класса:
а) прочитать некоторые его поля;
б) вызвать его метод.
Ежели можно, то как?

[tyomitch]

Нельзя. Это ссылка не на экземпляр, а на переменную.
По ссылке, полученной по ObjPtr - можно. Она - как раз на экземпляр.
Как - см. в статье GSerg-а про не-IUnknown-овые объекты
Но есть способы проще.

[GSerg]

Ээээ... Тёмыч

Если

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

dim obj as object

, а также

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

private declare function GetMem4 lib "msvbvm60" (pSrc as any, pDst as any) as long

, и при этом всём нам дают varptr(obj), то

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

dim obj2 as object
getmem4 byval varptr(obj), obj2

.

Вернее даже, для соблюдения подсчёта ссылок,

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

Private Declare Function SetMemObj Lib "msvbvm60" (ByVal ppObj As Long, ByVal pNewObjValue As Long) As Long

Или я чё-то не понял?

[codemaster]

Можно ли по ссылке (полученна по VarPtr) на экземпляр класса:
а) прочитать некоторые его поля;
б) вызвать его метод.
Ежели можно, то как?

прочти думаю пригодится
http://www.vbaccelerator.com/home/VB/Co ... rticle.asp