Question

VB定义坐标系

　VB定义坐标系，简略，VB在窗体上定义一个简单的坐标系曲线，设定X/Y坐标和原点，用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" '标示原点

Answer 2

From1.ScaleLeft=xx和From1.ScaleWidth =xx

Answer 3

Private sub Form_MouseMove(button as integer,shift as integer,x as single,y as single) line -(x,y) Cricle (x,y),100 end sub

Answer 4

dim x as integer = 0
dim y as integer = 0

sub Point(int p_x,int p_y)
x=p_x:y=p_y
end sub
function GetPoint() as string
return x & "," & y
end function

Answer 5

ABB机器人定义工件坐标系方法与操作步骤