Об увеличении скорости работы приложений

[lavgirb]

Как известно, при вставке текстов на чертеж, эти тексты после вставки надо обновлять для их отображения.
Если делать это поштучно, после каждой вставки, то времени уходит относительно много и на чертеже заметно, как последовательно появляются тексты.
Если эти тексты не обновляя сначала собрать в массив

Код Выделить Развернуть

Set oArrDrawText(t) = oDrawText
t = t + 1а потом после вставки всех текстов пробежать по массиву и обновить все тексты

Код Выделить Развернуть

For t = 0 To ubt
  oArrDrawText(t).Update
Nextто суммарное время вставки текста заметно снижается, и все тексты появляются по ощущениям одномоментно.

Аналогично можно увеличить скорость обновления ячеек в таблице.