用实现式的启动欢迎画面牛

2021-09-06 来源：黑龙江租房网

第一次运行，或通过运行程序的方式来启动ICQ时，随着一声火车的长鸣，我们都能看到一朵背景为透空的大花，这就是ICQ独特的欢迎画面！通常，我们都是用一整个带图形及文字的窗体来做为欢迎画面的。我们要如何去做才能实现类ICQ的欢迎画面呢？这看起来像是件十分复杂的工作，其实，利用了强大的API函数，事情就会变得非常的简单。出于简单化的考虑，我使用VB6.0简体中文企业版来完成这一例程。

首先要准备好做为欢迎画面所需要的图片，然后对图片进行简单的处理，把需要透空的地方填上纯白色（255，255，255），然后保存为＊.bmp文件，这用PhotoShop可以很容易地实现。需要注意的是，图片必须为“索引色”模式，如果不是就需用PhotoShop来修改，否则不能实现透空效果。　　先建立一个标准EXE工程，在窗体上文稿放置一个Picture控件，控件名为Picture1，和一个Timer控件，控件名为Timer1，Interval属性设置为2000。

原程序如下：

Option Explicit

`定义获取桌面HDC的api函数

Private Declare Function GetDC Lib “user32” (ByVal hwnd As Long) As Long

这位专家还指出 `定义TransparentBlt函数

`实现图片的透空效果需要用上API函数：TransparentBlt，这个函数功能十分强大，而且使用方便，但不幸的

`是VB自带的API浏览器居然把它的漏掉了，所以我们只有采用人工输入的方法了

Private Declare Function TransparentBlt Lib “l”_

(ByVal hdcDest As Long, _

ByVal nXOriginDest As Long, _

ByVal nYOriginDest As Long, _

ByVal nWidthDest As Long, _

ByVal nHeightDest As Long, _

ByVal hdcSrc As Long, _

ByVal nXOriginSrc As Long, _

ByVal nYOriginSrc As Long, _

ByVal nWidthSrc As Long, _

ByVal nHeightSrc As Long, _

ByVal crTransparent As Long) As Long

`其中，hdcDest为目标地的HDC，nXOriginDEst和nYoriginDest分别为目标图像的起始点坐标，nWidthDesk和nHeightDest分别为目标图像的宽度和高度。与之相应的hdcSrc、nXOriginSrc、nyOriginSrc、nWidthSrc、nHeightSrc分别为原图的HDC、原图的起始X、Y坐标、原图和宽度和长度，crTransparent为需要设置成透空的颜色的RGB值。

`定义用于恢复桌面的函数

Private Declare Function InvalidateRectAsAny Lib “user32” Alias

“InvalidateRect”_ (ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long) As Long

Private Sub Form_Load()

Dim Pic As Long

Dim w As Long

Dim h As Long

Dim x As Long

Dim sx, sy

toRedraw = True

`获取桌面的HDC

x = GetDC(0)