※ 引述《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