VB窗体美化.doc

文档介绍：学****窗体美化不错的知识
====================================================================================
相信大家看过许多形状怪异的窗口吧?可是在VB里,系统提供的只是一个矩形的窗体。如何在VB里实现这种异形窗体呢?
其实原理很简单。首先,在内存中构建一个想要的图形,再通过API函数将窗体设置为此形状,最后将图片放上去就可以了。关键在于如何构建这个想要的图形。让我们看看下面这个图:
。
这张图片中既有白色,也有其他彩色,而我们想要的颜色正是除白色以外的其它颜色。我们可以这样想:在内存中创建一幅一样大小的空的图像,然后只把我们需要的颜色(即非白色)输入内存。这样,就可以创建出我们想要的图形了。
以上是原理,接下来介绍几个API函数。
GetPixel:获取指定对象的某个点的颜色。
定义为:Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
其中hdc为图形对象的句柄,x、y为坐标。
SelectObject:向内存中的指定地点输入图形。
定义为:Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
其中hdc为内存中图形对象的句柄,hObject为欲输入的图像。
patibleDC:在内存中创建一个与指定对象一样的场景(可以理解为图像)。
定义为:Public Declare Function patibleDC Lib "gdi32" (ByVal hdc As Long) As Long
其中hdc为指定对象的句柄。
DeleteObject:删除GDI对象(在这里用来删除用完的内存中的图形)。记住,用完后释放资源是非常重要的!
定义为:Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
其中hObject为欲删除的对象。
CreateRectRgn:在内存中创建一个矩形,返回值为矩形的句柄。
定义为:Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
其中X1、Y1为矩形左上角的点坐标,X2、Y2为矩形右下角的点坐标。
CombineRgn:将两个图形结合为一个图形。
定义为:Public Declare bineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
其中hDestRgn为合成后的图形句柄