ComboBox и объекты

[GB826]

А возможно ли как-нить исхитриться и запихнуть в List комбо ссылки на объекты, а не строки? То есть .List(.ListIndex) - будет ссылка на объект? Или в ItemData? А может есть скрытые возможности комбо?

[tyomitch]

Низя. Зато можно ObjPtr в ItemData, а оттуда с шаманскими плясками обратно вытаскивать объект.

[GB826]

Значит можно :о)) Бугага, седня будет бессоная ночь...
2tyomitch Как я понял основная проблема в обратную сторону все вернуть... Скажите хоть куда искать? Буду очень благодарен!

[Twister]

Скажите хоть куда искать? Буду очень благодарен!

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

[GSerg]

Гы гы.

Да собственно, искать в сторону единственного вызова GetMem4.

[GB826]

Мужики, получилось :о))) Вот так, тока объясните дурачку зачем второй вызов, CopyMemory?

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

  Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
  (Destination As Any, Source As Any, ByVal Length As Long)

  Private Function ObjectFromPtr(ByVal lPtr As Long) As Object
       Dim objT As Object
       ' Bruce McKinney's code for getting an Object from the
       ' object pointer:

       CopyMemory objT, lPtr, 4
       Set ObjectFromPtr = objT
       CopyMemory objT, 0&, 4
       
   End Function

Private Sub Form_Load()
   
   
   Dim objT As Object
   Set objT = ObjectFromPtr(ObjPtr(Command1))
   objT.Enabled = False
End Sub

[GSerg]

Затем, что всё, что ты скопировал в объектную переменную, ты же и должен обнулить. А всё, что присвоил через set - не должен.

[Viper]

Примерно так:

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

Dim MyClass1 As New CMyClass
Dim MyClass2 As New CMyClass
CopyMemory ObjPtr(MyClass2), ObjPtr(MyClass1),4

И с этого места MyCLass2 полная копия MyClass1.

[GB826]

GSerg
Понятненько, спасибо за ликбез.


http://www.vbaccelerator.com/home/VB/Code/Techniques/Dealing_with_Circular_References/article.asp

Отсюда взял, а ссылку нашел на на этом форуме. :о)) Нет, я щаз напьюсь от счастья...

ЗЫ Скажите про минусы этого метода, кто может.

[Viper]

Главное в этой методе не забыть обнулить объект. Ибо самостоятельно он не удалится поскольку не является ссылкой, и, соответственно, механизм подсчета ссылок в данном случае не сработает.

[tyomitch]

Да собственно, искать в сторону единственного вызова GetMem4.

GetMemObj лучше. После него не нужно обнулять руками, т.к. он сам вызывает AddRef.

[GSerg]

Ибо самостоятельно он не удалится поскольку не является ссылкой, и, соответственно, механизм подсчета ссылок в данном случае не сработает.

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

А если ты про переменную типа long, то её тем более не надо обнулять.

[tyomitch]

Ещё раз замечу, что при использовании GetMemObj весь код ObjectFromPtr вырождается в одну строчку.

[Viper]

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

А если ты про переменную типа long, то её тем более не надо обнулять.

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

Попробую поискать пример кода, где без обнуления все слетало напрочь.
З.Ы. Только давно это было, могу и не найти

[GB826]

!Viper!
А не надо искать, закомментировал я строку с обнулением и упал даже VB.
tyomitch Щаз попробую GetMemObj

[GSerg]

Просто тогда количество удалений объекта будет больше на 1, чем надо.

[GB826]

Падает VB

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

Private Declare Sub CopyObject Lib "MSVBVM60.DLL" Alias "GetMemObj" _
  (ByVal Source As Long, Dest As Object)
Private Sub Form_Load()
   
   
   Dim objT As Object
   CopyObject ObjPtr(Command1), objT
   objT.Move 0, 0
End Sub

[Viper]

На какой строке падает? И не перепутал ли ты Source с Dest?

[GB826]

!Viper!
http://bbs.vbstreets.ru/viewtopic.php?p=44536
Объявление взял отсюда, и из кода видно, что не перепутал...
Падает на вызове CopyObject...

[tyomitch]

GB826, убери из объявления ByVal -- заработает.

[GB826]

2tyomitch
Угу, теперь вообще блеск, СПАСИБО! :о)) Только почему там объява с байвалом?

[tyomitch]

Потому что там ожидают получить не ObjPtr(obj), а VarPtr(obj).
Только не вздумай исправлять в своём коде ObjPtr на VarPtr