при выходе ошибка "Отправить отчет"

[Олег Козлов]

Hello, everyone!

Что такое: у тех, у кого нет VB, при выходе из моей проги вылазит ошибка "Отправить отчет - не отправлять".

(PS. Возможно, это связано с использованием Манифеста в ресурсах и функции InitCommonControlsXP, т.к. на прогах без них все выходит нормально).

Как избежать этого? Повторюсь: у тех, у кого НЕТ VB!

[Jenizix]

А если ЭТУ же прогу без манифеста запустить?

[SSecurity]

У меня смешнее ...
VS 6 EE en, SP5 на XP работаем с сокетом:)
на этапе десигна, обращаемся раз к винсоку, жмем СТОП or Закрыть окно or END в тексте и... VB в дауне:) (а если ПАУЗА, затем СТОП, тогда работаем спокойно)

поставил 6 Pro rus (SP5)
тьфу-тьфу работает нормально

[Олег Козлов]

Hello, everyone!

Что такое: у тех, у кого нет VB, при выходе из моей проги вылазит ошибка "Отправить отчет - не отправлять".

(PS. Возможно, это связано с использованием Манифеста в ресурсах и функции InitCommonControlsXP, т.к. на прогах без них все выходит нормально).

Как избежать этого? Повторюсь: у тех, у кого НЕТ VB!

В общем, манифест у меня встрен в ресурсы, а перед выполнением проги я в Саб Майн вызываю функцию IniCommonControlsEx:

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

Option Explicit

Private Type tagInitCommonControlsEx
  lngSize As Long
  lngICC As Long
End Type

Private Declare Function InitCommonControlsEx _
    Lib "comctl32.dll" _
   (iccex As tagInitCommonControlsEx) As Boolean

Private Const ICC_USEREX_CLASSES = &H200

Sub Main()
Call InitCommonControlsXP
frm_main.Show
End Sub

Public Function InitCommonControlsXP() As Boolean
On Error Resume Next
Dim iccex As tagInitCommonControlsEx
With iccex
  .lngSize = Len(iccex)
  .lngICC = ICC_USEREX_CLASSES
End With
InitCommonControlsEx iccex
InitCommonControlsXP = CBool(Err = 0)
End Function


(этот код я взял с pusproject.narod.ru)

Кроме того, я убрал самопальный контрол XPFrame (by Shahin Gasanov - http://gasanov.net), т.к. при нем если получается RunTimeError, то вместо надоевшего и знакомого всем сообщения прога просто вылетает и не обещает вернуться.

Так вот, убрал я XPFrame, а у меня ПРИ УСТАНОВЛЕННОМ VB тоже вылазит ошибка "Отправить отчет" при выходе из программы.

Убрал Модуль (приведенный выше) и манифест из ресурсов - все нормально работает, только XP-стиля нет.

Примечание!!! У меня во всем комплекте 4 программы:
1. "Кто хочет стать миллионером?" (Без XP-стиля)
2. Программа настройки игры (с XP-стилем, глючит, как описано выше).
3. Программа регистрации (то же самое)
4. Генератор вопросника (С XP-стилем, НО НЕ ГЛЮЧИТ!!!)

Может, код неправильный в модуле? А? Или еще что-нибудь?

[GSerg]

Не знаю чё там с кодом, но я юзаю не ICC_USEREX_CLASSES, а ICC_STANDARD_CLASSES.

[Олег Козлов]

а значение?

[GSerg]

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

[Eduard]

Не знаю чё там с кодом, но я юзаю не ICC_USEREX_CLASSES, а ICC_STANDARD_CLASSES.

и что помогает это хоть в чем нить??

[GSerg]

Не знаю. У меня манифест работает отлично.

[Олег Козлов]

Все равно та же фигня, если и поменять константу.

[Eduard]

Все равно та же фигня, если и поменять константу.

да там все время какие нить траблы с этим хр style, я даже был и уверен что это тож не поможет...

Знаете народ, нам нада всем слиться в оду силу... да взять написать какую-нить такую DLL (или ещё лучше даж TBL или OLB, чтоб не таскать за сабой), чтоб она субклассила так все контролы, отрисовала их так "по-черному", чтоб сама M$ позовидовала... вообщем чтоб больше небыло траблов у нас на форуме по xp стилям, сунуть её в нашПроекты, и как только после этого нов. топик на эту тему будет... закрываем её и псылаем аФтора на эту DLL ...

скажите: мечтать не вредно... верю, но так хотелось бы...

[GSerg]

Вообще-то наше PopupMenu сделано именно по этому принципу. Только без всяких dll.

Расширить принцип подключаемых рисовальщиков на все остальные контролы - раз плюнуть.
Но нафига?

[Олег Козлов]

Не, ну мне интересно, в чем проблема?

Я выше приводил список программ, которые глючат/не кгючат. Так я ошибся немного - регистрация НЕ глючит. Хотя все контролы везде одни и те же!

Вот список контролов в программе настройки игры (это там, где глючит):
1. Стандартные (которые всегда есть - кнопки, лейблы...)
2. JetActiveX Library 2.9.

И все! В регистрации, например, те же самые + Winsock + RivhTextBox - т.е. даже больше, а там не глючит.

странно все это

[tyomitch]

написать какую-нить такую DLL (или ещё лучше даж TBL или OLB, чтоб не таскать за сабой), чтоб она субклассила так все контролы

Гы-гы. Субклассер в TLB или OLB жжот.