Outro VB6: como usar vários 'or' e 'and'?

[Cambalinho]

veja este 'if':
 

If ((MapX <= 9 Or MapX >= 0 Or MapY <= 9 Or MapY >= 0) Or (LevelMap0(MapY, MapX) <> vbBlue)) Then

o objetivo  é evitar que o 'MapX' e 'MapY' sejam inferiores a zero e superiores a 9.... e depois verificar no array LevelMap0() seja 'Blue'...
eu uso o 'on Error Resume Next', mas quero evitar isso.... o que tenho de errado neste 'if'?
parece simples, mas estava-me a fazer muita confusão, porque obtenho 1 erro de index do array("out of range") 

[Midori]

Faça dois Ifs. Primeiro o teste dos Maps e depois o array,

 

If (MapX >= 0 And MapX <= 9) And (MapY >= 0 And MapY <= 9) Then
 If LevelMap0(MapY, MapX) <> vbBlue Then

 End If
End If

 

[Cambalinho]

muito obrigado
não se pode usar 1 operador similar ao 'AndAlso' e 'OrAlso', como o .NET?

[Midori]

Não tem similar.

 

Mas se o teste for simples, sem a necessidade de abrir um bloco, dá para fazer na mesma linha, p.ex,

 

If X = 5 Then If Y = 5 Then MsgBox "X = 5 e Y = 5"

 

Assim só acontece o teste do Y se X = 5.

[Cambalinho]

esse teste simples pode usar 'and'?
(só para dizer que os valores de  X e Y ficam entre zero e 100)
exemplo:

If (X >=0 and x<=100) Then If (Y >= 0 and Y<=100) Then if(array(y,x)=10) then msgbox "the number is 10" 

este exemplo é válido?

[Midori]

É válido sim.

[Cambalinho]

é possível fazer macros no VB6?
 

[Midori]

Que tipo de macros? Do Office?

[Cambalinho]

do estilo 'pre-processor' do C....
converter 'AndAlso' a 'then if'

[Midori]

Nesse estilo não.

[Cambalinho]

ok. muito obrigado por tudo...
este caso me fez pensar o que posso adicionar na minha linguagem
muito obrigado