Перечисление свойств и методом СОM объекта

[GM]

Есть у меня Command1. Мне нужно перечислить все свойства и методы которые он имеет. Например Caption, Default, Enabled, Move,Refresh ... Как понимаю тут нужно юзать IDispatch, так как именно он содержит эту инфу. Так как VB напрямую не поддерживает использование этого интерфейса, то как можна узнать их другим путем?

[tyomitch]

http://bbs.vbstreets.ru/viewtopic.php?t=9313

[GM]

Спасибо щас посмотрю.

[GM]

А как это можно применить к VB объектам?
Например VB.CommadButton'у.

[tyomitch]

В самом первом примере, который http://bbs.vbstreets.ru/viewtopic.php?p=55702#55702 , напиши в начале: Set o = Command1.

[GM]

Понятно, а я то перевел весь твой код тот что в tlbbrowse,в модуль, написал свой Object Browser(визуальный), а он для VB.* не пашет.

[tyomitch]

Понятно, а я то перевел весь твой код тот что в tlbbrowse,в модуль, написал свой Object Browser(визуальный), а он для VB.* не пашет.

Это потому, что классы VB.* не зарегистрированы в реестре. Например, нельзя написать CreateObject ("VB.CommandButton")

Визуальный ObjectBrowser - дашь посмотреть? Я начинал писать свой, но быстро сдался...

[GM]

Хорошо завтра скину.

[GM]

Тут еще один вопрос. У меня есть некий объект и он в VB представлен как MSComctlLib.ImageList .
Как мне узнать progid этого объекта?
Нужно для того чтобы динамически создавать на форме ActiveX объекты.

[GM]

Тёмыч как я и обещал мой Object Browser.
Кстати тут возникали некоторые проблемы, например при выборе Windows Script Host Network,
в CoClass Typekind = Interface, а не Coclass, я чуть изменил там код, но не думаю что оно правильно будет работать.

[Andrey Fedorov]

Тёмыч как я и обещал мой Object Browser.

Ты бы уж и заодно и Edanmo's OLE interfaces & functions v1.810 (unofficial build) выложил. А то без него и не посмотришь.

[tyomitch]

Тёмыч как я и обещал мой Object Browser.

Ты бы уж и заодно и Edanmo's OLE interfaces & functions v1.810 (unofficial build) выложил. А то без него и не посмотришь.

Это мой unofficial build
А выложен он в http://bbs.vbstreets.ru/download.php?id=1041

[Andrey Fedorov]

Ну а mdlObjectInfo.bas где?

[tyomitch]

Ну а mdlObjectInfo.bas где?

Как где? В архиве у GM
Просто нужно либо стереть у него расширение .bas, либо исправить .vbp-файл.

[GM]

Я уже спрашивал, никто не знает как достать progid объекта если он представлен в VB например MSComctlLib.ImageList?
Насчет архива, то я vbp правил вручную, вот и ошибся.

[tyomitch]

У него-то, очевидно, MSComctlLib.ImageListCtrl
А вот как в общем случае - не знаю
Сейчас попробую с ProgIDFromCLSID, может даст.

[edit]Дало! Вопрос решён? [/edit]

[GM]

Как я понял нужно CLSIDFromString, дальше ProgIDFromCLSID:
Вот что я писал:
С помощью Ole библиотеки

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

Dim a As UUID
Call CLSIDFromString("ComctlLib.ListView", a)
mvarClass = ProgIDFromCLSID(a)


Без

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

Private Declare Sub ProgIDFromCLSID Lib "ole32.dll" (ByVal clsid As Long, ByVal lplpszProgID As String)
Private Declare Sub CLSIDFromString Lib "ole32.dll" (ByVal lpsz As String, ByVal pclsid As Long)

Dim s As String
s = String(255, vbNullChar)
Call CLSIDFromString("MSComctlLib.ImageList", a)
Call ProgIDFromCLSID(a, s)


Ни один вариант не работает, первый ошибка, невозможно создать объект, второй просто не работает

ЗЫ: добавлении Controls.Add("MSComctlLib.Treeview", ...)
возникает забавная ошибка где VB объясняет мне что вместо Library.ClassName нужно юзать Progid, и что вот для этого контрола progid = MSComctlLib.TreeCtrl.2.

[tyomitch]

Это потому, что CLSIDFromString принимает строку вида "{2C247F23-8591-11D1-B16A-00C0F0283628}", а не "ComctlLib.ListView".

У тебя, кроме строки "ComctlLib.ListView", есть ещё и имя библиотеки, так? Можешь получить её ITypeLib?
Если да, то вызовом ITypeLib::GetTypeComp, затем ITypeComp::BindType, и наконец ITypeInfo::GetTypeAttr - ты найдёшь нужный CLSID.

[GM]

Тёмыч, а как получить ITypeLib зная имя библиотеки?

[tyomitch]

Тёмыч, а как получить ITypeLib зная имя библиотеки?

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

LoadTypeLibEx

[GM]

Вот код:

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

Dim info As olelib.ITypeLib
Set info = LoadTypeLib(dllname) ' , REGKIND_DEFAULT)
Dim tc As olelib.ITypeComp

Set tc = info.GetTypeComp()


Dim ti As olelib.ITypeInfo

Call tc.BindType(clsid, 0&, ti, tc)


Тут возникает ошибка так как info.GetTypeComp ничего не возращает.

[GM]

Разве никто не знает почему код не работает?

[tyomitch]

Разве никто не знает почему код не работает?

Проверяй.

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

Option Explicit

Sub Main()
Debug.Print GetProgID("mscomctl.ocx", "ListView")
End Sub

Private Function GetProgID(ByVal DllName As String, ByVal CoClassName As String) As String
Dim info As olelib.ITypeLib
Set info = LoadTypeLibEx(DllName, REGKIND_NONE)

Dim tc As olelib.ITypeComp
Set tc = info.GetTypeComp()

Dim ti As olelib.ITypeInfo
tc.BindType CoClassName, 0&, ti, Nothing

Dim ta As olelib.TYPEATTR, pta As Long
pta = ti.GetTypeAttr
olelib.MoveMemory ta, ByVal pta, Len(ta)
ti.ReleaseTypeAttr pta

'это нужно чисто для отладки
Dim ClsId As String
ClsId = SysAllocString(StringFromCLSID(ta.IID))
Debug.Print ClsId

GetProgID = SysAllocString(ProgIDFromCLSID(ta.IID))
End Function

[GM]

Работает, спасибо.