スレッドを中断 <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