VB实时曲线的坐标轴绘制

Question

     在绘制事实曲线的时候，需要绘制坐标轴，因为后续需要实现拖拉坐标轴对曲线进行放缩的功能，所以用什么方法绘制坐标轴啊？这个放缩如何实现？谢谢赐教，对您的帮助不胜感激

Answer 1

http://topic.csdn.net/u/20080604/14/7b4ac419-0927-4df9-8c54-67d58f2507b5.html

Answer 2

'picture图片可任意大小
Public Sub huaxian（byval pic as object)
pic.Cls
 pic.Scale (-2 * x - x / 2, 2 * x + x / 2)-(2 * x + x / 2, -2 * x - x / 2) '规定picture大小
 pic.Line (-2 * x, 0)-(2 * x, 0)       '画x轴
 pic.Line (0, 2 * x)-(0, -2 * x)        '画y轴
 pic.Line (-2 * x, 2 * x)-(-2 * x, -2 * x) '画边框
 pic.Line (-2 * x, -2 * x)-(2 * x, -2 * x)
 pic.Line (2 * x, -2 * x)-(2 * x, 2 * x)
 pic.Line (-2 * x, 2 * x)-(2 * x, 2 * x)   For i = -x To x Step x / 4 'X轴坐标标定
     pic.Line (2 * i, -2 * x)-(2 * i, -2 * x + x / 8)
     pic.CurrentX = i * 2 - x / 6
     pic.CurrentY = -2 * x - x / 6
     pic.Print Format(i, "0.0°")
   Next i
 
  For i = -y To y Step y / 8 'Y轴坐标标定
    pic.Line (-2 * x, 2 * x / y * i)-(-2 * x + x / 8, 2 * x / y * i)
   pic.CurrentX = -x / 2.5 - 2 * x
    pic.CurrentY = (i + 0.2) * (2 * x / y)       'y轴坐标扩大4倍
     pic.Print Format(i, "0.0")
   Next i

Answer 3

http://download.csdn.net/source/1483925