Private Sub cmdDonut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDonut.Click
Static hasNormalRegion As Boolean = True
If hasNormalRegion Then
Dim p As New Drawing2D.GraphicsPath()
Dim bigDiameter As Integer = Me.ClientSize.Height
Dim donutWidth As Integer = 100
p.AddEllipse(0, 0, bigDiameter, bigDiameter)
p.AddEllipse(donutWidth, donutWidth, bigDiameter - (donutWidth * 2), bigDiameter - (donutWidth * 2))
Me.Region = New Region(p)
Else
Me.Region = Nothing
End If
hasNormalRegion = Not hasNormalRegion
End Sub
posted on Wednesday, February 16, 2005 8:53 AM