左边有一颜色条 在不同的数据 显示不同的颜色
左边轴 刻度 现在只要X轴的刻度就可以了
Public Sub 画图标(pic As PictureBox) Dim i As Long Dim j As Long Dim m As Double Dim k As Long Dim n As Long m = (pic.Height - 256) / (256 * 2) k = 10 n = 10 For i = 0 To 255 pic.Line (0, i * m - m)-(512, i * m), RGB(255 - i, i, 0), BF Next i For i = 0 To 255 pic.Line (0, i * m + 254 * m)-(512, i * m + 255 * m), RGB(0, 255 - i, i), BF Next i m = (pic.Height - 256) / 4 pic.CurrentX = 550 pic.CurrentY = 0 pic.Print 500 pic.CurrentX = 550 pic.CurrentY = m pic.Print 400 pic.CurrentX = 550 pic.CurrentY = m * 2 pic.Print 300 pic.CurrentX = 550 pic.CurrentY = m * 3 pic.Print 200 pic.CurrentX = 550 pic.CurrentY = m * 4 pic.Print 100 End Sub