利用API函数实现VB特殊窗体两种方法.docVIP

利用API函数实现VB特殊窗体的两种方法.txt人生重要的不是所站的位置，而是所朝的方向。不要用自己的需求去衡量别人的给予，否则永远是抱怨。利用API函数实现VB特殊窗体的两种方法 　　 在VB集成开发环境（IDE）中，设计程序时所新建、添加的窗体都是矩形的。如果出于某种需要，想让窗体在运行时呈现出特殊的形状，就必须借助API函数编写相应的代码。 　　[方法一]使用区域创建函数 　　常用的区域创建函数有： 　　CreateEllipticRgn 　　创建一个椭圆或圆形区域 　　CreateRoundRectRgn 　　创建一个圆角矩形区域 　　CreatePolygonRgn 　　创建一个由一系列点围成的区域 　　CombineRgn 　　将两个区域组合为一个新区域 　　SetWindowRgn 　　设置新的窗口区域。 　　通过CombineRgn可以取两个区域的并集、交集等组合，从而创建出复杂形状的窗体。例如，以下程序得到的窗体形状为两个相连的月牙形： 　　例程1 　　Option Explicit 　　API声明 　　Private Declare Function CreateEllipticRgn Lib“gdi32 _ 　　ByVal x1 As Long, ByVal Y1 As Long, _ 　　ByVal x2 As Long, ByVal Y2 As Long) As Long 　　Private Declare Function CombineRgn Lib “gdi32 _ 　　(ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, _ 　　ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long 　　Private Declare Function SetWindowRgn Lib “user32 _ 　　（ByVal hWnd As Long, ByVal hRgn As Long, _ 　　ByVal bRedraw As Boolean) As Long 　　常数声明 　　Const RGN_XOR = 3 　　Private Sub Form_Load() 　　Dim Rgn1, Rgn2 　　Rgn1 = CreateEllipticRgn(100, 100, 400, 400) 　　Rgn2 = CreateEllipticRgn(200, 100, 500, 400) 　　CombineRgn Rgn1, Rgn1, Rgn2, RGN_XOR 　　SetWindowRgn hWnd, Rgn1, 1 　　End Sub 　　[方法二]使用BeginPath、EndPath、TextOut、PathToRegion等函数 　　BeginPath函数调用启动一个路径分支，在这个命令后执行的GDI绘图命令会自动成为路径的一部分，Windows95中合法的路径函数有文本绘图函数TextOut、绘制多边形函数Polygon等。 　　EndPath函数用于结束定义一个路径，如果调用成功，BeginPath函数和它之间发生的所有绘图操作都将在指定设备场景的路径中生效。BeginPath函数一般与EndPath函数成对出现。 　　PathToRegion函数调用将当前选定的路径转换到指定区域中。 　　TextOut函数的声明如下： 　　Declare Function TextOut Lib “gdi32 Alias“TextOutA (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long 　　参数说明如下： 　　hdc ：设备场景的句柄 ； 　　x,y ：绘图的起点，采用逻辑坐标 ； 　　lpString：欲绘制的字串 ； 　　nCount：字串中要绘制的字符数量，一个汉字的字符数量为2 。 　　以下程序生成一个宋体的“国”字形的窗体： 　　例程2 　　Option Explicit 　　类型声明 　　Private Type RECT 　　Left As Long 　　Top As Long 　　Right As Long 　　Bottom As Long 　　End Type 　　API声明 　　Private Declare Function BeginPath Lib “gdi32 _ 　　 （ByVal hdc As Long) As Long 　　Private Declare Function TextOut Lib