바탕화면에 이미지 그리기

Imports System.Drawing

Imports System.Drawing.Drawing2D

Imports System.Windows.Forms

Public Class Form1

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 Trapezoi

G.DrawPolygon(New Pen(Color.Blue), points)

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

 

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

End Sub

End Class

Public Class GraphicsFromHwnd

Public Shared Sub Main()

Application.Run(New Form1)

End Sub

End Class