用VB实现“ICQ”式的启动欢迎画面

2018-06-17 17:15:03来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

第一次运行,或通过运行程序的方式来启动ICQ时,随着一声火车的长鸣,我们都能看到一朵背景为透空的大花,这就是ICQ独特的欢迎画面!通常,我们都是用一整个带图形及文字的窗体来做为欢迎画面的。我们要如何去做才能实现类ICQ的欢迎画面呢?这看起来像是件十分复杂的工作,其实,利用了强大的API函数,事情就会变得非常的简单。出于简单化的考虑,我使用VB6.0简体中文企业版来完成这一例程。
  首先要准备好做为欢迎画面所需要的图片,然后对图片进行简单的处理,把需要透空的地方填上纯白色(255,255,255),然后保存为*.bmp文件,这用PhotoShop可以很容易地实现。需要注意的是,图片必须为“索引色”模式,如果不是就需用PhotoShop来修改,否则不能实现透空效果。  先建立一个标准EXE工程,在窗体上文稿放置一个Picture控件,控件名为Picture1,和一个Timer控件,控件名为Timer1,Interval属性设置为2000。
  原程序如下:
  OptionExplicit
  `定义获取桌面HDC的api函数
  PrivateDeclareFunctionGetDCLib“user32”(ByValhwndAsLong)AsLong
  `定义TransparentBlt函数
  `实现图片的透空效果需要用上API函数:TransparentBlt,这个函数功能十分强大,而且使用方便,但不幸的
  `是VB自带的API浏览器居然把它的漏掉了,所以我们只有采用人工输入的方法了
  PrivateDeclareFunctionTransparentBltLib“msimg32.dll”_
  (ByValhdcDestAsLong,_
  ByValnXOriginDestAsLong,_
  ByValnYOriginDestAsLong,_
  ByValnWidthDestAsLong,_
  ByValnHeightDestAsLong,_
  ByValhdcSrcAsLong,_
  ByValnXOriginSrcAsLong,_
  ByValnYOriginSrcAsLong,_
  ByValnWidthSrcAsLong,_
  ByValnHeightSrcAsLong,_
  ByValcrTransparentAsLong)AsLong
  `其中,hdcDest为目标地的HDC,nXOriginDEst和nYoriginDest分别为目标图像的起始点坐标,nWidthDesk和nHeightDest分别为目标图像的宽度和高度。与之相应的hdcSrc、nXOriginSrc、nyOriginSrc、nWidthSrc、nHeightSrc分别为原图的HDC、原图的起始X、Y坐标、原图和宽度和长度,crTransparent为需要设置成透空的颜色的RGB值。
  `定义用于恢复桌面的函数
  PrivateDeclareFunctionInvalidateRectAsAnyLib“user32”Alias
“InvalidateRect”_(ByValhwndAsLong,lpRectAsAny,ByValbEraseAsLong)AsLong

  PrivateSubForm_Load()
  Me.Hide
  DimPicAsLong
  DimwAsLong
  DimhAsLong
  DimxAsLong
  Dimsx,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))
  EndSub
  PrivateSubTimer1_Timer()
  `两秒钟后恢复桌面
  InvalidateRectAsAny0,ByVal0&,True
  Load自制程序的主窗体名
  Timer1.Enabled=False
  EndSub
  需要注意的是程序完成后如果直接在VB环境下运行有可能会出现透空图像一闪而过的现象,这并不是你的错,只要把程序编译成*.exe的文件后运行一切都会正常的。->

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:VB实现按钮浮动效果

下一篇:菜鸟的数据库入门