ab.com コミュニティ

'-----------------------------------------------------------------------------
'  イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

#prompt

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。

Const MYTHREADMSG_TEST=1000
' スレッド1のハンドル
Dim hThread1 As HANDLE
Dim thread1_ID As DWord

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

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

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


'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。
'
'●デストロイ
'
Sub MainWnd_Destroy()
	ThreadMessageTest_DestroyObjects()
	PostQuitMessage(0)
End Sub

'
'●クリエイト
'
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
' スレッドの定義
 hThread1=CreateThread(ByVal 0,0,AddressOf(MainOperation),0,0,VarPtr(thread1_ID))

End Sub

'
'●Testメニュー・クリックイベント
'
Sub MainWnd_IDM_Test_MenuClick()

 PostThreadMessage(thread1_ID,MYTHREADMSG_TEST,0,0)

End Sub

'
'●スレッド1
'
Function MainOperation(dwDummy As DWord) As DWord

 Dim ret As Long
 Dim myMsg As MSG

 While 1
 
 ret=PeekMessage(myMsg,NULL,0,0,PM_REMOVE)

 If myMsg.message=MYTHREADMSG_TEST Then
   Print "Got MYTHREADMSG_TEST"
   Sleep (3000)
 End If

 Wend

End Function