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