曲线.zip
风吹过b 老师，不好意思，我是从你共享的文件中进行修改的，不懂各个参数的修改，所以来发求助。这里你是大哥，很多VB知识都得向你学习。
2016-12-16 15:46
2016-12-18 09:52
程序代码：Picture2.Cls
Picture2.Line (0, 0)-(0, 210), QBColor(0)
Picture2.Line (0, 90)-(1250, 90), QBColor(0)
For i = 0 To 6
s1 = CStr(i * 50 - 150)
Picture2.CurrentX = -Picture2.TextWidth(s1)
Picture2.CurrentY = (i * 50 - Picture2.TextHeight(s1) / 2) / 1.5
Picture2.Print s1
Next i
Picture2.PSet (0, py(k - 1)), QBColor(2)
For i = 0 To 绘图大小 - 1
'If py(k + i) > 0 Then '因为是从最左边开始绘图，所以要先判断一下数据是否有效
Picture2.Line ((i * 40) / 2, (py(k + i - 1)) / 2)-((i * 40 + 40) / 2, (py(k + i)) / 2), QBColor(1)
'End If
Next i
Picture1.PaintPicture Picture2.Image, 0, 0
[此贴子已经被作者于2016-12-18 11:43编辑过]
2016-12-18 11:41
2016-12-19 10:52