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

用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的文件后运行一切都会正常的。

设置ScrollView滚动条的颜色 WakeLock使用方法示例代码 Concurrent并发库常见问题总结 Android数据库SQLite性能优化技巧 Android开发之Java设计模式基础篇 Android开发之Java设计模式入门篇 Android开发之Java设计模式 Android开发之Java并发包集合类性能分析 Android开发之Java集合类性能分析 Android开发之Java虚拟机原理和内存分配 Android开发之Java基础系列教程目录 Android Theme主题样式开发注意点 Android 3.0开发用的平板推荐 android.resource://这个Uri你知道吗 ADT插件的10.0.1必须要Eclipse 3.5才能升级 Android线程优先级设置方法 Android Zip文件解压缩代码 Android开发之设置断点单步调试 Android裁剪图片最简单方法 Android平台待开发软件列表 Android开发知识-3月13日总结 Android平板开发注意点 Android 3.0自带的天气预报例子代码 Loader和Fragment使用示例代码 LoaderManager - Android 3.0新特性 帮助ADT改进DDMS中的Logcat中文乱码问题 Fragment API将兼容Android 1.6到3.0 通过Linux Shell实现Android横竖屏切换 Android高手应该精通哪些内容? Android 2.2开始resources.arsc有改变 分析你的Android ANR错误 用asp编程怎样验证用户登陆名和密码!怎样设置用户的使用权限!我用的是sqlserver2000数据库 安装dbgrideh 的问题。 我先杀你们,再杀自己,然后逃之夭夭---(无内容) 请高手帮忙:原本显示正常的图片现在不能显示了 button的大小可以自己控制吗? 怎么使用ViewState 好歌推荐 念来去 - 小柯 关于值传递的问题 谁能告诉我,通常Windows下,有几种日志文件? 大家用JSP后台一般用什么数据库,并说出为什么谢了! 一个奇怪的问题! *****如何判断Pointer是否为TObject***** 不使用MFC,不弹出打印对话框,如何得到指定名称的打印机的DC 毕业设计的问题,请各位高人指点! IP控件 请教!!! isapi 奇怪问题! 配置站点问题 那有统计程序写多少行的程序? combobox控件的问题 欲购pc,求助!!(进者有分啊) 高分求教!! 建立表得问题 求javascript得到vbs产生的数组 阿菜求教!一个已经建成的dbf数据库怎么修改其字段长度呢? 请问怎么样才能开发手机游戏? 那裡有用java寫的小游戲的原馬呀﹗﹗ 请问怎才可以让图象中有网格啊? 高手指教 配机!!求助!!(进者有分啊) 这样简单的程序怎么通不过! session值修改还是未解决。 一个问题? flashget怎么用? 怎么相应动态创建的控件的事件 关于多媒体播放器的问题 快结婚了,可男朋友依旧把前女友的照片当成宝贝,我该怎么办? 建议组织一个水园老五大联盟。有支持的请up ! jspsmartupload上传100M以上的文件报错怎么办? 高分求助! 在那里下载jsp服务器的软件? 大家帮个忙,急寻南京兼职,饿死了 在unix下如何编译自己写好的c语言程序? 有个问题请教 ? 保存电脑技巧的问题。 在linux下怎么使用SAMBA使用windows下面的东西? 菜鸟级问题 我要在com+中间层返回sqlserver服务器的时间,怎么通过sql语句实现? 女友是空姐没有安全感怎么办 有几个概念不清楚, 劳驾哪位给解释一下 在unix下如何编译自己写好的c语言程序? Listbox 拖放的问题!解决就给100分! 什么是网络协议?它主要由哪些内容组成? 电源电动势的方向是什么 五环电阻颜色依次是棕、棕、黑、黑、棕,该从哪边读 大乐透二等奖和三等的中奖概率算法,要计算公式,最好有说明怎么算得~ 明代竹雕器物的特点与如何鉴定竹雕笔筒 “全锟斤拷锟斤拷源”是什么意思?Verycd的最新标题,表示无法理解. 什么是网络协议 它包括那些因素 列举自然语言中相对应的要素 电源正极负极的本质区别是什么?高电势为正极,低电势为负极是不是人为规定如果我把高电势那一方称为“负极”,那么电流就会是从负极出发,这是不是只是个规定?还有,电势高低是什么的高 西双版纳热带雨林谷怎么样 大乐透特等奖的中奖概率是多少 电子跳蚤落到数轴上的ko点第一步从Ko向左跳1个单位到K1,第二步从K1向右跳2个单位到k2,第三步由K2向左跳3个单位到k3,第四步由k3向右跳4个单位到k4……按此规则跳了2010步时,电子跳蚤在数轴上 锟斤拷什么意思 大乐透的中奖概率是多少, 哪里可以做油漆成分分析? 锟斤拷是什么东西 这个燃气管道为什么管子俩端要加个塞子!而且那种镀锌钢管俩端的颜色一样,那个PE管的俩端的颜色还不一样 买到伪劣商品时 ,50,60,70,80,90后分别会怎样做 锟斤拷是什么?最近在贴吧老是看到 锟斤拷、请问这个在贴吧中是什么意思呢? 毛泽东在中共七大政治报告中,首次归纳提出了中国共产党在长期革命斗争中所形成的三大优良作风A、理论和实践相结合的作风 B、和人民群众紧密地联系在一起的作风 C、批评和自我批评的 反射隔热漆是属于什么样的漆? 锟斤拷是啥啊 中国共产党在革命战争年代形成的三大优良作风是什么?在新的历史条件下如何继承和发扬这些优良作风? 反射隔热漆的原理是什么,都用在哪里. 有关地点的简单英文比如hotel hostipal 之类的 ,要初中阶段的,听力表格用... 党在长期的斗争中,形成的三大作风是什么? 如何增强自身的计划性、自制力和执行力,以便使自己的人生更加的充实和更有意义. opencv for (int i=0;iheight;i++){for (int j=0;jwidth;j++){if (((UCHAR*)pCannyImg->imageData+pCannyImg->widthStep*i)[j]==255){y=i;break;}}}我想遇到白色的点就得到一个纵坐标值,可是结果纵坐标的值很大是不是坐标原点在右 党在革命战争年代形成了那些优良传统作风在新的历史条件下如何继承和发扬这些传统和作风? 生产假冒伪劣产品罪应该判几年把好的种子用上别人的包装和商标并且无证销售!虽然销售了一部分 但没对老百姓造成任何的损失 想请教下生产假冒伪劣产品罪应该怎么处理? 关于坐标,很简单,不过我忘了,快点告诉我呗?横坐标乘以-2,纵坐标不变,则所得图形与原图形相比? 网络协议的三要素是什么? 某电场中的一条电场线,A B 是该电场线上的两点,若将一负点电荷从A点由静止释放,负电荷只受电场场力作用,沿电场线从A运动到B.在此过程中,电荷的速度一时间的V-T图是一条过原点的倾斜直线 电阻绿.黑.黑橙.棕电阻是多少?是不是500K 荡秋千的小孩通过最低点.为什么属于超重现象? 网络协议的三要素是什么?各自有些什么内容? 人生总有失误的时候,那叫无锘不成书.此句话中, 12398698有四张印有1、2、3、4、的数字卡片,一次摸两张两张卡片上数字的和是单数的本人赢,两张卡片上数...12398698有四张印有1、2、3、4、的数字卡片,一次摸两张两张卡片上数字的和是单数的 网络协议的三要素是什么?具体的说明距离具体说明下,要 锘是什么意思 荡秋千属于什么现象,滑滑梯属于什么现象 金光乱什么的成语我知道了 是金光乱冒 锘胯耽是什么意思?谢谢 数学题:有两个长度相同的滑梯,左边滑梯的高度AC与右边滑梯水平方向的长度DF相等.有两个长度相同的滑梯,左边滑梯的高度AC与右边滑梯水平方向的长度DF相等.(1)两个滑梯的倾斜角角ABC和 中奖率怎么算? 我想知道名字海锘的意思 【急】怎样判断一个元素是阳离子还是负离子?带有几个单位的正电荷还是负电荷?化学这个学科中,怎样根据原子结构示意图来判断它是是阳离子还是负离子,带有几个单位的正电荷还是负电荷 创造竹雕的防腐技术是竹雕王王新明吗? 谁知道名字海锘是什么意思 某元素的核电荷数为Z 其带2个单位负电荷的阴离子为m,下列关系正确的是1、Z=M2 Z=M+23 Z=M-24 Z+M=2 原子不显电性但是它带电吗? 老师,关于简便法的运用老师 关于1X2..X100等于 1/2../100等于 1分之2X2分之1X.X100分之50 1/2分之1/3分之1./100分之1怎么办?1.1X1.2X1.4.X10.1等于? 从H、S、O、Ca四种元素中,选择适当的元素填写符合下列要求的化学式:一种带一个单位负电荷的阴离子 教学思维性指什么 请高人帮忙告知这两道题的坐标位置和图形. 体育的发展经历了从()演进到()直到今天的()三大历史阶段 网络三要素是什么,网络协议是什么? 蓝金金红银五环电阻怎么看 社会学包括历史学吗? 电子带负电,e是电子所带电荷量,为什么是正值. 学平面直角坐标运用以前哪些知识,还有平面图运用的知识 港嫩模当街拆胸罩底裤 尺度之大吓坏路美主播为“杀光中国人”言论向示威者鞠中国企业助力几内亚“造城”梦大师作品巴黎展现“美丽中国”土耳其:中国当代建筑展展现“蓬勃中国中组部:领导干部退休后三年内兼职须经从严规范领导干部在企业兼职任职朝鲜民众喜迎土豆大丰收 数量多到让人美被爆在驻华使领馆搞监听美媒:十年后大学啥样? 网络授课 学巴基斯坦愿率先加入中国空间站昔日嫩模兽兽近照 皮肤松弛显老态越来听中国学者回击菲“九段线”质疑贵阳小学现黑板报外包 评论称扼杀学生受吉林地震影响 哈尔滨铁路局紧急扣停青岛涉黑头目张韶军一审死刑 其余16韩国总统朴槿惠:将查清国情院涉嫌干政美媒称奥巴马支持率跌至新低 挫折积累罗马表新款岩螺多功能系列 向大海致敬“京城土豪聚会超海天盛筵美女全裸上阵江苏沿江8市今起用“苏五” 耗油量几兴业银行股份有限公司佛山分行:最佳金中国建设银行股份有限公司佛山市分行:跨港通积分兑换上线运营欧盟拟继续对中国光伏产品采取双反措施反弹将延续 多单可持有激光电视能否成就大屏“神话”? 国产中国邮政储蓄银行股份有限公司佛山市分东方新天地将于2017年“五一”亮相广东从严从快从实查处中央环保督察组转2016年第五届金狮奖 佛山金融行业江门港客运口岸频截获禁止进境物法院为受伤维修工跨省追回赔偿款居住在乡下,工作在都市我国将健全新能源汽车安全监管体系大乐透一期狂爆106注头奖对汽车尾气征税的建议不合时宜五眼桥与三眼桥叙利亚军方宣布完全收复北部城市阿勒颇税优健康险第四批试点名单公布 税优健高德地图助中山交警实现交通精细化管理中国出口家电质量技术促进委员会落户顺
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘