Graphics.ScaleTransform : Graphics « System.Drawing « VB.Net by API






Graphics.ScaleTransform

  
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
Imports System.Math
public class DrawCurveSin
   public Shared Sub Main
        Application.Run(New Form1)
   End Sub
End class

public class Form1
  Inherits System.Windows.Forms.Form

  Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim a As Graphics =  e.Graphics
        Dim mypen As Pen
        Dim mypoints() As PointF
        Dim i As Integer
        Dim mycount As Integer

        mypen = New Pen(System.Drawing.Color.Red, 3)

        mycount = Me.Width / 10
        ReDim mypoints(mycount)

        For i = 1 To mycount
            mypoints(i).X = i * 10
            mypoints(i).Y = -1 * (Sin(i)) ^ 2 * Me.Height
        Next

        a = Me.CreateGraphics
        a.Clear(Me.BackColor)
        a.ScaleTransform(1, -1)
        a.DrawCurve(mypen, mypoints)

        a.Dispose()
        mypen.Dispose()
  End Sub

  Public Sub New()
    MyBase.New()
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(292, 273)
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

  End Sub

End Class

   
    
  








Related examples in the same category

1.Graphics.DrawString
2.Graphics.MeasureString
3.Graphics.Clear(Color c)
4.Graphics.Clip
5.Graphics.CompositingMode
6.Graphics.CompositingQuality
7.Graphics.DrawArc
8.Graphics.DrawBezier
9.Graphics.DrawClosedCurve
10.Graphics.DrawCurve
11.Graphics.DrawEllipse(Pen, Int x, Int y, Int w, Int h)
12.Graphics.DrawIcon
13.Graphics.DrawImage(Bitmap bmp, Int x, Int y)
14.Graphics.DrawLine(Pen p, Int x, Int y, Int x1, Int y1)
15.Graphics.DrawPath
16.Graphics.DrawPolygon
17.Graphics.DrawRectangle(Pen pen1, Rectangle rectangle1)
18.Graphics.DrawString(String s, Font m, Brush , Int x, Int y)
19.Graphics.ExcludeClip
20.Graphics.FillClosedCurve
21.Graphics.FillEllipse
22.Graphics.FillPath
23.Graphics.FillPie
24.Graphics.FillPolygon
25.Graphics.FillRectangle(Brush b, Rectangle rect)
26.Graphics.FromImage(Bitmap m)
27.Graphics.MeasureCharacterRanges
28.Graphics.PageUnit
29.Graphics.ResetTransform()
30.Graphics.Restore
31.Graphics.SetClip(Shape shape,CombineMode)
32.Graphics.SmoothingMode
33.Graphics.TextRenderingHint
34.Graphics.Transform
35.Graphics.TranslateTransform