用 Visual Basic 创建高科技窗体 By Dale E. Lehman 那不是窗体! 有时候你会偶尔遇到一个 windows 应用程序,它不像普通 windows 应用程序。你知道我是什么意思。 Windows" name="description" />

用VisualBasic创建复杂窗体

发表于:2007-05-25来源:作者:点击数: 标签:复杂VisualBasic窗体创建
MI LY: 宋体; mso-ascii-font-family: Verdana; mso-hansi-font-family: Verdana"> 用 Visual Basic 创建高科技窗体 By Dale E. Lehman 那不是窗体! 有时候你会偶尔遇到一个 windows 应用程序,它不像普通 windows 应用程序。你知道我是什么意思。 Windows
MILY: 宋体; mso-ascii-font-family: Verdana; mso-hansi-font-family: Verdana">

Visual Basic创建高科技窗体

 By Dale E. Lehman

 

那不是窗体!

有时候你会偶尔遇到一个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。操作系统自动为每一个窗体分派一个矩形RegionVB并不提示你去改变这些。因此,在设计模式里,你必须经常以矩形窗体工作。但是在少许简单的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.TwipsPerPixelXScreen.TwipsPerPixelY函数使得该转换容易进行。

当你运行这些代码时,你会发现该窗体的确以椭圆方式出现,但是是一个非常难看的椭圆。(图二)问题出在VB的窗体基于矩形的Region上面。然而窗体是不允许绘制在椭圆Region的外面的。所以结果是,矩形的角被严格的切掉了!你肯定不想做一个像这样的窗体的!

 

图二:自定义椭圆窗体的最初外观

第二个明显的问题是改变该窗体的大小。

待续……

 

 

 

 

 

 

原文转自:http://www.ltesting.net