looprun.txt

来自「一款飞机射击游戏的源代码」· 文本 代码 · 共 16 行

Function LoopRun(ByVal Frm As Form)
    Static WL As Long
    Static IsNeedRun As Boolean
    IsNeedRun = Not IsNeedRun:  If WL = 0 Then WL = Frm.hWnd

        Do While IsNeedRun = True And (Frm.hWnd = WL)
            '*添加代码*
            '**********
            '**********
            DoEvents
        Loop

    If (Frm.hWnd <> WL) Then Unload Frm
    ''''LoopRun = IsNeedRun'无法返回状态
End Function