VB 制作仪表盘

Private Sub Timer1_Timer()    Const pi = 3.14    Const r = 1400 '表盘半径r    Dim i As Long    Dim pich As Long '高    Dim picw As Long '宽    Dim a As Single '刻度变量a    Dim b As Single '指针变量b    PictureBoard.Cls    pich = PictureBoard.Height + 1500    picw = PictureBoard.Width    PictureBoard.DrawWidth = 2    PictureBoard.ForeColor = vbBlue        For i = 0 To 10        a = (5 / 6) * pi - (i / 15) * pi        PictureBoard.Line (picw / 2 - r * Cos(a), _        pich / 2 - r * Sin(a))-(picw / 2 - (r + 200) * Cos(a), _        pich / 2 - (r + 200) * Sin(a))        '绘制刻度线, 注意刻度线的起点和终点计算方法及坐标表示        PictureBoard.CurrentY = PictureBoard.CurrentY - 180        PictureBoard.CurrentX = PictureBoard.CurrentX - 100        PictureBoard.Print Abs((i - 10) * 20)    Next i    PictureBoard.DrawWidth = 3    PictureBoard.Circle (picw / 2, pich / 2), _     r + 100, , pi / 6, 5 * pi / 6 '绘制面板上的弧线    PictureBoard.Circle (picw / 2, pich / 2), _    r, , pi / 6, 5 * pi / 6    PictureBoard.DrawWidth = 2    PictureBoard.ForeColor = vbRed    PictureBoard.Circle (picw / 2, pich / 2), _     r - 150, , pi / 6, 5 * pi / 6    PictureBoard.DrawWidth = 8    PictureBoard.ForeColor = vbGreen    PictureBoard.Circle (picw / 2, pich / 2), 60            b = (5 / 6) * pi - _     ((10 - Val(Text1.Text) / 20) / 15) * pi    '从text1 中获取数据并转化为仪表指针b    PictureBoard.DrawWidth = 2    PictureBoard.ForeColor = vbGreen    PictureBoard.Line (picw / 2, pich / 2)- _    (picw / 2 - r * Cos(b), pich / 2 - r * Sin(b)) '绘制仪表指针            '    b = (5 / 6) * pi - _'     ((10 - Val(Text1.Text) / 10) / 15) * pi'    '从text1 中获取数据并转化为仪表指针b'    PictureBoard.DrawWidth = 2'    PictureBoard.ForeColor = vbGreen'    PictureBoard.Line (picw / 2, pich / 2)- _'    (picw / 2 - r * Cos(b), pich / 2 - r * Sin(b)) '绘制仪表指针    Timer1.Enabled = FalseEnd SubPrivate Sub UserControl_Initialize()    ' 初始化空间    Timer1.Enabled = True    Timer1.Interval = 10End Sub

添加一个定时器，一个图片容器和一个编辑框