Aprire il file di Visual Basic. NET in un editor , ad esempio Microsoft Visual Studio .
2
Creare un nuovo sottoprogramma necessario per eseguire la trasformazione di matrice e passarlo le " PaintEventArgs " dati aggiungendo il seguente codice nel file :
Public TransformRectangle Sub ( ByVal e come PaintEventArgs )
3
Crea nuovo GraphicsPath , Rectangle e Matrix oggetti aggiungendo il codice seguente all'inizio della subroutine :
Dim gpath As New GraphicsPathDim rectf Come Rectangle = New Rectangle ( 0,0,75,75 ) Dim transmatrix As New Matrix
il rettangolo viene visualizzato nell'angolo in alto a sinistra in corrispondenza delle coordinate ( 0,0) con una larghezza di 75 unità ed una altezza di 75 unità .
4
Disegna la posizione iniziale del rettangolo sul schermo con il seguente codice :
e.Graphics.DrawPath ( Pens.Black , gpath ) economici 5
Tradurre e quindi trasformare l'oggetto con questo codice:
transmatrix.Translate ( 200,0 ) gpath.Transform ( transmatrix ) economici 6
Disegna il rettangolo trasformato sullo schermo dell'utente con il codice :
e.Graphics.DrawPath ( Pens. Nero , gpath ) per
End Sub
il rettangolo trasformato apparirà 200 unità alla destra del rettangolo iniziale .
7
Salvare il file VB.NET , e di compilare ed eseguire il programma per visualizzare il rettangolo trasformato .
Programmazione © www.354353.com