说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

HTML文档下载 WORD文档下载 PDF文档下载
用VB实现“ICQ”式的启动欢迎画面


广西 高 罡
  第一次运行,或通过运行程序的方式来启动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 "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 InvalidateRectAsAny 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的文件后运行一切都会正常的。

VB使用未安装的字体 输入限制确认-VB资料 熟悉VB的集成开发环境 鼠标取词-VB资料 谈变VB中APP.PAHT的注意事项 探讨高效的排序合并算法-VB资料 剔除INI文件中的注释部分-VB资料 提取可执行文件中的图标-VB资料 添加记录到文档菜单-VB资料 突破 SendKeys 的限制-VB资料 突破SendKeys的限制 -VB资料 圖面背景透明的技巧-VB资料 退出并关闭 Windows-VB资料 托盘程序详解(二) -VB资料 托盘程序详解(一) -VB资料 我怎样确定我的程序是否在运行?-VB资料 无重复随机数序列产生器 -VB资料 显示打开方式对话框建立文件的关联 -VB资料 显示动画鼠标图标-VB资料 修复VB5启动时可能出现的一个bug 修改IE的环境菜单-VB资料 修改安装向导生成的缺省安装目录 -VB资料 修改屏保口令 -VB资料 修改屏幕保护的口令 -VB资料 旋转字体 -VB资料 延时函数-VB资料 一个关于乘法溢出问题的探讨 -VB资料 一组VB实用小程序 一组VB应用技巧 隐藏和显示任务栏-VB资料 应用 WSH 读写注册表和建立快捷方式 -VB资料 那里能找到rational rose 有关FORM与ACCESS数据库的连接 如何使用photoshop把图像缩小到指定大小? 关于某种文件关联的问题 为什么用net send发送的消息有关不掉,点了好多次确定也没用。 怎么保存到数据库中?急急急! 电脑出问题了。 tomcat4.01+apache2.046组合问题:单个的都能运行,...可以加分.. %u的问题 如何调整对话框上工具栏的状态 关于query控件的一个问题 如何结束一个线程? FastReport怎么将没有记录的地方也画上格子??? 我的oracle9装上去之后怎么有7。2G那么大??并且还连不上MANAGEMENT SERVER只能独立启动??请指教!! Fastreport与quickreport那个更好用? 进者有分. 强烈要求铲除全国所有的收容所!!! 要用什么软件才能将CMOS参数备份到某个文件夹中? 请问怎么在建表代码里定义关键字? 请问把数据写入ListView控件内,有什么办法可以快点? win2k server dns 求助! 我在易趣上竞的一个数码相机,只要250元,但是只能拍26张相。我不知道是真是假? 一个搞不定的恶意网站 cout与printf的问题 没有路由怎样用一台服务器实现300台左右的电脑上网? ResultSet里读出数据的参数问题,马上给分 netvt(唯她 v1.1.1),进来拿你应得的分 如果我的程序中用了VFP,但是用户可能并没有装VFP,有什么好的办法直接替用户解决了这个问题,而不是提醒他自己去装 怎么保存到数据库中?急急急! 我用treeview显示数据库的数据,增加一条新记录后,要怎么样才能马上在treeview显示? 无法传值问题,高手急救!!!!!!!!! 在线等待:怎么为datagrid控件的某一格赋值? 请教如何在input上传筐里面限制文件类型? java的图形设计比如swing有前途吗?大家来讨论下,迷惑中。。。 计算机静电问题!! 错误在那里 请教批量update出错问题 请问串口方面的? QQ使用MFC42.DLL, 数据库的记录有文本、有图片、我想给它排成word样式的A4版预览、再打印如何实现 请问,如何在Form中画图啊??/ 水晶报表问题。急呀!! 一个奇怪的问题 TreeNode控件有折叠下一级节点这个命令吗? 大家好,请帮忙提供在C#中做帮助文件的好的方法或网站吗?谢谢了 QQ发送信息老是附加一个网址,有什么办法搞定它? 操作系统挂了,重装后如何恢复ORACLE DATA? 初学不懂:调用ActiveXObject("Microsoft.XMLHTTP") 时用的什么命名空间? 创建临时表 有关页面显示的问题,进来吧,高手们! 为什么我在VC调试一个程序提示出错后,在调整一个正确的程序也提示有错误,是怎么回事,是要在VC里设置什么吗 EJB Transaction problem? #儿时疑惑#我为什么不能像小鸟那样自由飞翔? 成长的桥阅读文中画横线的句子在文中起什么作用大神们帮帮忙 关于运动的合成与分解,以下说法正确的是( ) A.一个匀加速直线运动可以分解为两个匀加速直线运动 B.一个匀减速直线运动可以分解为方向相反的匀速运动和初速度为零的匀加速直线运动 C #儿时疑惑#鸟为什么会飞, 文中画横线的句子爸爸的花儿落了有什么含义它与文章要表现的中心有什么关系拜托各位大神 诈骗的定义是什么警察不找他他不是会还钱的,在说他和我签的合同,可是房子是他妈妈的. #儿时疑惑#卡罗莱纳鹦哥鸟和拟斑马和袋狼现在还有吗? 解释画横线的句子(宋国后面还有有一个“笑”) 网络诈骗的含义是什么 鹤龟同池,共有80只脚.如果把只数互换,则有88只脚.求龟、鹤各有几只? 哪位大神可以给我解释一下图中画横线的那句话是什么意思?~~::>_ 十百千,猜四字成语 河中鹤和龟共有100只脚.如果鹤的只数与龟的只数交换则共有脚92只,求鹤、龟原来各有多少只? 有限集合A=B的充要条件是什么?全题叫:有限集合S中元素个数记作card(S).设A、B都为有限集合,判断下列正误.我只问问A=B的充要条件是card(A)=card(B)为什么是错误的?正确的应该是什么? 尔虞我诈的意思是? 乌龟和鹤共有200只眼睛,共有350只脚问,乌龟和鹤各有几只? 氢气有几个质子阿我还知道你们是怎么只到你们是怎么知道化学元素的质子数阿 必须用记的嘛 韩愈 早春呈水部张十八员外(其二)的赏析是什么? 龟、鹤共有29只,有脚92只,龟和鹤各有多少只? 要是总有人跟你说,哟哟切克闹,切克闹啊切克闹. 求几道容易出错的高二物理题要求容易出错 潘多拉的秘密 内衣 怎么样?今天逛街看到一间潘多拉的秘密的内衣店,装修好好,营业员说是法国品牌,想问下有谁知道是不是法国品牌,看他们质量很好,就是价格有点小贵.急 急 急 文言文杯弓蛇影的意思 哟哟切克闹什么意思 卵胎生和卵生、胎生有哪些不同点? 屌丝气质呢?是说男的女的? 哪里出来的? 大白鲨是胎生还是卵生还是卵胎生 超蓝色星系是什么超蓝色星系的定义什么?百科上怎么没有TT 画横线的题求解答 胎生、卵生、卵胎生的动物分别有哪些胎生卵生卵胎生的动物分别有哪些,请多举一些, 怎么培养屌丝气质 嘿哟哟哟,切克闹,切克闹 龟鹤共池,已知龟比鹤多5只,共44只脚,龟有( )只.鹤有( )只.要算式.,不能用方程解决.,使用假设法. 25÷23精确到十百千分位?25÷23精确到十、百、千分位? 哟哟,切克闹. “小时候,我以为你很美丽,领着领着一群小鸟飞来飞去……”歌名 龟鹤共有脚100只,若将鹤换成龟,龟换成鹤,则共有脚176只,原来鹤多少只,龟多少只? 【高一数学集合部分】“xy>0”的一个充要条件是__________1.“xy>0”的一个充要条件是__________2.集合A={x|-20是x2+y2>0的 ____ 条件6.集合A={x|-2<x≤1},U={x|x≤3},则CuA=_______7.x属于A交B______x属 找几篇理性一点的文章找几篇600字左右的文章 要理性的 不要感性的 不要太长的 最好有感想 没有也没关系啦 这是什么星系赤经 22h25m41s 赤纬 1度16'48.99看起来模糊 某船从O处出发,沿北偏东60'方向行驶至A,又向正东方向行驶至C,再朝与出发相反的方向行驶至B,求∠ACB的度数快.这是一道关于平行线的性质的题目...可能要用到同位角,内错角,同旁内角的... 已知鹤比龟多14只,鹤的脚比龟的脚多18只,问龟鹤各多少只? 怎么知道两个物体组成合外力为零即动量守恒,就是在解答题目时怎么知道用动量守恒解答,例如两棒在磁场 设集合A=(-无穷大,1],集合B(2a+1,4a)(1)若A交B=空集,求a的取值范围(2)若A并B=A,求a的取值范围 以理性为主题 的作文 有H-、NH2+、H3O+离子吗?有什么反应? 求道高二物理题在光滑绝缘的水平面上有一个不导电的弹簧,弹簧的两端分别与金属小球A,B相连,若A.B带上等量同种电荷,弹簧伸长x1,若让A.B所带电量都曾为原来的2倍,弹簧的伸长量为x2,则x1与x2 要英语过了四级才有资格考公务员吗? 1.6g NH2-离子中所含电子数 鼻子红的长长的背上有黄又有绿的是什么动物 #儿时疑惑#小鸟为什么会飞?我为什么不会飞? 英语翻译阿门 我甘愿为我犯过的罪作出应有的惩罚 只愿 我所爱的人过上安乐生活 一艘船沿正东方向航行,行至A处折向南偏东60°方向航行,行至B处后,若该船仍向正 文言文杯弓蛇影解释方,恶,既,疾,不的意思.后世常以“杯弓蛇影”比喻 ,从文中可见乐广的客人 的性格特点 25℃、l0lkPa下,22.4L氢气含质子的数目为3NA, 蓄意诈骗的定义我公司与一家厂家签订了一批货物!全额付款后对方只发给我公司不到1/3的货,我公司一再催促对方发货!时间转眼过了四个月了还是没见对方发出货物!要求其退款也迟迟未见退 #儿时疑惑#为什么小鸟能飞 这个是什么星系? 关于诈骗的定义本人与人合作项目,给对方发货物.对方承诺货到结款.结果货到了两车只是把运费付清,货款一直没有结.本人出于无奈让对方出具了一份欠条.请问这样构不构成诈骗?我目前应该 埃及摧毁\"进口通道\"致燃料缺乏 2 2会谈,日联俄制华打错算盘英国房价持续高涨 或考虑向海外房主征杭州地铁开通未满1年46块钢化玻璃碎人社部副部长:稳妥改革机关事业单位养日大规模“夺岛”军演剑指何方?洛杉矶机场枪击案嫌疑人身份确定2013国际变性人选美决赛在泰国落幕日媒:日俄拟促防务交流 俄方就领土问美环保专家:手机等移动设备将成重要环洛杉矶机场枪击案嫌犯身份确定 被指曾伦敦前市长:伦敦有必要成为一个独立国伦敦前市长:伦敦有必要成为一个独立国国际核查人员证实叙利亚已销毁化学武器英女子脱光上衣过安检引骚乱被罚(组图联合国官员:目前还在讨论叙利亚化武销杨洁篪:中国是二十国集团的积极参与者“中国皮都”平阳十年整治制革产业 政微信被指“封杀”来往 回应称打击病毒巴基斯坦塔利班首领被美击毙 巴和平进监察部召开座谈会 聘请马怀德等40人车坛故事:强强联合的汽车界大佬们#本站首晒# 穷玩车,富玩表,Dia难得!娱乐圈终于有一种像倪妮井柏然这2016年新能源乘用车型展望及市场形年销量创新高 Polo巩固领先地位神探是怎样炼成的 全新朗逸展现神探素揭秘:朝鲜皇室为反清复明竟曾想出兵中从平庸到卓越,靠这15个顶尖微信号!述评:挥舞\"损人不利己\"的制裁大4款热门中高级车即将\"上新\",你为什么两会记者热衷的全景视频会那么模复制海南模式,广西芒果死路一条!男子照顾瘫痪妻子19年:她是我妻子从金银高位蓄势待拉升,原油新高还有更高英伦金融「图解黄金交易」:现货黄金投科客晚报 iPhone 6s惨变没人中将透露裁军30万开销:千亿元为被裁注册制还在研究 专家:今年实施概率低改革东风助力农业发展 机构:布局相关P2P倒闭潮来临?如何一眼看穿P2P她,不唠叨不摔碗,不聊QQ不出墙。她
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘