本人想在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
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
大家好，我用上面一个东西赋值 TF1.text = & ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
