- Код: Выделить всё
With Station(Ind)
...
If Ship(SI).ClassType = ShipClasses.SC_Battle Then HasFighter = HasFighter + 1
...
End With
Здесь Ship и Station - массивы объектов, два разных класса, соответственно, ShipType и StationType. У обоих классов есть свойство ClassType. Во время отладки при наведении курсора на ClassType среда меня поразила:
То есть она прочитала только ".ClassType" и решила, что свойство принадлежит объекту Station(Ind)... Есть ли возможность как-либо это исправить, чтобы выдавалось значение Ship(SI).ClassType, как было в VB6?