VB.NET绘图7---坐标

在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, New Point(0, 0), New Point(0, 200))
        gr.DrawString("X轴", Me.Font, Brushes.Red, New Point(200, 0))
        gr.DrawString("Y轴", Me.Font, Brushes.Red, New Point(0, 200)) '未作处理，目的是看清坐标是怎么变换

        '在上面的基础上旋转坐标轴（蓝色）
        gr.RotateTransform(-30)

        gr.DrawLine(p1, New Point(0, 0), New Point(200, 0))
        gr.DrawLine(p1, New Point(0, 0), New Point(0, 200))
        gr.DrawString("X'轴", Me.Font, Brushes.Blue, New Point(200, 0))
        gr.DrawString("Y'轴", Me.Font, Brushes.Blue, New Point(0, 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, 30, 50))
    End Sub
End Class

详细查看MSDN：

Graphics.TranslateTransform 方法
通过使此 Graphics 的变换矩阵左乘指定的平移来更改坐标系统的原点。

Graphics.ScaleTransform 方法
将指定的缩放操作应用于此 Graphics 的变换矩阵，方法是将该对象的变换矩阵左乘该缩放矩阵。

Graphics.RotateTransform 方法
将指定旋转应用于此 Graphics 的变换矩阵。

猜你喜欢