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

二．Visual Basic .Net中定制不规则窗体的具体步骤：

　　正如前文所说在Visual Basic .Net定制不同规则的窗体是比较容易的，再了解了上面内容后，下面就是在Visual Basic .Net实现椭圆形、扇形、圆形、环形和三角形等五种形状窗体的具体实现步骤：

　　1. 启动Visual Studio .Net。

　　2. 选择菜单【文件】|【新建】|【项目】后，弹出【新建项目】对话框。

　　3. 将【项目类型】设置为【Visual Basic项目】。

　　4. 将【模板】设置为【Windows应用程序】。

　　5. 在【名称】文本框中输入【VB.NET中定制不规则窗体】。

　　6. 在【位置】的文本框中输入【E:\VS.NET项目】，然后单击【确定】按钮，这样在"E:\VS.NET项目"目录中就产生了名称为"VB.NET中定制不规则窗体"的文件夹，并在里面创建了名称为"VB.NET中定制不规则窗体"的项目文件。具体如图01所示：


图01：【VB.NET中定制不规则窗体】新建项目对话框

　　7. 把Visual Studio .Net的当前窗口切换到【Form1.vb（设计）】窗口，并从【工具箱】中的【Windows窗体组件】选项卡中往Form1窗体中拖入下列组件，并执行相应的操作：

　　五个Button组件，用以定制五种不同形状窗体，并在这个Button组件拖入Form1的设计窗体后，双击它们，则系统会在Form1.vb文件分别产生这五个组件的Click事件对应的处理代码。

　　4. 在上述组件拖入窗体后，分别按照图02所示排列并设置窗体中的各组件：

图02：【VB.NET中定制不规则窗体】项目的设计界面

　　8. 把Visual Basic .Net当前窗口切换到Form1.vb的代码编辑窗口，并用下列代码替换Form1.vb中的Button1的Click事件对应的处理代码，下列代码功能是改变当前窗体形状为椭圆形：

Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click 　Dim p As System.Drawing.Drawing2D.GraphicsPath = New　System.Drawing.Drawing2D.GraphicsPath ( ) 　Dim Width As Integer = Me.ClientSize.Width 　Dim Height As Integer = Me.ClientSize.Height 　p.AddEllipse ( 0 , 20 , Width - 50 , Height - 100 ) 　'根据要绘制椭圆的形状来填写AddEllipse方法中椭圆对应的相应参数 　Region = New Region ( p ) End Sub

　　9. 用下列代码替换Form1.vb中的Button2的Click事件对应的处理代码，下列代码功能是改变当前窗体形状为扇形：

Private Sub Button2_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button2.Click Dim p As System.Drawing.Drawing2D.GraphicsPath = New System.Drawing.Drawing2D.GraphicsPath ( ) p.AddPie ( 10 , 10 , 250 , 250 , 5 , 150 ) '根据要实现的扇形形状来填写AddPie方法中的相应参数 Me.Region = New Region ( p ) End Sub

　　10. 用下列代码替换Form1.vb中的Button3的Click事件对应的处理代码，下列代码功能是改变当前窗体形状为圆形：

Private Sub Button3_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button3.Click 　Dim p As System.Drawing.Drawing2D.GraphicsPath = New 　System.Drawing.Drawing2D.GraphicsPath ( ) 　Dim Width As Integer = Me.ClientSize.Width 　Dim Height As Integer = Me.ClientSize.Height 　p.AddEllipse ( 0 , 0 , Height , Height ) 　Me.Region = New Region ( p ) 　'圆形即是椭圆的一种特例， End Sub