vb窗口形状改变.doc

用VB.NET设计各种形状的窗体界面窗体是程序设计最常见，最普通，也是最容易受到程序员忽视的编程对象。一般来说，在Visual Basic.Net针对窗体的编程是不需要人为介入的，因为可视化编程工具Visual Studio.Net已经按照窗体的缺省状态实现了。但是在最近遇到的应用程序中。我们发现越来越多的应用程序中使用到各种不同规则的窗体，这些不同规则的窗体给应用程序带来异常的情趣和不同平常的效果的同时，也促使使用者思考这样一个问题，如何创建这些窗体？在Visual Basic.Net中提供了一种简单、直接创建不规则窗体的方法，本文的主要内容就是探讨一下这些方法具体的实现过程。下面就来详细介绍在VisualBasic.Net中实现五种不同规格窗体的方法，即：椭圆形、扇形、圆形、环形和三角形。掌握了这五种不同形状窗体的实现方法后，我想对于其他规则的窗体就不应该有什么问题了。Visual Basic .Net中创建、使用MDI窗体也是本文的重要内容之一，MDI是Multi DocumentInterface的简称，即：多文档界面，MDI最早出现于Windows2.0中，最先使用到MDI的应用程序是Excel电子表格。为了方便使用者同时能够操作多份电子表格，Excel就采用了MDI来解决这个问题。到了Windows3.1中，MDI在应用程序中得到了更大范围的应用。其中Windows3.1中的程序管理器和文件管理器都采用了MDI。目前MDI在应用程序中依然被广泛采用。下面就首先来介绍一下Visual Basic.Net创建不规则窗体的相关知识和具体实现方法。: n# ( 2 D - Q& , W1 G, 6 _- q) n6 N1 E& J一简介Visual Basic .Net中定制不规则窗体时使用的类库：8 t( E- F) I- K, X7 h. M- KVisual Basic.Net中定制不规则窗体主要使用到Region类和GraphicsPath类，其中以GraphicsPath类最为重要。GraphicsPath类和Region类分别位于.Net FrameWorkSDK中的System.Drawing.Drawing2D命名空间和System.Drawing命名空间。在Visual Basic.Net中具体实现各种不规则窗体的过程中，GraphicsPath主要作用是根据程序员的要求，通过GraphicsPath中提供的方法绘制不同规则的形状。Region的主要作用是依靠GraphicsPath实例来初始化Region对象，从而形成不规则窗体。其具体的实现过程是，首先通过GraphicsPath类构造函数创建GraphicsPath实例，然后通过GraphicsPath中提供的方法按照程序员的要求绘制形状，最后以GraphicsPath实例来初始化Region对象。完成不规则窗体。可见了解、掌握GraphicsPath类对于理解本文介绍的实现方法是非常必要的。表01和表02分别是GraphicsPath类的常用方法和常用属性及其说明：8 K6 I1 ) p4 D: ! n- r+ G: d6 i0 * p- G1 r 1 b+ H1 w/ N/ K6 T, j在本文用Visual Basic.Net实现的椭圆形、扇形、圆形、环形和三角形等形状窗体中就使用到GraphicsPath中的AddEllipse方法（绘制椭圆形）、AddPie方法（绘制扇形）、AddLine方法（绘制直线）等方法。GraphicsPath中提供了丰富的方法，这对实现更复杂的窗体形状是非常有用的，但完全掌握这些方法的使用方法也需要花费大量的时间和精力。属性说明FillMode获取或设置一个FillMode枚举，它确定此PathData获取一个PathData对象，它封装此GraphicsPath实例的点（points）和类型（types）的数组。PathPoints获取路径中的点。PathTypes获取PathPoints数组中相应点的类型。PointCount获取PathPoints或PathTypes数组中的元素数。表02：GraphicsPath类中的常用属性及其说明方法说明AddArcGraphicsPath向当前图形追加一段椭圆弧。AddBezierGraphicsPath向当前图形添加一段立方贝塞尔曲线。AddBeziersGraphicsPath向当前图形添加一系列相互连接的立方贝塞尔曲线。AddClosedCurveGraphicsPath向此路径添加一个闭合曲线。由于曲线经过数组中的每个点，因此使用基数样条曲线。AddCurveGraphicsPath向当前图形添加一段样条曲线。由于曲线经过数组中的每个点，因此使用基数样条曲线。AddEllipseGraphicsPath向当前路径添加一个椭圆。AddLineGraphicsPath向此GraphicsPath实例追加一条线段。AddLinesGraphicsPath向此GraphicsPath实例末尾追加一系列相互连接的线段。AddPath将指定的GraphicsPath实例追加到该路径。AddPieGraphicsPath向此路径添加一个扇形轮廓。AddPolygonGraphicsPath向此路径添加多边形。AddRectangleGraphicsPath向此路径添加一个矩形。AddRectanglesGraphicsPath向此路径添加一系列矩形。AddStringGraphicsPath向此路径添加文本字符串。ClearMarkers清除此路径的所有标记。Clone创建此路径的一个精确副本。CloseAllFigures闭合此路径中所有开放的图形并开始一个新图形。它通过连接一条从图形的终结点到起始点的直线，闭合每一开放的图形。CloseFigure闭合当前图形并开始新的图形。如果当前图形包含一系列相互连接的直线和曲线，该方法通过连接一条从终结点到起始点的直线，闭合该环回。FlattenGraphicsPath将此路径中的各段曲线转换成相连的线段序列。GetBoundsGraphicsPath返回限定此GraphicsPath实例的矩形。GetLastPoint获取此GraphicsPath实例PathPoints数组中的最后的点。IsOutlineVisibleGraphicsPath指示当使用指定的Pen对象绘制此GraphicsPath实例时，指定点是否包含在后者的轮廓内。IsVisibleGraphicsPath指示指定点是否包含在此GraphicsPath实例内。Reset清空PathPoints和PathTypes数组并将FillMode设置为Alternate。Reverse反转此GraphicsPath实例的PathPoints数组中各点的顺序。SetMarkers在此GraphicsPath实例上设置标记。StartFigure不闭合当前图形即开始一个新图形。后面添加到该路径的所有点都被添加到此新图形中。Transform将变形矩阵应用到此GraphicsPath实例。WarpGraphicsPath对此GraphicsPath实例应用由一个矩形和一个平行四边形定义的扭曲变形。WidenGraphicsPath在用指定的画笔绘制此路径时，用包含所填充区域的曲线代替此路径。AddArcGraphicsPath向当前图形追加一段椭圆弧。AddBezierGraphicsPath向当前图形添加一段立方贝塞尔曲线。表01：GraphicsPath类的常用方法及其说明二Visual Basic .Net中定制不规则窗体的具体步骤：) a# o! - r% S8 I正如前文所说在Visual Basic .Net定制不同规则的窗体是比较容易的，再了解了上面内容后，下面就是在Visual Basic .Net实现椭圆形、扇形、圆形、环形和三角形等五种形状窗体的具体实现步骤：$ 5 O1 ZR* x; Y- Q+ 6 E$ 5 Q$ # l! T0 Y/ n2 D0 f1. 启动Visual Studio .Net。# F# b2 J9 P& s7 v! U2. 选择菜单【文件】|【新建】|【项目】后，弹出【新建项目】对话框。/ E0 D! E! s9 Y1 ?% 3. 将【项目类型】设置为【Visual Basic项目】。0 nd- I& r3 e1 k% H4. 将【模板】设置为【Windows应用程序】。; Z4 l, 3 T, ?8 B2 d8 j5 ) a8 D- 5. 在【名称】文本框中输入【VB.NET中定制不规则窗体】。; F/ . S2 b* L2 s* m9 e) P c! Y9 W/ g. q) f- E6.在【位置】的文本框中输入【E:VS.NET项目】，然后单击【确定】按钮，这样在E:VS.NET项目目录中就产生了名称为VB.NET中定制不规则窗体的文件夹，并在里面创建了名称为VB.NET中定制不规则窗体的项目文件。具体如图01所示：图01：【VB.NET中定制不规则窗体】新建项目对话框7. 把Visual Studio .Net的当前窗口切换到【Form1.vb（设计）】窗口，并从【工具箱】中的【Windows窗体组件】选项卡中往Form1窗体中拖入下列组件，并执行相应的操作：7 D m9 A1 ?1 E6 x/ ?$ D2 e! J% K/ X( k E! _3 G3 ?& ; R五个Button组件，用以定制五种不同形状窗体，并在这个Button组件拖入Form1的设计窗体后，双击它们，则系统会在Form1.vb文件分别产生这五个组件的Click事件对应的处理代码。$ S1 g A1 O2 + ; l% . K Y/ 4. 在上述组件拖入窗体后，分别按照图02所示排列并设置窗体中的各组件：9 T+ w/ E. & / f( Y+ G) Z4 ; ?! t7 _) d图02：【VB.NET中定制不规则窗体】项目的设计界面$ B, s/ : P* m. + B% E 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.ClickDim p As System.Drawing.Drawing2D.GraphicsPath = NewSystem.Drawing.Drawing2D.GraphicsPath ( )% O. ( |, R% y7 * lDim Width As Integer = Me.ClientSize.Width x# j2 X?! A8 p* _Dim Height As Integer = Me.ClientSize.Height# 4 W( a& W- S) R) y/ p.AddEllipse ( 0 , 20 , Width - 50 , Height - 100 )3 X$ E) % a$ m$ P根据要绘制椭圆的形状来填写AddEllipse方法中椭圆对应的相应参数# L0 J/ A2 r. A; b Region = New Region ( p )End Sub9. 用下列代码替换Form1.vb中的Button2的Click事件对应的处理代码，下列代码功能是改变当前窗体形状为扇形：: Z: q- R( c9 x$ J$ c5 k0 d. ; e+ g. APrivate Sub Button2_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button2.ClickDim p As System.Drawing.Drawing2D.GraphicsPath = New System.Drawing.Drawing2D.GraphicsPath ( )0 T( K( Y e; 0 Dv0 n9 lp.AddPie ( 10 , 10 , 250 , 250 , 5 , 150 )* 1 j2 I1 I* h5 F7 根据要实现的扇形形状来填写AddPie方法中的相应参数8 w6 A J1 G& U2 3 |& KMe.Region = New Region ( p )0 R; N) Y% 6 qEnd Sub10. 用下列代码替换Form1.vb中的Button3的Click事件对应的处理代码，下列代码功能是改变当前窗体形状为圆形：* ; q# b* B! T0 z! h/ V! _$ APrivate Sub Button3_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button3.Click% 8 $ K1 C) P xDim p As System.Drawing.Drawing2D.GraphicsPath = New System.Drawing.Drawing2D.GraphicsPath ( )Dim Width As Integer = Me.ClientSize.WidthDim Height As Integer = Me.ClientSize.Heightp.AddEllipse ( 0 , 0 , Height , Height )Me.Region = New Region ( p )2 r H: D% sv) m b2 r圆形即是椭圆的一种特例，5 T. O0 Z0 L% Ix7 I5 ) F# ZEnd Sub0 R5 D: h4 F1 A. W11. 用下列代码替换Form1.vb中的Button4的Click事件对应的处理代码，下列代码功能是改变当前窗体形状为环形：1 p b0 Q$ t: 1 C4 dPrivate Sub Button4_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button4.Click1 x* w$ h/ / N! g( y: 4 u) UDim p As System.Drawing.Drawing2D.GraphicsPath = New System.Drawing.Drawing2D.GraphicsPath ( )1 l y5 x: ) KK5 L5 s% H* |Dim Height As Integer = Me.ClientSize.HeightDim width As Integer = 1009 w( C( ( n7 W: U2 L8 V5 Y; Lp.AddEllipse ( 0 , 0 , Height , Height )p.AddEllipse ( width , width , Height - ( width * 2 ) , Height - ( width * 2 ) )根据环形的形状来分别填写AddEllipse方法中相应的参数) sq, F D$ z1 e* D5 G1 YMe.Region = New Region ( p ), S7 k4 j3 E% l+ C8 h7 S! aEnd Subj7 J3 |n W/ e# a12. 用下列代码替换Form1.vb中的Button5的Click事件对应的处理代码，下列代码功能是改变当前窗体形状为三角形：Private Sub Button5_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button5.ClickDim 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 )5 M% 4 N3 u1 K( t9 l根据三角形的形状特征来分别填写AddLine方法中相应的参数: v+ 5 . E& i( s( D% K7 O( G& U pMe.Region = New Region ( p ) f5 c & c7 z3 v+ |* sEnd Sub- y1 T: nw9 n3 V& SM1 V13. 至此在上述步骤都正确完成后，【VB.NET中定制不规则窗体】项目的全部工作就基本完成了。此时单击快捷键F5运行程序，单击【VB.NET中定制不规则窗体】中的【椭圆形】按钮，则会得到图03所示的运行界面： $ W; A! a2 t& x图03：【VB.NET中定制不规则窗体】项目运行界面之一单击【VB.NET中定制不规则窗体】中的【扇形】按钮，则会得到图04所示的运行界面：3 ?6 W5 Q7 _; K( v( s5 ( x/ W, B4 $ y* h, e# qS: n( L2 y8 i图04：【VB.NET中定制不规则窗体】项目运行界面之二w0 ma: x, p: + ?0 e单击【VB.NET中定制不规则窗体】中的【圆形】按钮，则会得到图05所示的运行界面：图05：【VB.NET中定制不规则窗体】项目运行界面之三+ b: e: H# q0 p单击【VB.NET中定制不规则窗体】中的【环形】按钮，则会得到图06所示的运行界面：0 j. c8 % w: A p图06：【VB.NET中定制不规则窗体】项目运行界面之四单击【VB.NET中定制不规则窗体】中的【三角形】按钮，则会得到图07所示的运行界面：8 U$ G* x/ 4 3 i图07：【VB.NET中定制不规则窗体】项目运行界面之五三Form类和MenuItem类中和MDI相关的属性和方法：; T, K3 I+ M, X+ j( h接下来就来介绍了Visual Basic .Net中创建、使用MDI窗体的相关知识和具体的实现方法。Visual Basic.Net为编写MDI程序提供了强大支持，使得程序员编写一个MDI程序是那么的方便，最能表现Visual Basic.Net对MDI支持的地方是窗体（Form组件）和菜单（MenuItem组件），只需对这二个组件的某些属性进行设置，就能够完成其他语言在编写MDI程序时要花费很多精力才能够实现的工作。首先简要介绍一下这二个组件对应.Net FrameWorkSDK中的System.Windows.Forms命名空间中的Form类和MenuItem类中提供了的实现MDI的方法和属性。也正是由于在Form类和MenuItem类中提供了很多和MDI相关的属性和方法，才使得在Visual Basic.Net编写MDI应用程序那么方便，下面是这二个类中和MDI相关的属性、方法及其说明。7 W% S7 j % V3 yi% |# u属性说明IsMdiChild获取一个值，该值指示该窗体是否为MDI子窗体。IsMdiContainer获取或设置一个值，该值指示窗体是否为MDI子窗体的容器。MdiChildren获取窗体的数组，这些窗体表示以此窗体作为父级的MDI子窗体。MdiParent获取或设置此窗体的当前MDI父窗体。表03：Form类中和MDI相关的属性及其说明9 Ln% 4 k( e+ J5 M q( g& I p; J其中和MDI编程相关最为重要的属性是IsMdiChild和MdiParent。Form类中虽然只提供了一个和MDI编程相关的方法，但此方法功能比较强大，它能够方便的实现对MDI父窗体中的所有MDI子窗体进行四种不同的排列：层叠、水平平铺、垂直平铺、排列图标，这个方法就是LayoutMdi。& y7 |) T8 k n4 m0 . y& z9 x. dLayoutMdi方法只有一个参数，此参数类型是MdiLayout枚举，MdiLayout枚举有四个值分别对应MDI父窗体中所有MDI子窗体的四种排列方式，MdiLayout枚举成员、其对应数值和说明如表04所示： m Y: o3 N9 j. - H, b6 ( x- K& |* a1 i0 N( o5 h0 ZMdiLayout枚举成员数值说明Cascade0层叠排列TileHorizontal1横行平铺TileVertical2纵向平铺ArrangeIcons3排列图标表04：MdiLayout枚举成员及其说明/ E, C* g9 7 |0 X( f! |% 0 u4 hMenuItem类中可用以实现MDI程序的组成成员虽然非常少，但所起的作用却是非常强大，表05所示是MenuItem类中用以MDI编程的属性及其说明：: 6 a) J; V9 H) Q) E+ q+ g& a( ?; i9 q属性说明MdiList获取或设置一个值，通过该值指示是否使用在相关联窗体内显示的MDI子窗口列表来填充菜单项。MdiListItem获取一个值，通过该值指示用于显示MDI子窗体列表的MenuItem。表05：MenuItem类中用以MDI编程的属性及其说明其中MdiList属性在MDI编程中非常重要，这一点将在后面介绍的示例中得以体现。; i9 x + C8 L i / 1 F5 5 p5 r; |8 C四Visual Basic .Net编写MDI应用程序的基本步骤：) q0 p* j) # E% d/ / d, 在下面介绍的示例基本囊括了MDI应用程序的主要特征，其实现步骤也可以说是Visual Basic.Net编写MDI程序基本步骤。在下面的实现步骤中，没有烦杂的代码，更多的是对组件属性值的设置，提供设置组件的属性，有时能够实现看似需要很多代码才能够实现的工作。当然设置组件的属性对编写MDI应用程序也是非常重要的，缺一步都可能会影响后面程序的正确运行。+ F* x- f5 l f9 R$ g5 c; S3 下面是Visual Basic .Net编写MDI应用程序的基本步骤：# p) y0 H. X( z- C7 o0 N& ( l, I0 U5 t5. 启动Visual Studio .Net。6. 选择菜单【文件】|【新建】|【项目】后，弹出【新建项目】对话框。2 t6 D9 H, M4 h4 s6 6 D% F/ k% $ 7. 将【项目类型】设置为【Visual Basic项目】。# M% % J; ?7 k: F, 5 G9 9 J8. 将【模板】设置为【Windows应用程序】。; q- v! Q* g# T8 _! V% 9. 在【名称】文本框中输入【MDI编程】。10. 在【位置】的文本框中输入【E:VS.NET项目】，然后单击【确定】按钮，这样在E:VS.NET项目目录中就产生了名称为MDI编程的文件夹，并在里面创建了名称为MDI编程的项目文件。/ 5 f- ; U! d i d0 h9 Y- p3 b- ?6 _% a) ?$ eN- 11. 把Visual Studio .Net的当前窗口切换到【Form1.vb（设计）】窗口，并从【工具箱】中的【Windows窗体组件】选项卡中往Form1窗体中拖入下列组件：7 b A1 E& v$ ?* W* d 一个MainMenu组件。12. 结合上一节介绍的方法，通过Visual Basic .Net的菜单设计器，按照图08和图09所示的菜单结构设计菜单。( . $ f, l. 4 J4 B4 bw6 K4 _3 j图08：【MDI编程】项目的菜单结构之一图09：【MDI编程】项目的菜单结构之二13. 在利用菜单设计器设计完菜单后，分别在窗体中双击新建、退出、层叠显示、横行平铺、纵向平铺和排列图标菜单项，这样Visual Basic .Net会在Form1.vb文件中分别产生这些菜单项的Click事件对应的处理代码。7 n: z- l0 |+ _6 Q1 & X( b14. 设定Form1的IsMdiContainer属性值为True，这把Form1窗体定义为MDI窗体容器，这一步设置是后面编程的基础，当设置此属性值后，Form1的窗体也发生了改变，图10是设置此属性后的窗体模样：# X+ x K: 7 ) k5 |! 5 Y7 A图10：把Form1窗体设置为MDI窗体容器后的模样15.选中图03中的窗口菜单项，并设置此菜单项的MdiList属性值为True。其作用是当程序运行后，如果新建了一个MDI窗体，就会在窗口菜单项后，自动加入一个以新建MDI窗体名称命名的菜单项，如果新建了多个MDI窗体，则会在窗口菜单项后，会加入以这些MDI窗体名称命名的菜单项。当MDI窗体被关闭，那些以此MDI窗体命名的菜单项也会自动删除。具体可图06所示。k& j9 c3 s8 q16. 把Visua Basic .Net的当前窗口切换到Form1.vb的代码编辑窗口，并在定义Form1中组件的代码区加入下列代码，下列代码是定义一个变量，此变量用以统计程序中新建MDI窗体的数量：- v9 p7 8 Y2 t0 x$ f. d( |Private iFormCount As Integer = 117. 用下列代码替换Form1.vb中的MenuItem2的Click事件对应的处理代码，MenuItem2即为图01中的新建菜单项，下列代码的作用是在新建一个MDI窗体：c i v( ; O6 s: c! fPrivate Sub MenuItem2_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles MenuItem2.ClickDim frmTemp As Form = New Form ( ). * Z N8 ; i& g2 t2 U O新建一个窗体frmTemp.MdiParent = Me7 X& V- X) E5 为当前创建的窗体设置MDI父窗体/ ) l1 H$ y* ( & S1 S6 T, frmTemp.Text = MDI窗体 + iFormCount.ToString ( )d. v4 E, X: W& biFormCount = iFormCount + 11 r; g. w5 r3 J( i: wfrmTemp.Show ( )把此MDI窗体显示出来4 G4 % j0 U, J; X% P2 PEnd Sub$ 8 E # U9 3 y E- c2 18. 用下列代码替换Form1.vb中的MenuItem3的Click事件对应的处理代码，MenuItem3即为图08中的退出菜单项，下列代码的作用是退出应用程序：8 D; _9 8 T8 R9 a: m6 |* % P0 Y$ z. APrivate Sub MenuItem3_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles MenuItem3.Click2 c6 o( h6 K, 2 w- NApplication.Exit ( )退出应用程序6 lg0 wV$ Q- HEnd Sub+ f* A$ rJ! l J8 I6 y19. 用下列代码替换Form1.vb中的MenuItem5的Click事件对应的处理代码，MenuItem5即为图09中的层叠显示菜单项，下列代码的作用是层叠排列窗体中的所有MDI窗体：& i! e6 ) s6 h4 ?6 LPrivate Sub MenuItem5_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles MenuItem5.ClickMe.LayoutMdi ( MdiLayout.Cascade )层叠排列窗体中的所有MDI窗体# u% L) ! q4 A& J% hEnd Sub20. 用下列代码替换Form1.vb中的MenuItem6的Click事件对应的处理代码，MenuItem6即为图09中的水平平铺菜单项，下列代码的作用是水平平铺窗体中的所有MDI窗体：- U2 $ c* i0 Q$ X% r& 0 a& ?8 KPrivate Sub MenuItem6_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles MenuItem6.ClickJ?3 x0 W& w7 b# pMe.LayoutMdi ( MdiLayout.TileHorizontal )! X q7 l b* G/ a6 w1 R5 g水平平铺窗体中的所有MDI窗体* M J o% a/ u9 N3 S( g( e. SEnd Sub6 K5 F& w8 1 Q3 a21. 用下列代码替换Form1.vb中的MenuItem7的Click事件对应的处理代码，MenuItem7即为图09中的垂直平铺菜单项，下列代码的作用是垂直平铺窗体中的所有MDI窗体：7 F2 A4 C5 ( q6 O* c# y2 2 a4 j+ * N7 X1 ) 8 G& nPrivate Su