在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.Drawing Imports System.Drawing.Drawing2D Public 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 Sub End Class
详细查看MSDN:
Graphics.TranslateTransform 方法 通过使此 Graphics 的变换矩阵左乘指定的平移来更改坐标系统的原点。 Graphics.ScaleTransform 方法 将指定的缩放操作应用于此 Graphics 的变换矩阵,方法是将该对象的变换矩阵左乘该缩放矩阵。 Graphics.RotateTransform 方法 将指定旋转应用于此 Graphics 的变换矩阵。