笔记7：VB.net绘图中坐标轴的变换

概述在GDI+绘图中，如何改变坐标轴的原点及X轴和Y轴的方向呢？ VB.net提供了三个常用的变换方法： 1、改变原坐标系中的原点位置：        gr.TranslateTransform(100, 250)   2、改变原坐标系中的XY轴方向：        gr.ScaleTransform(1, -1)   '1：1变换X，Y轴                              

在GDI+绘图中，如何改变坐标轴的原点及X轴和Y轴的方向呢？

VB.net提供了三个常用的变换方法：

1、改变原坐标系中的原点位置： gr.Translatetransform(100,250)

2、改变原坐标系中的XY轴方向： gr.Scaletransform(1,-1) '1：1变换X，Y轴

参数可针对X轴和Y轴进行放大或缩小处理。

3、旋转原坐标系的角度： gr.Rotatetransform(-30)

imports System.Drawingimports System.Drawing.drawing2dPublic Class Form1    Private Sub button1_Click(sender As Object,e As EventArgs) Handles button1.Click        Dim gr As Graphics = PictureBox1.CreateGraphics        Dim p As New Pen(Brushes.Red,2)        Dim p1 As New Pen(Brushes.Blue,2)        '(100,300)为原点，右为X，上为Y（红色）        gr.Translatetransform(100,250)        gr.Scaletransform(1,-1)  '1：1变换X，Y轴        p.EndCap = lineCap.ArrowAnchor        gr.Drawline(p,New Point(0,0),New Point(200,0))        gr.Drawline(p,200))        gr.DrawString("X轴",Me.Font,Brushes.Red,0))        gr.DrawString("Y轴",200)) '未作处理，目的是看清坐标是怎么变换        '在上面的基础上旋转坐标轴（蓝色）        gr.Rotatetransform(-30)        gr.Drawline(p1,0))        gr.Drawline(p1,200))        gr.DrawString("X'轴",Brushes.Blue,0))        gr.DrawString("Y'轴",200))        gr.DrawArc(p1,New Rectangle(-75,-75,150,150),120,-30) '注意矩形的位置落区        gr.DrawRectangle(p1,New Rectangle(30,30,80,100)) '在最后生效的坐标轴内画矩形        '放大或缩小效果        gr.Scaletransform(6,1) 'X轴方向扩大6倍        gr.DrawRectangle(p1,New Rectangle(10,10,50))    End SubEnd Class

详细查看MSDN：

Graphics.Translatetransform 方法 通过使此 Graphics 的变换矩阵左乘指定的平移来更改坐标系统的原点。 Graphics.Scaletransform 方法 将指定的缩放 *** 作应用于此 Graphics 的变换矩阵，方法是将该对象的变换矩阵左乘该缩放矩阵。 Graphics.Rotatetransform 方法 将指定旋转应用于此 Graphics 的变换矩阵。

总结

以上是内存溢出为你收集整理的笔记7：VB.net绘图中坐标轴的变换全部内容，希望文章能够帮你解决笔记7：VB.net绘图中坐标轴的变换所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。