Многопоточность в VBA

Почему VBA? Про VB в принципе уже все давно расписано и исследовано за десятки лет. На VBA тема менее популярна, по в принципе понятным причинам, по скольку, там она не сильно так уж и нужна. Мне также в ней нет особой необходимости, просто некоторый интерес прощупать эту тему с точки зрения "простого обывателя", на сколько далеко можно зайти и т.д.
Вообще, говоря, на VBA есть довольно простая и удобная не очень изящная возможность организовать "потоки" за счет запуска нескольких копий приложения, также можно делать на VBS.
Далее простой пример (в файле), назовем "Игра - Останови колобка если сможешь!" ). В примере все не очень оптимально, и нет какого-то полезного шаблона, но как мне кажется хорошо видно работу т.н. маршаллинга, его усточивую работу, даже при не очень, как бы правильной ситации. При запуске множества экземпляров Экселя и их одновременному обращению к одному и тому же объекту, все продолжает работать довольно устойчиво при том, что объектная модель отдельного Экселя "общается" со всеми в одном потоке или точнее из одного потока. Видимо маршаллинг все разруливает.
В данном примере, не мало важно, что рабоает пропуск ошибок и doevents. Если попытаться реализовать подобное с помощью win-api то с этим уже появляются некоторые проблеммки.. и бог весть еще с чем, а вот при работе разных экземпляров Эксель все очень просто.

Вложения

Колобок.zip (20.7 Кб, 32 просмотров)

0

Сообщение от HackerVlad создаётся окно в новом потоке без единой API-функции вообще

Функции есть, но скрыты.
Так же как скрыт обработчик событий и callback функции окон.

0

Сообщение от HackerVlad Ты мне говорил что нельзя. Ну если и можно то слишком сильно сложно.

С этим модулем можно.

Сообщение от HackerVlad The trick, у тебя создаётся окно в новом потоке без единой API-функции вообще!? как такое возможно!?

Так работает штатная многопоточность в VB6.

0

Сообщение от The trick С этим модулем можно.

Очень классный модуль, спасибо большое, но мне лично непонятен тот проект именно где показывает память каждого процесса, там модель этот необязательно чисто для этой цели вполне подойдёт всего одна функция NtQuerySystemInformation она выдаёт занимаемую память для каждого процесса, как для 32-битного так и для 64-битного и для всех системных тоже.

Добавлено через 7 минут
The trick, но в том проекте мне понравилась самописная функция qSort и не надо CDecl вызывать даже)))

0