Hallo an alle VB Experten!
wer kann mir mit dem folgendem Problem helfen? Ich habe eine laaange Liste von Objekten mit Start- und Zielkoordinaten. Diese Liste lese ich aus Excel ein. Ich möchte, dass die Objekte sich zu ihren Ziellkoordinaten bewegen. Je nach Objektart sollen sich die Objekte nach oben oder nach unten bewegen. Und bei einer Objektart kann man vorher nicht wissen wohin es sich bewegen soll, weil man nicht weiß wo die Startkoordinaten liegen. Folgendes habe ich für die „bekannten“ Objekte gemacht.
If Typ(i) = 0 Then
If StartX(i) ZielX(i) - (25 + Speedup * 225) And Not Sh(i).Left = ZielX(i) Then
Sh(i).Left = ZielX(i)
ElseIf Sh(i).Left ZielX(i) Then
Sh(i).Left = Sh(i).Left - (25 + Speedup * 225)
End If
End If
… und das gleich für das Objekt, das nach oben fahren soll.
Folgendes habe ich für das „unbekannte“ Objekt gemacht, aber es läuft nicht.
ElseIf Typ(i) = 2 Then
If StartX(i) ZielX(i) - (25 + Speedup * 225) And Not Sh(i).Left = ZielX(i) Then
Sh(i).Left = ZielX(i)
ElseIf Sh(i).Left ZielY(i) Then
Sh(i).Top = Sh(i).Top - (25 + Speedup * 225)
ElseIf Sh(i).Left > ZielX(i) - (25 + Speedup * 225) And Not Sh(i).Left = ZielX(i) Then
Sh(i).Left = ZielX(i)
ElseIf Sh(i).Left