Здравствуйте, SCS, Вы писали:
Спасибо... не на самом деле, спасибо...
Ммм.. только одна загвоздка есть, у меня эта проблема в VBA, Excel
SCS>Здравствуйте, ToliK, Вы писали:
TK>>Окно WATCH конечно дает эту инфу, но хотелось бы получить программно ...
SCS>по моему, TlbInf32.dll — это есть то, что тебе надо. входит в состав VS 6 Ent. Edition. Help можно скачать с сайта MS http://support.microsoft.com/default.aspx?scid=KB;en-us;q224331
SCS>пример использования:
SCS>SCS>Private Sub ListProps(comServer As Object)
SCS>Dim IFaceInfo As TLI.InterfaceInfo
SCS>Dim mem As TLI.MemberInfo
SCS>Set IFaceInfo = TLI.InterfaceInfoFromObject(comServer)
SCS>On Error Resume Next
SCS>
SCS> For Each mem In IFaceInfo.Members
SCS> If mem.InvokeKind = INVOKE_PROPERTYGET Then
SCS> Debug.Print "Property " & mem.Name & " = " & _
SCS> TLI.InvokeHook(comServer, mem.MemberId, INVOKE_PROPERTYGET)
SCS> End If
SCS> Next
SCS>End Sub
SCS>
SCS>можно просмотреть все публичные свойства и методы
SCS>
Желаю успеха.
ToliK
