基于VB的Picture绘图

利用vb的picture控件进行曲线图表绘图，圆形来源于百度。

声明 ：

Option Explicit
   Dim X As Long
    Dim Y As Long
Dim 高间格 As Long, 宽间格 As Long

更新绘制：
Private Sub Command1_Click()
'测试按钮 ,定时器里的代码与此相同
   Picture1.Cls
    Call 绘折线图(Picture1)         '绘制折线图
'    Stop
End Sub

曲线表格：

Public Sub 绘折线图(cs As PictureBox)

Dim i As Long, 间格 As Double
Dim 总高 As Long
Dim 最低格 As Double

With cs

总高 = .ScaleHeight - 200
高间格 = (总高) / 12      '上下各留一格
宽间格 = (.ScaleWidth - 600) / 51       '右边留一格

.Cls      '清屏

'画坐标
Dim x1 As Long, X2 As Long, y1 As Long, y2 As Long

y1 = .ScaleHeight - 200
x1 = .ScaleWidth - 200

cs.Line (600, 0)-(600, y1), vbGreen
cs.Line (600, y1)-(.ScaleWidth, y1), vbGreen

'画坐标网络
    .ForeColor = vbBlack
    .CurrentX = 0