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