精彩编程与编程技巧-利用API函数实现VB特殊窗体的两种方法...

利用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
　　'常数声明