VPF::как сделать в ms vb6 асинхронные события?

leniviy

Дата 9.7.2004, 18:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 552
Регистрация: 8.2.2003
Где: Спб

Репутация: нет
Всего: 5

надо, чтобы событие вызывалось аналогично таймеру или ExecuteComplete в ADO.

Guest

Дата 9.7.2004, 22:07 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

leniviy, поподробнее пожалуйста

leniviy

Дата 11.7.2004, 00:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 552
Регистрация: 8.2.2003
Где: Спб

Репутация: нет
Всего: 5

Конкретно, мне надо реализовать в проге событие ApplicationOnIdle ( по аналогии с VCL ). Я пробовал ставить хук на WH_FOREGROUNDIDLE из callback ф-ции вызывать событие, но при этом появились всякие глюки. например, при отладке зависает.

arilou

Дата 15.7.2004, 12:54 (ссылка)

(нет голосов)

Загрузка ...

Великий МунаБудвин

Профиль
Группа: Экс. модератор
Сообщений: 2646
Регистрация: 15.7.2004
Где: город-герой Минск

Репутация: нет
Всего: 61

Вообще, VB - это однопоточный язык, и там многое сделано для того, чтобы _не_ дать программеру его обмануть

Можно сделать ActiveX биб-ку, в которой будет метод для установки указателя на callback. Этот метод будет запускать Timer, и по таймеру дергать callback.

В VB в модуле определяешь callback-функцию, и передаешь ее через AddressOf
Что-то типа:

Код


sub CallbackProc()
  MsgBox "Callback"
end sub

dim myTmr as MyTimer.MyTimer

myTmr = new MyTimer.MyTimer
myTmr.Start(AddressOf CallbackProc)

Думается мне, что в методе CallbackProc лучше брейкпоинтов не ставить

--------------------

boevik

Дата 15.7.2004, 13:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35

Цитата

Код

myTmr.Start(AddressOf CallbackProc)

Как запустить функцию CallbackProc из Start в классе MyTimer?

--------------------

Никогда не говори никогда

arilou

Дата 15.7.2004, 13:33 (ссылка)

(нет голосов)

Загрузка ...

Великий МунаБудвин

Профиль
Группа: Экс. модератор
Сообщений: 2646
Регистрация: 15.7.2004
Где: город-герой Минск

Репутация: нет
Всего: 61

Цитата(boevik @ 15.7.2004, 13:15)

Цитата

Код

myTmr.Start(AddressOf CallbackProc)

Как запустить функцию CallbackProc из Start в классе MyTimer?

Сорри, я не добавил, что ActiveX биб-ку надо писать на ATL C++ и использовать там Win API:

Вот кусок кода:

Код



MyTimer *current;

STDMETHODIMP MyTimer::Start(VARIANT *callback)
{
m_hTimer = SetTimer(NULL, TIMER_EVENT_ID, nTimerSpan, (TIMERPROC)TimerProc);
current = this;
m_cbk = (CALLBACKFUNC*)callback->byref;

return S_OK;
}

void MyTimer::CallBack()
{
m_cbk();
}

VOID CALLBACK TimerProc(HWND hWnd, UINT uMsg, UINT idEvent, DWORD dwTime)
{
current->CallBack();
}

--------------------

leniviy

Дата 16.7.2004, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 552
Регистрация: 8.2.2003
Где: Спб

Репутация: нет
Всего: 5

Пожалуй, это слишком сложно. Раз так, возьму VB'шный таймер и буду из его события вызывать свои

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »