本人想在picturebox控件中画一条曲线，当Y值大于0时曲线为蓝色，当Y值小于0时曲线为红色，求助各位高手！
那就画两条线,或用PSET一个点一个点地画
结帖率：0.00%
VB code:
Picture1.Line (X1, Y1)-(X2, Y2), vbBlue
如果要画的线和Y轴有交点，计算出交点的坐标，分两段画。
用PSET一个点一个点地画,我试了不行
VB code:
Option Explicit
Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.Scale (-100, 100)-(100, -100)
'黑底'
Picture1.BackColor = vbBlack
'白线'
Picture1.Circle (0, 0), 70, vbWhite, , , Picture1.Height / Picture1.Width
'用与方式进行滤色'
Picture1.DrawMode = vbMaskPen
Picture1.Line (-100, 100)-(100, 0), vbBlue, BF
Picture1.Line (-100, 0)-(100, -100), vbRed, BF
End Sub
Option Explicit
Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.Scale (-100, 100)-(100, -100)
'黑底'
Picture1.BackColor = vbBlack
'白线'
Picture1.Circle (0, 0), 70, vbWhite, , , Picture1.Height / Picture1.Width
'用与方式进行滤色'
Picture1.DrawMode = vbMaskPe
