vb小游戏代码

来源：百度知道 编辑：UC知道 时间：2024/05/24 16:36:22
用VB怎么实现黄金矿工中抓黄金的工具（随时间来回左右摆动，用方向键盘控制抓黄金）？

'form上放一picturebox，内放一line, timer。
private sub form_load()
picture1.width=5000
picture1.height=5000
picture1.scale(0,0)-(5000,5000)
line1.x1=2000
line1.y1=0
line1.x2=2500
line1.y2=0
end sub
private sub timer1_timer()'摆动
static t as integer
t=t mod 360 +1
if t>=180 then t=360-t
line1.x1=2500+500*cos(t/180*3.1416)
line1.y1=500*sin(t/180*3.1416)
end sub