OverX = False
OverY = False
這兩個表示是否超過目的(X,Y)座標
如要改寫成障礙物迷宮
且 目的地(出口) 不是在邊緣 那就不是這麼用了
If XEnd < Shape1.Left Then ShapeSpeedX = -ShapeSpeedX
當XEnd目的地X座標在物件(Shape1)左邊(If XEnd < Shape1.Left) 時
Shape1是向左移動 (物件.Left 是遞減)
所以 ShapeSpeedX 必須為負 (ShapeSpeedX = -ShapeSpeedX)
當然
如要改寫成障礙物迷宮 那必須改寫 (與 遇到障礙時的判斷式 結合)
語法:
If Button = 2 Then
Timer1.Enabled = False
Me.Cls
XEnd = 0
YEnd = 0
End If
這不就是您寫的
語法:
If Button = 2 Then
Cls
Xinit = 0
Yinit = 0
End If
當按下右鍵時 清除畫面 與 停止Timer1運作
等有空把比較完整的判斷式完成
鼠一直往前
遇障礙檢查左右
左右也不通
回走