发表于:2004-10-13 14:51:00
3楼
那我如果使用相对曲线是不是也能有相同的效果?
relaCurve.SetCurveMaxValue(1, 30)
relaCurve.SetCurveMinValue(1, 1)
relaCurve.XMarkMax = 30
relaCurve.SetCurveUnit(1, 1)
relaCurve.SetCurveVisible(1, 1)
relaCurve.CurveType = 1
Dim i As Int16
For i = 0 To 25
relaCurve.XValue = i
relaCurve.SetCurveVisible(1, 1)
relaCurve.SetCurveColor(1, 255)
relaCurve.SetCurveValue(1, i)
Next i
写了如上的程序,但是仍然画不出来图
请问还有什么属性需要设置吗?谢谢