#t#本人很喜歡VB.NET，在工作中也很喜歡總結關于VB.NET特殊形狀窗體的經驗教訓，下面就這個問題來詳細說說吧。我們的目的是實現VB.NET特殊形狀窗體，VB6中實現（借助API函數）做一個古怪的窗口必須要用的也是此程序中最重要的一個函數就是SetWindowRgn它的功能就是對指定的窗口進行重畫，把這個窗口你選擇的部分留下其余的部分抹掉。

VB.NET特殊形狀窗體參數：
◆hWnd：你所要重畫的窗口的句柄，比如你想重畫form1則應該讓此參數為form1.hWnd
◆hRgn：你要保留的區域的句柄，這個句柄是關鍵，你需要通過別的渠道來獲得在這里的區域是由Combinergn合成的新區域
◆bRedram：是否要馬上重畫，一般設為true
◆函數CombineRgn將兩個區域組合為一個新區域
◆函數Createrectrgn為創建一個由點X1，Y1和X2，Y2描述的矩形區域
◆函數CreateEllipticRgn為創建一個X1，Y1和X2，Y2的橢圓區域用DeleteObject這個函數可刪除GDI對象，比如畫筆、刷子、字體、位圖、區域以及調色板等等。對象使用的所有系統資源都會被釋放。

以下是VB6的代碼：

PrivateDeclareFunction CreateEllipticRgn Lib "gdi32" (ByVal X1 AsLong, 
ByVal Y1 AsLong, ByVal X2 AsLong, ByVal Y2 AsLong) AsLong  
PrivateDeclareFunction CreateRectRgn Lib "gdi32" (ByVal X1 AsLong, 
ByVal Y1 AsLong, ByVal X2 AsLong, ByVal Y2 AsLong) AsLong  
PrivateDeclareFunction CombineRgn Lib "gdi32" (ByVal hDestRgn AsLong, 
ByVal hSrcRgn1 AsLong, ByVal hSrcRgn2 AsLong, ByVal nCombineMode AsLong) AsLong  
PrivateDeclareFunction SetWindowRgn Lib "user32" (ByVal hWnd AsLong, 
ByVal hRgn AsLong, ByVal bRedraw AsBoolean) AsLong  
PrivateDeclareFunction DeleteObject Lib "gdi32" (ByVal hObject AsLong) AsLong  
PrivateConst RGN_DIFF = 4 
 
PrivateSub Form_Load()  
Dim rgn AsLong  
Dim rgnRect AsLong  
Dim rgnDest AsLong  
 
rgn = CreateEllipticRgn(0, 0, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY)  
rgnRect = CreateRectRgn((Me.Width / Screen.TwipsPerPixelX - 20) / 2, 
(Me.Height / Screen.TwipsPerPixelY - 20) / 2, (Me.Width / Screen.TwipsPerPixelX + 20) / 2, 
(Me.Height / Screen.TwipsPerPixelY + 20) / 2)  
rgnDest = CreateRectRgn(0, 0, 1, 1)  
CombineRgn rgnDest, rgn, rgnRect, RGN_DIFF  
SetWindowRgn Me.hWnd, rgnDest, True  
Call DeleteObject(rgnRect)  
Call DeleteObject(rgnDest)  
EndSub  
 
PrivateSub Command1_Click()  
End  
EndSub 

在VB.NET中，我們可以使用.NET 框架類庫System.Drawing.Drawing2D的GraphicsPath 類（應用程序使用路徑來繪制形狀的輪廓、填充形狀內部和創建剪輯區域），來繪制圖形，然后通過VB.NET特殊形狀窗體的Me.Region來設置窗口的可見區域。

以下是VB.NET的代碼：

'聲明一個布爾型變量,判斷窗體是否正常區域  
Dim IsNormalRegion AsBoolean = True   
PrivateSub Button2_Click(ByVal sender As System.Object, 
_ByVal e As System.EventArgs) Handles Button2.Click  
If (IsNormalRegion) Then  
'構造一個GraphicsPath對象實例  
Dim Graphics AsNew System.Drawing.Drawing2D.GraphicsPath()  
Dim intHeight AsInteger = Me.Size.Height  
Dim intWidth AsInteger = Me.Size.Width  
'定義內矩形的左上角坐標  
Dim RectTop AsInteger = 100 
'在窗體上繪制一個大橢圓，左上角的坐標取為（0，0）  
Graphics.AddEllipse(0, 0, intWidth, intHeight)  
'再繪制一個小矩形  
Dim AddRect AsNew Rectangle(RectTop, RectTop, 
intHeight - (RectTop * 2), intHeight - (RectTop * 2))  
Graphics.AddRectangle(AddRect)  
'設置窗口的可見區域  
Me.Region = New Region(Graphics)  
Else  
Me.Region = Nothing 
EndIf  
IsNormalRegion = Not IsNormalRegion  
EndSub