至顶网›软件频道 ›基础软件›用VB.NET设计各种形状的窗体界面

用VB.NET设计各种形状的窗体界面

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

本文的主要内容就是探讨一下各种不规则窗体的实现过程

作者：马金虎来源：天极网 2007年11月9日

关键字：

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所示的运行界面：