処理を終了したスレッドを見つける良い方法はありませんか?
[ここをクリックすると内容が表示されます]
Dim hthMain(100) As HANDLE
Dim ThCunte As Byte
Sub MainWnd_Destroy()
time_DestroyObjects()
PostQuitMessage(0)
End Sub
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
SetTimer(hMainWnd,100,1000,0)
ThCunte = 0
End Sub
Sub MainWnd_Timer(TimerID As DWord)
Dim tID As Dword
hthMain(ThCunte) = CreateThread(ByVal 0,0,AddressOf(tim_sub),0,0,VarPtr(tID))
'未使用の番号を見つけ次回使用したい!!!
' ThCunte = ????
'終了しているThread HandleをCloseしたい!!!
' CloseHandle( hthMain(????) )
End Sub
Sub tim_sub()
'実際の処理時間はまちまちなのでSleepで代用
Randomize
Sleep(Int(Rnd()*10)*1000)
End Sub
Dim ThCunte As Byte
Sub MainWnd_Destroy()
time_DestroyObjects()
PostQuitMessage(0)
End Sub
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
SetTimer(hMainWnd,100,1000,0)
ThCunte = 0
End Sub
Sub MainWnd_Timer(TimerID As DWord)
Dim tID As Dword
hthMain(ThCunte) = CreateThread(ByVal 0,0,AddressOf(tim_sub),0,0,VarPtr(tID))
'未使用の番号を見つけ次回使用したい!!!
' ThCunte = ????
'終了しているThread HandleをCloseしたい!!!
' CloseHandle( hthMain(????) )
End Sub
Sub tim_sub()
'実際の処理時間はまちまちなのでSleepで代用
Randomize
Sleep(Int(Rnd()*10)*1000)
End Sub