[Resolvido]Detectar colisão

Bom dia...
Bom estou criando um form onde no fim dele tem uma caixa (Caixa0) e no inicio do form tem uma outra caixa (Caixa1)
Quando inicia, a Caixa1 começa a descer, mas quando chega na Caixa0 ele passa... Tem algum jeito dele detectar a colisão e para, ao invés de passar direto?

Vlw..

Ola;

Não entendi direito, mas o que você deve querer é:

Com o form aberto em modo de estrutura, botão direito do mouse em cima do detalhe do form e ir a "Tab Order", agora é só colocar os campos por ordem.

Não é exatamente isso...
Bom vamos supor que seja um jogo...
No caso a Caixa0 será o personagem
E a Caixa1 será uma parede, então a Caixa0 não pode atravessar a Caixa1..
Bom foi a melhor explicação que eu encontrei...

Então terá de utilizar a função IF.

"Esse é o problema"...
Quais as condições que tem que ser?

Criando o simples, pode testar;

Num modulo VBA, apenas digite a variavel e salve;

Código:

Public x As Variant

No form, ao perder o foco da Caixa0;

Código:

Private Sub Caixa0_LostFocus()
    x = 0
    x = 1
End Sub

Ao receber o foco na Caixa1;

Código:

Private Sub Caixa1_GotFocus()
    If x = 1 Then
      MsgBox "Erro", vbCritical
      x = 0
      DoCmd.CancelEvent
      Me.Caixa0.SetFocus
      Else
    Exit Sub
    End If
End Sub


Bem... Não é bem isso...

É que eu estou na empresa e não posso anexar o meu projeto, pois aqui não posso abrir o dropbox ou 4shared

Mas assim... O objeto Caixa0 se movimenta pelo form, e não pode atravessar o objeto Caixa1...

Só vendo acontecer mesmo, assim é dificil.

tem como eu te enviar por email?

Claro;

jpaulo65@gmail.com

Desculpe...

Esqueci que não da pra mandar mensagens para outros emails de fora :/

quando eu chegar em casa te mando pelo meu email pessoal... por enquanto eu continuo usando uma gambiarra que eu fiz

Tranquilo.

Adicione dois retangulos em um form com os nomes caixa0 e caixa1.
Deixe o caixa0 acima do caixa1.

Cole o código no módulo do form:

Código:



Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

Case vbKeyDown
    
    If Me.Caixa0.Top <= Me.Caixa1.Top - Me.Caixa1.Height Then
        Me.Caixa0.Top = Me.Caixa0.Top + 20
    End If
        
End Select



End Sub




Agora pressione a tecla para baixo para ver o funcionamento!  

Acredito que era isso que você queria!

Ricardo Ivan...
Vlw cara!... era exatamente isso!