用 Visual Basic 创建高科技窗体 By Dale E. Lehman 那不是窗体! 有时候你会偶尔遇到一个 windows 应用程序,它不像普通 windows 应用程序。你知道我是什么意思。 Windows" name="description" />
用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的外面的。所以结果是,矩形的角被严格的切掉了!你肯定不想做一个像这样的窗体的!
图二:自定义椭圆窗体的最初外观
第二个明显的问题是改变该窗体的大小。
待续……