Question

vb自定义坐标系疑问

Answer 1

scale(x1,y1)-(x2,y2)
你只要记住，这里的x1,y1是左上角的坐标，x2,y2是右下角的坐标，通过这两个点的坐标设定，就可以决定坐标原点的位置以及坐标轴的方向了，比如
Scale
(-300,200)-(300,-200)
以上是把坐标原点设在窗体中心，x轴长600，方向从左到右，y轴长400，方向从下向上。
Scale
(800,0)-(0,600)
以上是把坐标原点设在窗体右上角，x轴长800，方向从右到左，y轴长600，方向从上向下。
下面说坐标轴和原点的标示法：
假定自定义坐标设为：
Scale
(-300,
200)-(300,
-200)
则
Line
(-300,
0)-(300,
0)
'画x轴
Line
(0,
200)-(0,
-200)
'画y轴
CurrentX
=
290
CurrentY
=
-5
Print
"x"
'标示x轴
CurrentX
=
5
CurrentY
=
200
Print
"y"
'标示y轴
CurrentX
=
5
CurrentY
=
-5
Print
"0"
'标示原点