用Visual Basic创建高科技窗体
那不是窗体！
有时候你会偶尔遇到一个windows应用程序，它不像普通windows应用程序。你知道我是什么意思。Windows应用程序是矩形的用户界面。正是如此。但有时，你会看到一个应用程序具有圆形的角，甚至有时具有近乎疯狂的奇异形状的窗体，根本就不像一个windows应用程序。拿Net2Phone 10.6.2作为例子，这两个顶端的窗体看起来妖艳多姿。但实际上，他们仅仅是两个“L”形状的窗体（图一所示）。如果你同意我的观点，无论什么时候你遇到类似令你惊异、不知道如何为你自己创建如此玉石般的窗体时，你肯定认为不会用VB去做，不是吗？
好，下面有一些好消息：事实上，用VB窗体你可以创建任何眼睛见到的、大脑想象的窗体形状。你甚至可以创建中间有洞的窗体，或者创建一些由相互分离的区域组成的窗体。
不好的是，你不能仅仅用VB进行创建。需要的功能依赖于windows图形用户接口，这些
VB不具有。为了得到这些，你需要windows API调用。
图一：一个自定义窗体样式的例子
Region的基本原理
创建一个高科技的窗体的秘密是一个叫做Region的技术。一个Region就是计算机显示器的一个区域。Windows应用程序用Region在屏幕上绘制输出和执行点击测试（测试光标的位置）。简单来说，一个Region就是几个特定的输入输出能够在显示器上发生的区域。GDI
构造了三种可用的Region：矩形、椭圆形和多边形。API调用用于创建和操纵Region。
所以在VB窗体里需要做什么呢？很简单，每一个窗体都是在Region里边被绘制出的。事实上，每一个窗口都是在Region里被绘制的。你可能知道，windows操作系统定义了一个窗口作为一个区域，该区域接收该应用程序的输入，并且显示输出。听起来非常类似于定义一个Region。事实上，窗口是比Region复杂得多的。窗口可以呈现多种外观：窗体、按钮、文本框等等。然而总的来说，窗口被绘制在一个Region里边。所以我们可以说，每一个窗口拥有一个Region，所以VB窗体拥有一个Region。
通常情况下，一个窗体被绘制在一个矩形的Region里。事实上，VB帮助里边基本不谈论Region。操作系统自动为每一个窗体分派一个矩形Region。VB并不提示你去改变这些。因此，在设计模式里，你必须经常以矩形窗体工作。但是在少许简单的API的帮助下，你可以在运行的时候改变个窗体的Region。
以圆形运行
让我们看看最简单的二者选其一的Region，一个椭圆。Windows操作系统提供了一个函数CreateEllipticRgn，该函数提供一个矩形的左上角和右下角坐标。该函数记下了一个在此矩形里边的一个椭圆，用来创建需要的Region。
一旦你得到这个Region的句柄，你要把它指派到你的窗体里。为此，用CreateEllipticRgn函数，该函数把句柄提供给窗口和Region，还要提供一个布尔型的声明，用以确定当分派
Region后窗口是否重绘。通常情况下，你想把最后一个声明设为TRUE，下面是这些代码：
Public Declare Function CreateEllipticRgn _
Lib "gdi32" (ByVal X1 As Long, _
ByVal Y1 As Long, _
ByVal X2 As Long, _
ByVal Y2 As Long) As Long
Public Declare Function SetWindowRgn _
Lib "user32" (ByVal hWnd As Long, _
ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long
Public Sub CreateEllipseFromWindow(ByRef oWindow As Object)
Dim lRight As Long
Dim lBottom As Long
Dim hRgn As Long
With oWindow
lRight = .Width / Screen.TwipsPerPixelX
lBottom = .Height / Screen.TwipsPerPixelY
hRgn = CreateEllipticRgn(0, 0, lRight, lBottom)
SetWindowRgn .hWnd, hRgn, True
End With
End Sub
Private Sub Form_Load()
CreateEllipseFromWindow Me
End Sub
应当注意到在这些代码中，要用到左上角和右下角的坐标作为椭圆的基础。当工程启动以后，该窗体最初有我们在设计的时候给定的尺寸，所以椭圆要基于那些数据。同时要注意，为了得到正确的尺寸，我们需要把高度和宽度从缇转换到像素。缺省状态下，VB用缇作为屏幕的尺寸。当用到Region时，需要以像素记数。Screen.TwipsPerPixelX和Screen.TwipsPerPixelY函数使得该转换容易进行。
当你运行这些代码时，你会发现该窗体的确以椭圆方式出现，但是是一个非常难看的椭圆。（图二）问题出在VB的窗体基于矩形的Region上面。然而窗体是不允许绘制在椭圆Region的外面的。所以结果是，矩形的角被严格的切掉了！你肯定不想做一个像这样的窗体的！
图二：自定义椭圆窗体的最初外观
第二个明显的问题是改变该窗体的大小。
待续……
