初学者求助,我想设计一个小程序,不过能力有限,需要求助。我想通过VB画图,用command1在picture1中画出直角坐标系和直线方程y=ax+b,还有顺便做几个与直线方程无关的点(c,d),这些点的横竖坐标是来源于我的两个数组text1(i)和text2(i),因此,点是未必落在直线上的。然后我的直角坐标系无需太复杂,只要x大于等于0以及y大于等于0的第一象限就够了。不过这里涉及到一个问题,例如我的直线方程是y=0.00917x+0.0325,x与y刻度相差很大,所以我想说能否做到x与y的刻度标示是不对等的,那几个来源于数组的点的数值也是类似于这样,有点悬殊,求助大家,谢谢!

解决方案 »

  1.   

    Scale 方法,重新定义坐标系,示例:
    picture1.Scale (0,100)-(300,0) 
    ’picture1的左上角坐标将映射为新坐标系的(0,100),右下角坐标映射为(300,0),也就是说picture1的左下角将是新坐标系的原点,这里的100,300你可以根据你的数据计算来进行替换
      

  2.   

    picture1.Scale (x1,y1)-(x2,y2)是可以定义你要的坐标系的,你可以这样定义:
    picture1.scale (0,1000)-(0,1)
    这将意味着你的坐标原点在picture1的右下角,而picture1.height被分成了1000个单位,picture1.width只表示新坐标系的横轴的一个单位,即是说新坐标系的横轴和纵轴的单位是可以不统一的。
      

  3.   

    打错了;
    是:picture1.scale (0,1000)-(1,0)这将意味着你的坐标原点在picture1的左下角