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

Question

本人想在picturebox控件中画一条曲线，当Y值大于0时曲线为蓝色，当Y值小于0时曲线为红色，求助各位高手！

Answer 1

那就画两条线,或用PSET一个点一个点地画

Answer 2

Picture1.Line (X1, Y1)-(X2, Y2), vbBlue

Answer 3

用PSET一个点一个点地画,我试了不行

Answer 4

Option ExplicitPrivate 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

Answer 5

Option ExplicitPrivate 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
还请问一下，如果y<-50为绿色，-50<y<0为红色，0<y<50为蓝色，y>50为黄色应该怎么做呢？