Doevents обратная функция: Прерывание стэка событий Windows пока не выполнится стэк событий application - VB
Формулировка задачи:
Вот есть DoEvents он передает управление очередью винде, асуществует ли обратная функция, которая передавала бы управление приложению?
Решение задачи: «Doevents обратная функция: Прерывание стэка событий Windows пока не выполнится стэк событий application»
textual
Листинг программы
Public Sub TimeRun() Dim ii As Long 'counter If ansiCNT(1) > 99 Then ansiCNT(1) = 10 End If ansiCNT(1) = ansiCNT(1) + 1 If GetAsyncKeyState(46) = -32768 Then 'delete ansiCNT(1) = 0 End If If ansiCNT(5) = 1 Then '.........................................................................Delete Delete Procedure end if End Sub Private Function LowLevelkbdProc(ByVal uCode As Long, ByVal wParam As Long, lParam As KBDLLHOOKSTRUCT) As Long 'Исключение клавиш For i = 1 To 47 If CLng(exept(i)) = CLng(lParam.VkCode) Then HookCh = wParam Exit Function End If 'Исключение клавиш If i = 47 Then If uCode = HC_ACTION Then If wParam = WM_KEYDOWN Then HOOK PROCEDURE Exit Function End If End If End If Next i LowLevelkbdProc = CallNextHookEx(hKeyHook, uCode, wParam, lParam) End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д