大富翁1

想完成這個遊戲程式
要先想想需要哪些功能
目前想到的是表格
棋子
棋子怎麼移動

看了書之後
找到了建立圖形的方法 如下
Set 矩形 = ActiveSheet.Shapes.AddShape(17, 180, 70, 80, 45)
第一個參數是形狀代號 後面四個參數是座標

至於移動棋子圖形的部分
還沒找到可以直接移動物件的方法
但找到了可以複製物件並傳回新複製物件參照 的方法
然後增減物件的位址
最後用Delete方法殺掉原始物件

目前這樣的想法是可行的
不過有些問題還要解決跟釐清
因為不斷複製新物件還有刪除物件
似乎程式會自動設定物件名稱
例如起始生成笑臉1 可是經過複製 移動新物件
就會生成笑臉2......移動越多 名稱編號越高
初步想到的是 應該可以加一個更改圖形命名的語法
將名稱固定為一個

另外就是移動的部分
IncrementLeft方法 明明就指水平移動
可是我在移動時發現會有誤差
似乎會有向下偏移的跡象
勉強用IncrementTop方法修正回來
可是為什麼會這樣 並不知道原因
還要再查一下

可是我覺得應該有直接移動原始圖形物件的方法