Не работает Deactivate

[Gfif21]

В моей проге необходимо останавливать процесс, если окно стало неактивным. Я написал небольшую прогу, чтобы протестировать это событие:

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

Dim n As Integer, nn As Integer
--------------------------------------------------------------------------------
Private Sub Form_Load()
n=0
nn = 1
End Sub
--------------------------------------------------------------------------------
Private Sub Form_Activate()
nn = 1
End Sub
--------------------------------------------------------------------------------
Private Sub Form_Deactivate()
nn = 0
End Sub
--------------------------------------------------------------------------------
Private Sub Timer1_Timer()
n = n + nn
Label1.Caption = Str$(n)
End Sub

В общем есть Label, в котором пишется цифра, и каждую секунду к ней прибавляется единица. Если я переключаюсь на другое окно, возрастание числа должно прекращаться.

Но прога почему-то не работает - когда окно становится неактивным, число все равно увеличивается на 1 каждую секунду.

[Konst_One]

попробуй Timer=False при деактивации делать, а при получении фокуса опять запускать

[Gfif21]

попробуй Timer=False при деактивации делать, а при получении фокуса опять запускать

Все равно число растет.

[Konst_One]

проверяй возникновение событий. Поставь msgbox-ы и смотри, что и когда у тебя происходит или лог подробный пиши в файл, а потом анализируй

[alibek]

А не лучше ли использовать

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

Dim n As Integer, fPaused As Boolean
--------------------------------------------------------------------------------
Private Sub Form_Load()
n=0
End Sub
--------------------------------------------------------------------------------
Private Sub Form_Activate()
fPaused = False
End Sub
--------------------------------------------------------------------------------
Private Sub Form_Deactivate()
fPaused = True
End Sub
--------------------------------------------------------------------------------
Private Sub Timer1_Timer()
If fPaused Then Exit Sub
n = n + nn
Label1.Caption = Str$(n)
End Sub


Вдобавок учти, что события Activate/Deactivate не отрабатывают, если ты со своей проги переключаешься на постороннюю; они отрабатывают, когда ты переключаешься между окнами своей программы.

[Gfif21]

Вдобавок учти, что события Activate/Deactivate не отрабатывают, если ты со своей проги переключаешься на постороннюю; они отрабатывают, когда ты переключаешься между окнами своей программы.

А, ну вот в чем проблема. Я то как раз переключаюсь на другие проги (конкретней-Winamp). Тогда как это можно реализовать для окон разных программ?

[alibek]

Делать сабклассинг и отлавливать сообщения WM_DEACTIVATE.

[Gfif21]

Делать сабклассинг и отлавливать сообщения WM_DEACTIVATE.

Можно поподробней для чайника.

[xolod]

Проще и без субклассикга

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

Public Declare Function GetFocus Lib "user32" Alias "GetFocus" () As Long

Function IsOurFormInFocus() as Boolean
if (GetFocus) then IsOurFormInFocus=True
End Function


Ф-ция покажет, в фокусе главное окно твоей программы или нет

[Gfif21]

Проще и без субклассикга

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

Public Declare Function GetFocus Lib "user32" Alias "GetFocus" () As Long

Function IsOurFormInFocus() as Boolean
if (GetFocus) then IsOurFormInFocus=True
End Function


Ф-ция покажет, в фокусе главное окно твоей программы или нет

Пасиба, все работает