TypeOf

[Alexanbar]

Есть ли эквивалент этого оператора?
Есть подозрение, что при переносе DLL на другой комп. он перестаёт работать:

Public Sub DrawContainerBG(Ctrl As Object, ByVal hdc As Long, ByVal hwnd As Long, Optional Container As Object)

Dim CntObj As Object
Dim tcrPar As RECT, tcr As RECT, tcrw As RECT

If Not CntObj Is Nothing Then
If TypeOf Ctrl Is Data Then
Set CntObj = Container
Else
Set CntObj = Ctrl.Container

End If

If TypeOf CntObj Is SSTab Then
....

ElseIf TypeOf CntObj Is Frame Then

....

end if

endif
end sub

[ANDLL]

Как понять, он перестанет работать?
TypeOf вызывает QueryInterface и передает guid того интерфейса, который сравнивается. Если код Dll не менялся, то и результат его работы будет всегда один.

[Alexanbar]

Передаю в процедуру объект Ctrl, например, как я думаю, SSTab, а typeof, по всей видимости, не возвращает TRue, когда приносишь это на другой комп или переустанавливаешь ОСь

[alibek]

Эквивалент - TypeName.
Только лучше найди, где у тебя баг.

[Alexanbar]

Эквивалент - TypeName.
Только лучше найди, где у тебя баг.

Баг именно в этом. Это всё используется для отрисовки элементов в стиле XP. Если я в процедурах отрисовки использую конкретные типы контролов в объявлениях, например:

Dim SSTab1 as SStab

идут глюки. для Toolbara это проявлялось в его "лысении" при смене компа. Как только я записал

Dim TB as Object

вместо

Dim TB as Toolbar

"лысение" пропадало.

А теперь и-за typeof идёт непрозрачность фреймов и прочих контролов, поскольку неверное поведение typeof приводит к тому, что не попадаем ни в одну ветку оператора if.

[coderx]

Я в своих прогах, обычно, в имени элементов использую префиксы, и определяю его начальным три буквам... Можеть это тебе поможет.

[GSerg]

А причём здесь имя элементов?

[Antonariy]

А причём здесь имя элементов?

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

txtAddress
cmdCancel
chkIsActive

Угадай с первого раза, какое название принадлежит какому контролу
Способ определения типа, конечно, не из лучших, но право на существование имеет.

[Alexanbar]

Я в своих прогах, обычно, в имени элементов использую префиксы, и определяю его начальным три буквам... Можеть это тебе поможет.

Хотелось бы, чтобы все работало для любых имён

[GSerg]

Дык всё и работает для любых имен.


А нет там такого, что имеется в виду common controls 5.0, а проверяется 6.0?

[Alexanbar]

Заменил Typeof на TypeName. Как обычно, у меня на компе работает. А у вас?

[GAGArin]

Откомпиленый выдает:

Run-Time 429
ActiveX не может создать обьект.

Исходник не смотрел

[Alexanbar]

Откомпиленый выдает:

Run-Time 429
ActiveX не может создать обьект.

Исходник не смотрел

А XPSTYLE.dll зарегистрировал с помощью regsvr32.exe?
А MS Windows XP установил?

[ANDLL]

2Alexanbar: У меня все работает, но какой смысл городить огород? Ты не пробовал использовать манифесты?
Кстати, операторы TypeOf и TypeName суовершенно не эквивалентны.
Один объект может давать true на сравнение с разными типами(typeof), но при этом TypeName у каждого объекта один.

[Alexanbar]

2Alexanbar: У меня все работает, но какой смысл городить огород? Ты не пробовал использовать манифесты?
Кстати, операторы TypeOf и TypeName суовершенно не эквивалентны.
Один объект может давать true на сравнение с разными типами(typeof), но при этом TypeName у каждого объекта один.

1) В этом то вся и прелесть, что типы для windows числятся как разные, а для меня они абсолютно одинаковые.
2) манифест не обеспечивает полноценного воспроизведения темы табов, а для vb6 вообще половина контролов не отрисовывается. Контролы из VB5 использовать не очень хочется, особенно Listview.
3) Кстати, если всё нормально, монотонно-серого фона у SSTAb, Frame, Option и Check не должно быть.

[Alexanbar]

Вчера заменил typeof на typename ещё в одном месте, иначе не работало:

Public sub xxx(Lvw as object, ..)
if not (typeof (lvw) is LIstview) then exit sub
....
end sub

Иначе после переустановки ОСи всякий раз, когда я пытаюсь передать Listview, происходит возврат из процедуры, поскольку Vb бессовестно врёт, говоря, что я подсовываю ему не Listview.

Так что оператор typeof выкидываем на помойку.

[GSerg]

А если скобки убрать, которые вокруг lvw?

[Alexanbar]

А если скобки убрать, которые вокруг lvw?

Да нет, скобки не причём. Просто писал по-памяти. Суть в том, что, проект, состоящий из нескольких *.exe, *.dll, компилируется на одном компе, создаётся дистирибутив. Далле дистибутив ставится на другой комп или переустанавливается ОСь, и Listview становится не Listview, SSTab - не SSTAb ... .
Даже был такой случай, правда связанный не с typeof, а с объявлениями внутри процедур типа:

Dim TB as Toolbar

Установил дистриб на другом компе, всё работает правильно с точки зрения отрисовки в XP стиле. Запускаю на этом компе VB и пробую создавать новый проект с применением *.dll. Toolbar в проекте лишился картинок. Перекомпилирую исходник *.dll - в проекте (без изменеия кода!!!!) Toolbar стал с картинками, а в программе, установленной, с дистрибутиав - без картинок.

Лысение убрал только после того, как объявил

Dim TB as Object.

А на днях заметил, что Фреймы, Option-ы и Ck-и, отрсованные мной, стали непрозрачными после того, как переустановлена ОСь. Оказалось, что в данном случае виноват TypeOf.

И вообще, я понял, что как только внутри процедур в *.dll ссылаешься на конкретные имена типов контролов, VB почему-то перестаёт их чуять как таковые после смены компа или переустановки ОСи.

[GSerg]

Нет, так не может быть.
Значит, при этой самой переуставновке были установлены другие версии используемых компонентов.