ActiveX Dll: Свой тип всплывающих уведомлений

[t116]

Доброго времени суток!

Решил выложить на общий розсуд свою ActiveX Dll со всплывающими окнами. Сначала она была как неотъемлемая часть моего счетчика трафика, но потом решил выдернуть ее оттуда и сделать отдельной библиотекой. Звуковые уведомления пока не поддерживаются, но скоро будут.

В архиве находится библиотека и пример ее использования.

[P@ladium]

Не работает !!!!
вылетает с ошибкой

Number: 429
Description: Компонент ActiveX не может создать обьект
Source: TestPw_dll

полностью отсутствет вразумительный хелп!!!

[t116]

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

[P@ladium]

Первое:
отлично было бы, если и задний фон менять можно
Второе:
В коде стоит
pm.ShowPopup rqMessage, AddressOf ClickMe
AddressOf ClickMe можно заменить на 0 и чудесно все работает. Но как видно обработки ошибок вообще нет, поставь любую другую цифру и VB вылетает...

Я не знаю, зачем туда зашивать звук!!! Это ваше детище, и оно получается отлично.
Но хочется увидеть описание к библиотеке.
Также можно внести изменения параметров используемого шрифта чисто опционально.
Также управление длительностью отображения всплывающего окна.
Ну и напоследок окошко может перекрыть на экране что-то действительно необходимое можно сделать его прозрачным.
Вот так:

[t116]

AddressOf ClickMe можно заменить на 0 и чудесно все работает. Но как видно обработки ошибок вообще нет, поставь любую другую цифру и VB вылетает...

В если вместо AddressOf ... в месседж послать 0, то он его воспринимает как отсутствие выполнения какого-либо события при клике по месседжу. Если указать AddressOf процедура, то при клике по месседжу выполнится эта процедура.

[P@ladium]

В если вместо AddressOf ... в месседж послать 0, то он его воспринимает как отсутствие выполнения какого-либо события при клике по месседжу. Если указать AddressOf процедура, то при клике по месседжу выполнится эта процедура.

Все в полнее логично: 0 - значит ничего не делаем, ставим процедуру- выполняем процедуру. Но точно также можно поставить что угодно.
Sub ShowPopup(pMessage As mpMessage, fncAddress As Long)
fncAddress указывает на функцию, но по умолчанию равно 0
тогда получается так
Sub ShowPopup(pMessage As mpMessage, Optional fncAddress As Long) можно поставить "AddressOf процедура" а можно не ставить тогда это умолчание.
Но проверки ошибки нет, если туда втулить к примеру 1, VB вырубится с ошибкой..
Пойми меня верно я не хочю влазить с своими исправлениями просто если работа хорошая то почему её не отшлифовать до блеска..

[keks-n]

t116
А не судьба было заменить адрес процедуры на какой-нибудь As IMessageClickCallback, или событием сделать?