Die Paint Methode von Windows Forms überschreiben. (Aus einem Posting des dotnet-forums, mit freundlicher Genehmigung von Thomas Ritter).
Imports System.Drawing.Drawing2D
FormBorderStyle auf 'None' setzen!
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' Pfad anlegen
Dim path As New System.Drawing.Drawing2D.GraphicsPath
' Dem Pfad Bereiche hinzufügen, hier eine Ellipse
path.AddEllipse(New Rectangle(0, 0, 300, 100)) 'spielt mal mit den Werten, macht Spass
' Aus dem Pfad ein neues Region-Objekt erzeugen und dem
' Fenster als Clippingbereich zuweisen
Me.Region = New Region(path)
End Sub
Kommentare zum Snippet