DirectX.CreateEvent(???)

[ReMAG]

А вот и я

Значит, балуюсь с DirectSound. Функция CreateEvent нужна чтобы вовремя подчищать буфер. В том примере, который я нашел, она записана так:

EventStop = objDX8.CreateEvent(Me)

хотя тип аргумента этой функции DirectXEvent. Ну да ладно, работает и хорошо. НО!
Этот код там выполняется в форме, а у меня в модуле класса. Вот.
Если в моем варианте там оставить Me, получаю Automation Error. А если передать туда форму, и подставить ее, то Type Mismatch!!!

И еще: разве Me и, например, frmTest отличаются чем-то в контексте формы??

Как победить, кто знает?

[DirectXManiac]

И еще: разве Me и, например, frmTest отличаются чем-то в контексте формы??

Нет![/quote]

[ReMAG]

И еще: разве Me и, например, frmTest отличаются чем-то в контексте формы??

Нет!

[/quote]

Отлично, почему же тогда

EventStop = objDX8.CreateEvent(Me)

в форме срабатывает, а

EventStop = objDX8.CreateEvent(frmTest)

в модуле класса нет???

[Wild VB Code for Food]

ReMAG
потомучто Me передаёт тип Object, а frmTest - форму.

[ReMAG]

ReMAG
потомучто Me передаёт тип Object, а frmTest - форму.

Позволю себе не согласится.
В форме работает и Me и frmTest, а в модуль класса я передавал как Me, так и frmTest, и ничего не работает.
Что то мне подсказывает, что собака зарыта именно в местонахождении кода и, возможно, механизма Callback DirectX'а.
Или я не прав?

[Хакер]

И еще: разве Me и, например, frmTest отличаются чем-то в контексте формы??

Нет!

Нет, ты не прав. Me это доступ к объекту класса из кода этого класса. А frmTest это переменная класса frmTest и код формы не всегда выполняется для этой переменной.

Например

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


Dim frmTest2 as frmTest
Set frmTest2 = New frmTest

frmTest.Show
frmTest2.Show

frmTest.BackColor = vbBlue
frmTest2.BackColor = vbRed



На форуме положите код "Свернуть меня" и в обработчик события щелчка вставте этот код.

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

frmTest.WindowState = vbMinimized


Откроется две формы, одно красная, одна синяя. Но на ваше удивление, обе кнопки будут сворачивать только синюю форума.

А теперь заметие обработчик Click-а на:

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

Me.WindowState = vbMinimized


каждая форма будет сворачивать себя.

[DirectXManiac]

Уже понял свою ошибку!

[ReMAG]

Только я ничего не понял...
Как все же заставить эвент создаваться не в форме

[Хакер]

ReMAG
А мы тут про другое. Я просто неудержался и поправил ошибку... к DX это не имеет никакого отношения.

Это к тому что

И еще: разве Me и, например, frmTest отличаются чем-то в контексте формы??

Да отличаются.

[DirectXManiac]

ReMAG
Object это тип данных, а форма - класс!
Object принимает форму и получает/передаёт параметры...

[ReMAG]

ReMAG
А мы тут про другое.

Хорошо. Конкретизирую:

как правильно создавать эвент в DX кодом, который находится вне формы?

[ReMAG]

на http://www.vbstreets.ru/VB/Articles/66010.aspx написано следующее:

Для того,чтобы отловить события объекта DirectX (любого) нам нужно проделать две вещи: во-первых, создать объект, который поддерживал бы интерфейс DirectXEvent8. Делается это просто: пишем в начале модуля класса (или формы) Implements DirectXEvent8. У этого класса есть единственный метод – DXCallBack, который вызывается при появдении события. Второй шаг – нам нужно зарегистрировать этот объект-обработчик событий в главном объекте DirectX8 (в нашем случае objDX8), используя метод CreateEvent. В качестве параметра и передается существующий экземпляр объекта.

Вот именно это не работает, в модуле класса.

[Mikle]

ReMAG
У меня не на чем попробовать, попробуй так:
dim f as object
set f = formtest
EventStop = objDX8.CreateEvent(f)

[ReMAG]

Сделал. Type Mismatch.
Ммм... а если в проекте нет формы? нельзя ли Implements DirectXEvent8 и DXCallBack разместить в модуле класса и как-то заставить CreateEvent работать?