更改坐标系vb.net,怎么变换坐标系

如何将直角坐标系坐标转换为圆坐标系坐标vb.net

Dim g As Graphics = Me.PictureBox1.CreateGraphics

创新互联公司，专注为中小企业提供官网建设、营销型网站制作、响应式网站开发、展示型网站建设、网站制作等服务，帮助中小企业通过网站体现价值、有效益。帮助企业快速建站、解决网站建设与网站营销推广问题。

g.TranslateTransform(x, y)'实现坐标平移，即把圆中心作为了坐标原点了

g.ScaleTransform(1, -1) 'X轴不变，反转Y轴

然后就不多说了，数学问题

工具 -新建-z轴矢量。在再你要变坐标的地方的一点点击一下让z轴向上，就可以了。

Dim g As Graphics = PictureBox1.CreateGraphics

g.TranslateTransform(2, 2) ‘定义原点坐标

g.ScaleTransform(1, -1) ’X轴不变，反转Y轴

以PictureBox1中（2,2）点为新的原点（0,0）

向右为X轴正方向向上为Y轴正方向

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" '标示原点

网站名称：更改坐标系vb.net,怎么变换坐标系
文章分享：http://scyanting.com/article/hsicps.html