Как правильно объявить Imagelist

[Alexanbar]

Вот тут как-то была дискуссия, где, в частности, одни выражали одобрение по поводу Option Explicit, другие (в частности, я) - негодование. Вопрос, собственно, вот в чём. Сделал я отрисовку Toolbara в XP стиле. Там содержится собственно процедура отрисовки.

Sub DrawToolbar(ByVal hwnd As Long, Optional ByVal Msg As Long, Optional ByVal lParam As Long)
Dim Toolbar As Object
.....
Dim Iml as Imagelist
.....
CopyMemory Toolbar, GetProp(hwnd, "Toolbar"), 4&
....
Set Iml = Toolbar.ImageList
...

После серьёзных переустановок в системе, в частности, при переустановке оффиса, все Toolbar-ы в проектах лысеют. Выяснил, что причина оператор

Set Iml = Toolbar.ImageList

почему-то перстаёт возвращать iMagelist.

Убираю объявление

Dim Iml as Imagelist

- тогда всё работает.

Вывод:
1) либо не объявлять переменную Iml вообще
2) либо объявлять, но как?

[VERITAS]

А если объявить ее типа Variant, что тогда ?

[Alexanbar]

Ну, пока объявил как Object. Вроде работает.
Почему вот по-старому перестаёт работать, в частности, при попытке запустить новый проект на любом другом компе? Отчего нельзя объявить

Dim Iml as Imagelist

??

[tyomitch]

Alexanbar, у меня такое чувство, что у тебя к проекту подключены сразу две библиотеки с Common Control-ами, 5-ая и 6-ая. Ага?

[Alexanbar]

Alexanbar, у меня такое чувство, что у тебя к проекту подключены сразу две библиотеки с Common Control-ами, 5-ая и 6-ая. Ага?

Как ни странно, но так оно и оказалось. Сам не пойму, зачем это мне было нужно. Видимо, начав с чужого примера, в котором была ссылка на 5.0, не убрал её.

А вообще, я пробовал делать и так:

Dim Iml as MScomctllib.Imagelist

и

Dim Iml as Сomctllib.Imagelist

- оба не работали.

P.S. Убрал ссылку на 5.0. Всё равно работает, тлько, если объявляю как object. В принципе, можно с этим и смириться - не понятно, чего не так делаю.

[Alexanbar]

История продолжается. Начались все безобразия после установки Office-2003.

Запускаю vb6 проект на выполнение- выдаётся ошибка "Type mismatch". С чего бы это?

Как оказалось, VB6 перестало нравиться передавать следующие параметры в DLL и внтри неё в Модуль:

Call XX.sub1(Listview1,.....)

В класс-модуле Sub1 Объявлена так:

Public sub sub1(Listview1 as object,......)

....

CALL SUB2(Listview1,.....)
....

end sub

А внутри обычного модуля внутри Dll:

public sub SUB2( Listview1 AS Listview,....)

dim Iml as Imagelist

set Iml=Listview1.Icons
.....
end sub

!!!Ошибка пропадает, если запустить групповой проект основной программы и DLL.

Смог всё отремонтировать, объявив в SUB2 Listview1 as Object и Dim Iml as object.

И так и не понял, почему пришлось пойти на эти шаги.

[codemaster]

Смог всё отремонтировать, объявив в SUB2 Listview1 as Object и Dim Iml as object.

И так и не понял, почему пришлось пойти на эти шаги.

Посмотри в object Browser что у тебя за библиотеки
и уточни что из них ты пользуеш

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

Dim Iml as MScomctllib.Imagelist
Dim Tbr as MScomctllib.Toolbar


желательно пользовать тулбар и imglist из одной библиотеки.

[Alexanbar]

Использую MS Windows Common Controls 6.0. (в DLL есть ещё формы диалога с Листвьями). Объявление Dim Iml as MScomctllib.Imagelist ничего не меняет. В ссылках много чего указано собственнного производства, а также:
1) VB for Fpplications (msvbvm60dll)
2)VB Runtime objects and procedures(-/-)
3) VB objects and procedures (vb6.olb)
4) OLE Automation(OLE2.tlb)
5)scrrun.dll
6) DAO3.51 obj lib
5) cNewmenu6.dll (с vbasselerator)