随着一声火车的长鸣，我们都能看到一朵背景为透空的大花，这就是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 “msimg32.dll”_ (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 validateRectAsAny Lib “user32” Alias “InvalidateRect”_
(ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long) As
Long
Private Sub Form_Load() Me.Hide Dim Pic As
Long Dim w As Long Dim h As Long Dim x As Long Dim sx,
sy Picture1.AutoRedraw = True `获取桌面的HDC x = GetDC(0)
`计算桌面的宽度和高度 sx = Screen.Width \ Screen.TwipsPerPixelX sy =
Screen.Height \ Screen.TwipsPerPixelY `计算图像的宽度和高度 w =
Picture1.ScaleX(Picture1.Picture.Width, 8, vbPixels) h =
Picture1.ScaleY(Picture1.Picture.Height, 8,
vbPixels)
picture1.picture=loadpicture(“图像文件的完整文件名称”)
`使透空的图像显示在桌面的中央 Pic = TransparentBlt(x, _ sx / 2 － w / 2, _ sy
/ 2 － h / 2, _ w, _ h, _ Picture1.hDC, _ 0, _ 0,
_ w, _ h, _ RGB(255, 255, 255)) End Sub Private Sub
Timer1_Timer() `两秒钟后恢复桌面 InvalidateRectAsAny 0, ByVal 0＆,
True Load 自制程序的主窗体名 Timer1.Enabled = False End
Sub 需要注意的是程序完成后如果直接在VB环境下运行有可能会出现透空图像一闪而过的现象，这并不是你的错，只要把程序编译成＊.exe的文件后运行一切都会正常的。
没有相关教程
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
