vb有意思的小程序 ?

VB制作奇形怪状的窗体

普通的窗体都是方方的，使用API函数可以做出一些奇怪的形状。比如，窗体是圆角矩形，在中间挖一个椭圆形的洞。

先要理解一个重要的概念：区域。区域是描述设备场景中某一块的GDI对象，每个区域都有一个句柄。一个区域可以是矩形，也可以是复杂的多边形，甚至是几个区域组织在一起。窗体默认的区域就是我们看到的矩形，当然它并非一定要用这个默认的区域

现在开始，首先在窗体上做一个圆角矩形区域，这是窗体的大致轮廓。在圆角矩形里再确定一个椭圆形的区域，然后把这两个区域组织成一个区域，并设置窗体的区域为这个组织出来的区域。

CreateRoundRectRgn函数用于创建一个圆角矩形区域；CreateEllipticRgn用于创建一个椭圆区域；CombineRgn函数用于将两个区域组合为一个新区域；SetWindowRgn函数允许您改变窗口的区域。使用其他的函数还可以做出其他更奇怪的窗体。

源代码如下：

OptionExplicit

'API函数声明

PrivateDeclareFunctionCreateRectRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong

PrivateDeclareFunctionCreateRoundRectRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong,ByValX3AsLong,ByValY3AsLong)AsLong

PrivateDeclareFunctionCreateEllipticRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong

PrivateDeclareFunctionCombineRgnLib"gdi32"(ByValhDestRgnAsLong,ByValhSrcRgn1AsLong,ByValhSrcRgn2AsLong,ByValnCombineModeAsLong)AsLong

PrivateDeclareFunctionSetWindowRgnLib"user32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLong

PrivateDeclareFunctionDeleteObjectLib"gdi32"(ByValhObjectAsLong)AsLong

'常数声明

PrivateConstRGN_DIFF=4

'目标区域被设置为两个区域不相交的部分

'模块级变量声明

PrivateOutRgnAsLong

'外边的圆角矩形区域

PrivateInRgnAsLong

'里边的椭圆区域

PrivateMyRgnAsLong

'圆角区域剪切掉椭圆区域后的区域，也是窗体最终的形状

PrivateSubForm_Click()

IfOutRgn<>0AndInRgn<>0AndMyRgn<>0ThenExitSub

DimwAsLong,hAsLong

w=ScaleX(Form1.Width,vbTwips,vbPixels)

h=ScaleY(Form1.Height,vbTwips,vbPixels)

MyRgn=CreateRectRgn(0,0,0,0)

OutRgn=CreateRoundRectRgn(30,30,w-30,h-30,100,100)

InRgn=CreateEllipticRgn(100,100,w-100,h-100)

CallCombineRgn(MyRgn,OutRgn,InRgn,RGN_DIFF)

CallSetWindowRgn(Form1.hWnd,MyRgn,True)

Form1.BackColor=QBColor(4)

EndSub

PrivateSubForm_DblClick()

UnloadForm1

EndSub

PrivateSubForm_Load()

OutRgn=0

InRgn=0

MyRgn=0

Form1.Width=7800

Form1.Height=6000

EndSub

PrivateSubForm_Unload(CancelAsInteger)

IfMyRgn<>0ThenDeleteObjectMyRgn

IfOutRgn<>0ThenDeleteObjectOutRgn

IfInRgn<>0ThenDeleteObjectInRgn

EndSub

这个程序运行后，在窗体上单击，窗体就会变形，双击窗体程序结束。要注意的是，在卸载窗体时，用DeleteObject函数删除已定义的区域。

这个就非常多啦，VisualStudio，Qt，IDEA，Delphi，PowerBuilder等这些软件都可以，直接拖拽控件就可设计Windows窗体应用程序，下面我简单介绍一下：

VisualStudio

这是微软开发的一个非常著名的IDE集成环境，主要用于Windows环境下开发使用，对于Windows窗体应用程序，主要是WinForm、WPF、MFC等，可用控件非常丰富，可以直接拖拽设置设计UI界面，兼容性和扩展性也非常好，是Windows平台下主要的窗体应用程序开发软件：

Qt

这是一个基于C++的图形用户界面应用程序开发框架，免费、开源、跨平台，应用非常广泛，提供可视化组件非常多，可以直接拖拽设计Windows窗体程序，还可以利用QSS进行界面美化，如果你需要跨平台应用，并且要基于C++进行，那么可以考虑学习一下这框架，非常不错，值得学习和使用：

IDEA

这是一个Java集成开发环境，在业界非常受欢迎，已经集成了Windows窗体应用程序设计，可用组件众多（基于swing），可以直接拖拽设计UI界面，如果你对Java编程比较熟悉的话，可以使用一下这个软件，非常不错：

Delphi

这是Windows平台下一个非常著名的应用程序开发工具，以可视化的图形用户界面为开发工具，可用控件众多，可以直接拖拽设计UI界面，所见即所得，非常方便，开发、编译和运行效率都非常高，在早期的Windows窗体设计中经常会用到，不过随着Qt、WinForm等的兴起，Delphi应用的范围越来越小，正在逐渐走向没落：

PowerBuilder

这也是Windows平台下一个非常不错的可视化编程工具，和Delphi一样，在早期的Windows窗体程序设计中，经常会用到，内置控件众多，可以直接拖拽编辑设计UI界面，支持高效的应用程序开发，查询、报表和图形功能强大，对于桌面C/S应用程序开发来说，也是一个不错的选择，不过随着新技术的兴起，PB也在逐渐走向没落，使用的人也越来越少：

目前，就分享这5个Windows窗体应用程序开发软件吧，前3个软件是目前主流的窗体开发软件，后2个软件正在逐渐走向没落，只要你有一定的编程基础，熟悉一下相关软件的使用，很快就能掌握的，网上也有相关教程和资料，介绍的非常详细，感兴趣的话，可以搜一下，希望以上分享的内容能对你有所帮助吧，也欢迎大家评论、留言进行补充。

使用VisualC++开发Windows窗体项目,通常与使用任何其他.NET语言(如VisualBasic.NET或C#)进行开发并无不同。

---