7_2009-2012 Graphics/ Sound #234388

Clip edges of forms to give that rounded feel

Name: Clip edges of forms to give that rounded feel
Brand: Planet Source Code
SKU: PSC-234388
Availability: InStock
Rating: 4.8 (438 reviews)
Author: Dave Matthews

Dave Matthews

★★★★★

4.8 · Downloads: 2,341

This code will round the edges of your form to give that clipped/rounded look.

AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Source Code

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
 Dim Pth As New GraphicsPath(), pc As Decimal = 0.18
 Pth.AddEllipse(New Rectangle(-Me.Width * pc, -Me.Height * pc, Me.Width * (1 + 2 * pc), Me.Height * (1 + 2 * pc)))
 Me.Region = New Region(Pth)
End Sub

Original Comments (3)

Recovered from Wayback Machine