Цитата Balthazar:
помогите совместить два кода одной задачи.
вот основной код: »
|
полны код приведи у тебя в начале нет даже select case ???
а вообще код нужно вставлять сюда
Код:
If Label2(i).Left = Label1(u).Left Then
If Label2(i).Top = Label1(u).Top Then
'ВОТ ПРЯМО СЮДА
Label1(u).Visible = False
End If
End If
(НО УЧИТЫВАЙ ПРИВЕДЕННЫЙ ТОБОЙ КОД
Цитата Balthazar:
а вот код где хищники поедают жертв:
function catch(pr,vic) as boolean:
if pr.x=vic.x then catch=true
else catch=false:
end function
procedure eat(pr,vic) :
pr.eat=pr.eat+1:
Vic.killed=true:
end procedure:
if Catch(Predator, Victim) then Eat(Predator, Victim) »
|
НЕ НА VBA !!!)
