主题:[讨论]请高手指点
jiangqi813
[专家分:0] 发布于 2008-04-01 10:42:00
如何用VB控件做出像汽车上的速度盘一样的效果,指针可以在某个值附近摆动,请高手指点[em18]
回复列表 (共2个回复)
沙发
老大徒伤悲 [专家分:29120] 发布于 2008-04-01 14:25:00
使用“直线”这个形状作为指针。长度设为L,圆心为(x0,y0),“某个值”为正中偏右20度。摆动幅度为10度。
private sub timer1_timer()
度=20
偏=10*rnd
if rnd>0.5 then
度=度+偏
else
度=度-偏
endif
hudu=度/180*pi
x=sin(hudu)*L+x0
y=y0-cos(hudu)*L
line1.move(x0,y0)-(x,y)
end sub
板凳
老大徒伤悲 [专家分:29120] 发布于 2008-04-01 14:26:00
记得给pi赋值哦
我来回复