ab.com コミュニティ

'
'●ウインドウ・アクティブ/非アクティブ・イベント
'
Sub MainWnd_Activate(state As Integer, minimized As Integer)

  If state=WA_INACTIVE Then
      PostThreadMessage(thread1_ID, MYTHREADMSG_IDLE_THREAD, 0, 0)
      Print "スレッド停止"
  Else 
      PostThreadMessage(thread1_ID, MYTHREADMSG_RESUME_THREAD, 0, 0)
      Print "スレッド再開"
  End If
 
End Sub

 While 1  'スレッドのループ用
 
  ret=PeekMessage(msg,0,0,0,PM_REMOVE)
  If ret=TRUE Then 

    Select Case msg.message

       Case MYTHREADMSG_IDLE_THREAD

        '----- スレッド停止ループ -----
        ' RESUME_THREADメッセージを受け取るまでここで待機ループ。

        While msg.message<>MYTHREADMSG_RESUME_THREAD 
         ret=GetMessage(msg,0,0,0)
         If ret=-1 Or ret=0 Then Exit Function
        Wend

        '----- スレッド停止ループ・終わり -----

' ウィンドウメッセージを処理するためのコールバック関数

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
	' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。

    Select Case dwMsg

      Case WM_ENTERMENULOOP
         PostThreadMessage(thread1_ID,MYTHREADMSG_IDLE_THREAD,0,0)
      Case WM_EXITMENULOOP
         PostThreadMessage(thread1_ID,MYTHREADMSG_RESUME_THREAD,0,0)

    End Select

	' イベントプロシージャの呼び出しを行います。
	MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function

Const WM_CATCHCOMMAND = WM_APP + 0
Const WM_RESUME_THREAD1 = WM_APP + 1

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
	Select Case dwMsg
		Case WM_ENTERMENULOOP
			c++
			OutputDebugString(StrPtr("WM_ENTERMENULOOP " + Str$(c) + Ex"\r\n"))
		Case WM_EXITMENULOOP
			PostMessage(hWnd, WM_CATCHCOMMAND, 0, 0)
		Case WM_CATCHCOMMAND
			Dim msg As MSG
			If PeekMessage(msg, hWnd, WM_COMMAND, WM_COMMAND, PM_REMOVE) <> FALSE Then
				DispatchMessage(msg)
				PostMessage(hWnd, WM_RESUME_THREAD1, 0, 0)
			Else
				c--
				OutputDebugString(StrPtr("WM_CATCHCOMMAND " + Str$(c) + Ex"\r\n"))
			End If
			Exit Function
		Case WM_RESUME_THREAD1
			c--
			OutputDebugString(StrPtr("WM_RESUME_THREAD1 " + Str$(c) + Ex"\r\n"))
		Exit Function
	End Select
	' イベントプロシージャの呼び出しを行います。
	MainWndProc = EventCall_MainWnd(hWnd, dwMsg, wParam, lParam)
End Function

       Case WM_EXITMENULOOP
            PostMessage(hWnd, WM_CATCHCOMMAND, 0, 0)
        Case WM_CATCHCOMMAND
            Dim msg As MSG
            If PeekMessage(msg, hWnd, WM_COMMAND, WM_COMMAND, PM_REMOVE) <> FALSE Then
                DispatchMessage(msg)
                PostMessage(hWnd, WM_RESUME_THREAD1, 0, 0)
            Else
                c--
            End If
            Exit Function
        Case WM_RESUME_THREAD1
            c--