ByRef argument опять!

[SeRRg]

В связи с разработкой родился вот еще какой вопрос:
Почему может возникать ошибка ByRef argument type mismatch???
Текст функции вот какой:


Private Function perekryvanie(ByVal Left1 As Long, ByVal left2 As Long, ByVal top1 As Long, ByVal top2 As Long, ByVal width1 As Long, ByVal width2 As Long, ByVal height1 As Long, ByVal height2 As Long) As Boolean

Dim rect1 As RECT, rect2 As RECT, rectresult As RECT

rect1.Left = Left1
rect1.Top = top1
rect1.Right = Left1 + width1
rect1.Bottom = top1 + height1

rect2.Left = left2
rect2.Top = top2
rect2.Right = left2 + width2
rect2.Bottom = top2 + height2

Call Win32.IntersectRect(rectresult, rect1, rect2)

End function



Поиск ничего не дал. Может, объясните мне

[GSerg]

Внимание, вопрос...
ГДЕ эта ошибка?..

[SeRRg]

Call Win32.IntersectRect(rectresult, rect1, rect2).
Он выделяет вот эту бяку и выдает сообщение об ошибке. В отдельной программе эта ф-ия работает, а в моей-нет
[/b]

[SeRRg]

Ах, да... Еще подключена Win32.tlb, если это что-нибудь меняет.

[SeRRg]

Я нашел причину: эта проблема пропадает, если в Project-References
отключить DirectX 7 For Visual Basic Type Library, что ессно я сделать не могу
НО если в этой функции заменить dim rect1 as RECT на dim rect1 as Win32.Rect, и т.п.,
а в остальных случаях на rc.dxvblib.rect, то все идет. М.Б. это кому-нить поможет!

[SeRRg]

И еще: дайте, пожалуйста, теоретическое обоснование этому.

[Amed]

У меня была такая проблемка... Как решилась, не помню - давно было... Очевидно, что всё дело в пересечении трёх (двух) типов с одним именем rect:
RECT, Win32.Rect, rc.dxvblib.rect...

[A.A.Z.]

Структура под одним и тем же именем в разных библиотеках (разного назначения) может быть разной по содержанию, я думаю, проблема была в этом. Если я правильно понял тему обсуждения.

[Amed]

Да-да, я про то же

[SeRRg]

А я Все равно не понял:
Вот я в обжект браузере смотрю - у меня два типа RECT. Один
из Win32.tlb, другой из ДиректХ.
У первого мемберы -Top,Bottom,Left,Right, и у второго точно такие же.
В чем же разница??? Содержание одно и то же вроде бы.

[GSerg]

Ни в чём разница...
Разные типы считаются разными, даже если они одинаковые.

[Vi]

Структуры, имеющие одинаковые внутренности, в разных библиотеках отличаются внутренним идентификатором (GUIDом, если быть точным). Поэтому не важно как называются структуры, главное, чтобы у них GUID были одинаковы.

Если для структуры не указано имя библиотеки, в которой содержится ее описание, то берется самое первая библиотека в списке библиотек, в которой это имя определено. И соответственно определяется GUID.