VBA/Excel/Access/Word/Application/Application DoEvent
Версия от 19:33, 26 мая 2010; (обсуждение)
Use Application.DoEvent
<source lang="vb">
Sub UseApplicationDoEvent()
StarWidth = 25 StarHeight = 25 Set NewStar = ActiveSheet.Shapes.AddShape(msoShape4pointStar, LeftPos, TopPos, StarWidth, StarHeight) NewStar.Fill.ForeColor.SchemeColor = Int(Rnd() * 56) Application.Wait Now + TimeValue("00:00:01") DoEvents Application.Wait Now + TimeValue("00:00:02")
End Sub
</source>