Следуйте инструкциям в видео ниже, чтобы узнать, как установить наш сайт как веб-приложение на главный экран вашего устройства.
Примечание: Эта функция может быть недоступна в некоторых браузерах.
Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
так она работает на шаблоне прогрессбара .
а у tohaa, макрос с уймой текста, который ещё к тому же надо исправлять - с оптимизацией или без оной - это . хм...всё
а вот оне такие, эти новые версии ...
возьмём вышеозначенный шаблон - заметим, что в макете ни грамма текста - и всё ж - Х7 рисует с оптимизацией 1000 штук за секунду, а 2018 за две
на основе примера с созданием 1000 прямоугольников
шаблон макроса прогрессбара
без привлечения API и референса MS ProgressBar - который на х64 версиях может иметь проблемы
сам прогрессбар - ход выполения, время выполнения, оставшееся время и проценты - лишнее удалить
да ... всё просто ... когда знаешь :)
одно небольшое сомнение:
- А не стоит ли поменять местами строки
If doreplace Then l.Text = Replace(l.Text, "class=""""", "class=""main""")
If InStr(l.Text, "<g id=""main"">") Then doreplace = True
?
VBA может выдать площадь простой (нескомбинированной) замкнутой кривой
на примеры буквы Q - она разбирается на три таких кривых - далее математика,
или берется длина и ширина охватывающего прямоугольника - BoundigBox
или в растр - и подсчет попиксельно - вот в качестве примера от известного...
IMHO аналогично - просто собраны несколько алгоритмов подсчета площади - вся, внешняя, внутренняя, по растру - судите сами
ОДНАКО! присутствует предупреждение
На данном сайте используются cookie-файлы, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших cookie-файлов.