二．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 |
|
|
