vb 画折线图

来源：百度知道 编辑：UC知道 时间：2024/06/01 05:31:51
画一个折线图
要求:
1.用Picture画
2.像任务管理器的CPU使用记录那样画...
3.没有了
我有一组数据...从右到左慢慢地画...并且自动往左移动...

回答者： 小鱼冬眠中,不要复制...没达到要求
回答者： 43295811 好像在哪里见过...

kd = P_Height / 10
For i = P_Width / kd + 1 To 0 Step -1
Picture1.Line (P_Width - i * kd - kd, P_Height - gd(i + 1) * dw2)-(P_Width - i * kd, P_Height - gd(i) * dw2)
b = b + i * kd
Next

有点乱,呵呵...你整理整理吧...

Private Sub Command1_Click()
Me.Picture1.AutoRedraw = True
Me.Picture1.Line (100, 1000)-(500, 600)
Me.Picture1.Line (500, 600)-(600, 2000)
Me.Picture1.Line (600, 2000)-(1000, 2000)
End Sub

Line的第一个参数(100,1000)，前一个是左边距，第二个是上边距

'我的数据是随机生成的,方法就是这样啦,你参考,希望对你有帮助:
'我是在窗体上画的,在图片中也是一样的,本例仅作演示

Option Explicit

Private Sub Form_click()
Cls
Dim i, j As Single
Me.Scale (-1, 10)-(25, -1) '定义坐标系，原点靠近左下角
Line (-1, 0)-(25, 0) '画x轴
Line (0, -1)-(0, 10) '画Y轴
For i = -1 To 25 Step 1 '画X轴刻度
If i <> 0 Then
Line (i, 0)-(i, 0.2)
CurrentX = i - 0.3: CurrentY = -0.2
Print i
End If
Nex