Visio+VBA: Пишем игру Gladiators tanks | #11 Уничтожение танков

В этом видео будет рассмотрен один очень важный момент, который довольно часто бывает нужен, а именно - определение касается ли одна фигура другой. Тайминг видео: 01:31 - проверяем не попадет ли снаряд в собственный танк 02:44 - проверяем касается ли одна фигура другой - в данном случае не касается ли снаряд танка противника. Используется функция .HitTest() 04:36 - возможные значения которые возвращает функция .HitTest() 07:12 - пишем процедуру TargetsClear, которая для всех такнков целью которых был уничтоженный, очищает наведение, для того, чтобы на следующем шагу они навелись на другие цели 09:15 - пишем процедуру RizeScore, увеличивающую счет побед для танка выпустившего снаряд 12:22 - добавляем остановку игры, если на поле остался только один такн 13:15 - обрабатываем исключение возникающее при попытке начислить очки уже уничтоженному танку 13:55 - используем обработчик ошибки On Error Goto