スレッドを中断          <TOP>


SleepEx 現在のスレッドを中断
 

 

'================================================================
'= スレッドを中断
'=    (SleepEx.bas)
'================================================================
#include "Windows.bi"

' 現在のスレッドを中断
Declare Function Api_SleepEx& Lib "kernel32" Alias "SleepEx" (ByVal dwMilliseconds&, ByVal bAlertable&)

Var Shared Text1 As Object
Var Shared Text2 As Object
Var Shared Button1 As Object

Text1.Attach GetDlgItem("Text1") : Text1.SetFontSize 14
Text2.Attach GetDlgItem("Text2") : Text2.SetFontSize 14
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Sub MainForm_Start edecl ()
Sub MainForm_Start()
    Text1.SetWindowText "「実行」後 5 秒間中断します!"
End Sub

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var Ret As Long

    Text1.SetWindowtext "SleepEx 開始時間 " & Time$

    Ret = Api_SleepEx(5000, 1)

    Text2.SetWindowtext "SleepEx 終了時間 " & Time$
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End