VB.Net by API/System.Drawing.Drawing2D/MatrixOrder

Материал из VB Эксперт
Версия от 12:51, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

MatrixOrder.Append

   
Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Text
Imports System.Drawing.Imaging
Public Class MainClass
  Shared Sub Main()
    Dim m As Matrix = New Matrix()
    m.Rotate(90, MatrixOrder.Append)
    m.Translate(7, 12, MatrixOrder.Append)
    Dim p() As Point = {New Point(20, 45)}
    Console.WriteLine(p.GetValue(0).ToString())
    m.TransformPoints(p)
    Console.WriteLine(p.GetValue(0).ToString())
  End Sub
  
End Class