VBA/Excel/Access/Word/Application/Application DoEvent — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 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>