回 帖 发 新 帖 刷新版面

主题:[讨论]请高手指点

如何用VB控件做出像汽车上的速度盘一样的效果,指针可以在某个值附近摆动,请高手指点[em18]

回复列表 (共2个回复)

沙发

使用“直线”这个形状作为指针。长度设为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

板凳

记得给pi赋值哦

我来回复

您尚未登录,请登录后再回复。点此登录或注册