求助！VB编程picturebox中颜色问题！

本人想在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