11. 用下列代码替换Form1.vb中的Button4的Click事件对应的处理代码，下列代码功能是改变当前窗体形状为环形：
Private Sub Button4_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button4.Click
Dim p As System.Drawing.Drawing2D.GraphicsPath = New System.Drawing.Drawing2D.GraphicsPath ( )
Dim Height As Integer = Me.ClientSize.Height
Dim width As Integer = 100
p.AddEllipse ( 0 , 0 , Height , Height )
p.AddEllipse ( width , width , Height - ( width * 2 ) , Height - ( width * 2 ) )
'根据环形的形状来分别填写AddEllipse方法中相应的参数
Me.Region = New Region ( p )
End Sub |
12. 用下列代码替换Form1.vb中的Button5的Click事件对应的处理代码，下列代码功能是改变当前窗体形状为三角形：
Private Sub Button5_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button5.Click
Dim p As System.Drawing.Drawing2D.GraphicsPath = New System.Drawing.Drawing2D.GraphicsPath ( )
p.AddLine ( 0 , 0 , 250 , 150 )
p.AddLine ( 250 , 150 , 0 , 300 )
p.AddLine ( 0 , 0 , 0 , 300 )
'根据三角形的形状特征来分别填写AddLine方法中相应的参数
Me.Region = New Region ( p )
End Sub |
13. 至此在上述步骤都正确完成后，【VB.NET中定制不规则窗体】项目的全部工作就基本完成了。此时单击快捷键F5运行程序，单击【VB.NET中定制不规则窗体】中的【椭圆形】按钮，则会得到图03所示的运行界面：
 图03：【VB.NET中定制不规则窗体】项目运行界面之一 |
单击【VB.NET中定制不规则窗体】中的【扇形】按钮，则会得到图04所示的运行界面：
 图04：【VB.NET中定制不规则窗体】项目运行界面之二 |
单击【VB.NET中定制不规则窗体】中的【圆形】按钮，则会得到图05所示的运行界面：
 图05：【VB.NET中定制不规则窗体】项目运行界面之三 |
单击【VB.NET中定制不规则窗体】中的【环形】按钮，则会得到图06所示的运行界面：
 图06：【VB.NET中定制不规则窗体】项目运行界面之四 |
单击【VB.NET中定制不规则窗体】中的【三角形】按钮，则会得到图07所示的运行界面：
 图07：【VB.NET中定制不规则窗体】项目运行界面之五 |
|
|
