※ 引述《BearWu (B.r)》之銘言： : ※ 引述《BearWu (B.r)》之銘言： : : 最近在學VB製作小遊戲 : : 今天就學到了一種碰撞型的遊戲 : http://mail.nkmu.edu.tw/~s931241022/bbs/Form1.frm : 已經修改了，不過好像還是不行 不行是因為 兩個物件是重疊 而不是相貼 把 = 改成 >= 就可以了 : 不知道這樣子對不對咧!!， : 另外之後有可能再做成碰撞物是採隨機出現的嗎? 動態新增控制項，並用陣列存控制項，隨機顯示出來 Dim cmd_p(100) As CommandButton Set cmd_p(i) = Controls.Add("VB.CommandButton", "cmd_p_" & i, Me) 或用陣列控制項，隨機顯示出來 controls.add 會在執行階段新增控制項 controls.remove "cmd_p_" & i 會移除該控制項 : 還是網路上也有這樣子的遊戲，可以提供一下吧!! : <(_ _)>多謝大家解答了!! : : 按下空白鍵，即可發射cmd_f : : 上下鍵可移動cmd_m : : 請問一下，如果我有一個被撞物件是cmd_p : : 如果我要假設子彈cmd_f碰撞到物件cmd_p : : 就加一分，請問一下，這種碰撞要怎麼做呢?? : : 多謝了!! -- VB 程式設計 倉木麻衣 PTT 星爺板 行列輸入法 ====================================================== Visual_Basic MaiKuraki Stephen Array --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.222.155.162