到這裡下程式碼
http://d.turboupload.com/d/132474/Mouse.rar.html
解開後執行看看
To 執行階段錯誤'424':此處需要物件
整個程式只有兩個物件
Timer 與 Shape
可能是少哪一個
或直接下上面的程式碼
打開 test1.vbp 專案檔執行
要修改成障礙物迷宮
就要做些許修改及添加程式判斷式
重點在
Dim Direction(1 To 4) As Boolean '方向指標: 1~4依序為 右、上、左、下
的設計
比如
Direction(1)=True 表示右邊無障礙物
此時如欲往右邊走
if ShapeSpeedX <0 then ShapeSpeedX= -ShapeSpeedX '或ShapeSpeedX= Abs(ShapeSpeedX)