local  delayTime = cc.DelayTime:create(1);     local callFunND = cc.CallFunc:create(function() self:pushjoystick()  end )     local seq = cc.Sequence:create(delayTime, callFunND);       self:runActi

 self.enemys = {}   self.enemys[#self.enemys + 1] = self.enemy1  self.enemys[#self.enemys + 1] = self.enemy2   function MainScene:removeEnemy(enemy)     for i, v in ipairs(self.enemys) do         if e

窗体: Private mobjWaitTimer As clsWaitableTimer Dim mbWorkToDo As Boolean Dim mbStop As Boolean Private Sub RunProcess() Set mobjWaitTimer = New clsWaitableTimer Do If mbWorkToDo Then 'Call ProcessWork

sub wait(t)'暂停t秒dim i as integerwhile i<=t*10application.doeventsthreading.thread.sleep(100)end whileend sub

private Declare Function timeGetTime Lib "winmm.dll" () As Long '该声明得到系统开机到现在的时间(单位：毫秒) Public Function Sleep2(T As Long) Dim Savetime As Long Savetime = timeGetTime '记下开始时的时间 While timeG