窗口界面编程之一：VB实现简单异形窗口
一、运行效果图（在Win8里的运行效果，在XP里运行就不能体现出来，因为我使用的XP的界面效果）
二、编译环境：Visual Basic 6.0 (SP6)
三、实现原理：通过区域合并
四、使用API函数：CreateRectRgn、CreateRoundRectRgn、CombineRgn、SetWindowRgn，其声明及说明如下：
函数：CreateRectRgn
声明：Declare Function CreateRectRgn Lib "gdi32" Alias "CreateRectRgn" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
说明：创建一个由点X1，Y1和X2，Y2描述的矩形区域
函数：CreateRoundRectRgn
声明：Declare Function CreateRoundRectRgn Lib "gdi32" Alias "CreateRoundRectRgn" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
说明：创建一个圆角矩形，该矩形由X1，Y1-X2，Y2确定，并由X3，Y3确定的椭圆描述圆角弧度
函数：CombineRgn
声明：Declare Function CombineRgn Lib "gdi32" Alias "CombineRgn" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
说明：将两个区域组合为一个新区域
函数：SetWindowRgn
声明：Declare Function SetWindowRgn Lib "user32" Alias "SetWindowRgn" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
说明：这是那些很难有人注意到的对编程者来说是个巨大的宝藏的隐含的API函数中的一个。本函数允许您改变窗口的区域。通常所有窗口都是矩形的——窗口一旦存在就含有一个矩形区域。本函数允许您放弃该区域。这意味着您可以创建圆的、星形的窗口，也可以将它分为两个或许多部分——实际上可以是任何形状。
五、开始动手：创建一个无标题栏无边框的窗口，载入一张图片作为窗口背景，使用Image控件作为按钮，在窗口加截函数中处理窗口区域，在窗口鼠标按下函数中加入移动消息，使用API函数CloseWindow实现最小化。
程序源码：
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As LongPrivate Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As LongPrivate Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As LongPrivate Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As LongPrivate Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function ReleaseCapture Lib "user32" () As LongDim rect, rgn, winxpstyle, minwindow, message As Long '声明变量Private Const RGN_AND = 1Private Const HTCAPTION = 2Private Const WM_NCLBUTTONDOWN = &HA1Private Sub Form_Load() ImageMin2.Visible = False ImageMin3.Visible = False ImageClose2.Visible = False ImageClose3.Visible = False winxpstyle = CreateRectRgn(0, 0, 0, 0) '创建一个空的区域 rect = CreateRectRgn(0, 0, 642, 480) '以左上角（0，0）为坐标，创建一个矩形区域 rgn = CreateRoundRectRgn(0, 0, 640, 491, 10, 10) '以左上角（0，0）为坐标，创建一个弧度为10的圆角矩形区域 CombineRgn winxpstyle, rect, rgn, RGN_AND '将rect、rgn以相交的方式（RGN_AND）进行合并到winxpstyle区域 DeleteObject rect '删除区域对像 DeleteObject rgn '删除区域对像 SetWindowRgn Me.hwnd, winxpstyle, True '将winxpstyle区域设置为窗口 DeleteObject winxpstyle '删除区域对像 Form1.AutoRedraw = True '设置自动重绘窗口End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ReleaseCapture SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0& '支持无标题栏窗口的移动End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ImageMin1.Visible = True ImageClose1.Visible = True ImageMin2.Visible = False ImageMin3.Visible = False ImageClose2.Visible = False ImageClose3.Visible = FalseEnd SubPrivate Sub ImageClose2_Click() Unload Me '释放窗口，关闭程序End SubPrivate Sub ImageClose1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ImageClose3.Visible = True ImageClose2.Visible = FalseEnd SubPrivate Sub ImageClose1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ImageClose2.Visible = True ImageClose1.Visible = FalseEnd SubPrivate Sub ImageMin2_Click() miniwindow = CloseWindow(Form1.hwnd) '最小化窗口End SubPrivate Sub ImageMin1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ImageMin3.Visible = True ImageMin2.Visible = FalseEnd SubPrivate Sub ImageMin1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ImageMin2.Visible = True ImageMin1.Visible = FalseEnd Sub
工程下载地址： http://download.csdn.net/detail/snowren3074/6469381
水梦雪
SnowEmail3074@163.com
