Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class GraphicsFromHwnd
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 G As System.Drawing.Graphics = Graphics.FromHwnd(Me.Handle)
Dim points(3) As System.Drawing.Point
points(0) = New Point(120, 60) 'Top Left of Trapezoid
points(1) = New Point(180, 60) 'Top Right of Trapezoid
points(2) = New Point(240, 120) 'Bottom Right of Trapezoid
points(3) = New Point(60, 120) 'Bottom Left of Trapezoid
G.DrawPolygon(New Pen(Color.Blue), points)
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
|