Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class ReleaseHdc 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 hdc As IntPtr = e.Graphics.GetHdc() Dim newGraphics As Graphics = Graphics.FromHdc(hdc) newGraphics.DrawRectangle(New Pen(Color.Red, 3), 0, 0, 200, 100) e.Graphics.ReleaseHdc(hdc) 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
17.40.Graphics | ||||
17.40.1. | Create Graphics from Handle | |||
17.40.2. | Create Graphics object from System.Windows.Forms.PaintEventArgs | |||
17.40.3. | Graphics.DpiX | |||
17.40.4. | Graphics: clear background | |||
17.40.5. | Graphics.DrawArc | |||
17.40.6. | Graphics.DrawBeziers | |||
17.40.7. | Graphics.DrawClosedCurve | |||
17.40.8. | Graphics.DrawCurve | |||
17.40.9. | Graphics.DrawEllipse Method | |||
17.40.10. | Use Graphics.DrawEllipse to draw a circle | |||
17.40.11. | Graphics.DrawIcon | |||
17.40.12. | Graphics.DrawIconUnstretched | |||
17.40.13. | Graphics.DrawImage | |||
17.40.14. | Graphics.DrawLines | |||
17.40.15. | Graphics.DrawPath | |||
17.40.16. | Graphics.DrawPie | |||
17.40.17. | Graphics.DrawPolygon | |||
17.40.18. | Graphics.DrawString | |||
17.40.19. | Graphics.ExcludeClip | |||
17.40.20. | Graphics.FillClosedCurve | |||
17.40.21. | Graphics.FillEllipse | |||
17.40.22. | Graphics.FillPath | |||
17.40.23. | Graphics.FillPie 2 | |||
17.40.24. | Graphics.FillPolygon | |||
17.40.25. | Graphics.FillRectangle | |||
17.40.26. | Graphics.FillRectangles | |||
17.40.27. | Graphics.IntersectClip | |||
17.40.28. | Graphics.MeasureString | |||
17.40.29. | Graphics.ReleaseHdc | |||
17.40.30. | Graphics.ResetClip | |||
17.40.31. | Graphics.SetClip |