用设计各种形状的窗体界面计划

2021-09-06 来源：黑龙江租房网

11. 用下列代码替换中的Button4的Click事件对应的处理代码，下列代码功能是改变当前窗体形状为环形：

Private Sub Button4_Click ( ByVal sender As ject , ByVal e As entArgs ) Handles ick

Dim p As aphicsPath = New aphicsPath ( )

Dim Height As Integer = ight

Dim width As Integer = 100

dEllipse ( 0 , 0 , Height , Height )

dEllipse ( width , width , Height - ( width * 2 ) , Height - ( width * 2 ) )

\'根据环形的形状来分别填写AddEllipse方法中相应的参数

gion = New Region ( p )

End Sub

12. 用下列代码替换中的Button5的Click事件对应的处理代码，下列代码功能是改变当前窗体形状为三角形：

Private Sub Button5_Click ( ByVal sender As ject , ByVal e As entArgs ) Handles ick

Dim p As aphicsPath = New aphicsPath ( )

dLine ( 0 , 0 , 250 , 150 )

dLine ( 250 , 150 , 0 , 300 )

dLine ( 0 , 0 , 0 , 300 )

\'根据三角形的形状特征来分别填写AddLine方法中相应的参数

gion = New Region ( p )

End Sub

13. 至此在上述步骤都正确完成后，【中定制不规则窗体】项目的全部工作就基本完成了。此时单击快捷键F5运行程序，单击【中定制不规则窗体】中的【椭圆形】按钮，则会得到图03所示的运行界面：

图03：【中定制不规则窗体】项目运行界面之一

单击【中定制不规则窗体】中的【扇形】按钮，则会得到图04所示的运行界面：

图04：【中定制不规则窗体】项目运行界面之二

单击【中定制不规则窗体】中的【圆形】按钮，则会得到图05所示的运行界面：

图05：【中定制不规则窗体】项目运行界面之三

单击【中定制不规则窗体】中的【环形】按钮，则会得到图06所示的运行界面：

图06：【中定制不规则窗体】项目运行界面之四

单击【中定制不规则窗体】中的【三角形】按钮，则会得到图07所示的运行界面：

进一步加强车内巡视力度图07：【中定制不规则窗体】项目运行界面之五