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

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

首届SAP d-code大会在上海举办 【OSTC讲师专访】ZoomQuiet:因商业化而开源是中国开源界最大的囧处 亿元资金扶持+联手100家VC,腾讯的雄心壮志 美国史上最大IPO 能给阿里巴巴带来什么? 买Windows平板而非iPad或Android的十大理由 Framework7:不会Objective-C,也能开发iOS7应用 CocoaChina开发者大会 全新引擎Cocos 3d-x开源 Oracle和微软的抱团,以及对抗Amazon霸主的5个可用点 Agile已死 Agility长存? 论程序员的自我修炼 Github女员工因遭性别歧视离职 继七年iPhone、四年iPad后,苹果的下一城:Healthbook 普元CTO焦烈焱:专注于基础软件 在Spark上的深入实践 Python 3.4.0正式发布 未添加任何新语法特性 谷歌受困邮件挖掘丑闻,企图抹掉庭审记录 Python 3.4.0发布,增加了多个功能模块 美的+阿里,“云端”战略第一把火是智慧家居 对产业互联网战略的战术思考——争夺企业信息入口的战争 加入Cassandra,OpenStack发力DBaaS生态圈 死磕Google Keep,微软正式发布Mac免费版OneNote 《近匠》安管云CTO石磊:降维安全的开放平台 2014 Unity亚洲开发者大会·中国站讲师名单议题全部出炉 【独家专访】红旗Linux元老:猎猎红旗永飘扬 借助三大技巧 助你提升API状态页面 集成GemFire,Hadoop生态圈的又一把火 次世代光照体验:Unity 5面世,功能系统全升级 深入浅出,以咖啡店为例演示Web应用程序扩展 百度Clouda:可依赖的实时JavaScript开发框架 Oracle发布Java 8正式版及JDK 8 编程语言中一些令人抓狂的规则 廉颇未老,微软股价创14年新高 想了解有关程序考试的一些情况? 不同系统就不可以直接电缆直接吗? 怎样使用PQMAGIC对硬盘进行调整分区 memory fault--core dumped的问题 有谁知道怎么解win98的开机密码? 用 procedure 与 trigger 、database link 能完成吗? flowerofwind,rjcludy()请回答 COM中的一个怪问题:我将::CoUninitialize();去掉后程序不出错,添上出现非法操作,是啥问题??? 请问?????? 如何在程序中播放rm格式的文件??? edit怎么用啊? JB6盘中不含 Borland Enterprise Server AppServer5.0,各位快载一个上去吧! 如何改变显示的分辨率? 那里有c#编译器免费下载?谢谢 如何在vc中播放rm格式的文件??? 那位大侠知道怎么创建并使用一个变量,每次只让一个进程访问???给个例子吧,大大大 大 delphi中怎么编写中断,获取外部设备传来的信息?急救!! 数值模拟与计算仿真,高手请帮忙! 请问:dos下图形放大算法或思路?还有.........(高手请进) 求教!!!!SOS!! --请问如何将一个BMP图形文件转成JPG图形文件,高分请教师--- 高分给出,win98的怪问题! 打印统计问题 请教 : html的javascript 中报错:document.Form1.client_name.value不是对象 VC++里面如何从文本文件中一行一行读取文件? 请问,如何用mail函数批量发送邮件.多谢. 各位请教一下,Jsp 的服务resin在win2000下是怎样配置的 各位兄弟: 有谁知道 侯杰 的 <多线程程序设计> 什么时候才能买到??? 哪里有VFP3.0下载? system.ini和win.ini的作用 怎样生成安装包,多谢! 如何在两个不同的应用程序之间拖动文本字符 请问,PTSTR 和 PSTR 有什么不同? 反对上海电信变相涨价的行为。我能不能告中国电信“违约”和“欺诈”呢。 求救!误删Office2000注册表! 生成.exe出错 在Excel中,如何让某些行不能滚动? 在--成都--程序员能拿多少--¥--???? 换了17寸纯平显示器,开心,放分. 错装PB7,不能无create datawindows的图标,全是XX,为什么? 请问怎样遍历一个页面中服务器端的所有对象? 能否跟我说说——自动控制方面——与delphi编程的基本常识?我一直想了解,但不知道我们编的程序如何去跟那些硬件搞在一起而且控制硬件呢? 程序出错 发现一个不错的网站!www.ffboy.com 兩個Recordset之間數据轉入和轉出問題???. 高手請進......(一定給分) 大家推荐一下 ,win2k 下的 XML 编辑器。 请问男女之间存不存在真正的友情? 请教一下,怎样打印 java applet绘出的图形?,要用java 编写 高手请进!!!关于数据库 很菜的问题!字符串转化的问题? 最近运行D盘时,出来"找不到该路径..."的对话框,是什么原因? 指针数组定义的问题 为什么这一题不可以认为安培力做功代数和为零所以机械能守恒?(2005广东卷)如图所示,两根足够长的固定平行金属光滑导轨位于同一水平面,道轨上横放着两根相同的导体棒ab、cd与导轨构 生物的生命活动都需要水,即使在干旱的环境里,生物提也有相应的结构去适应,例如生活在沙漠地区的骆驼,它的胃分为3个室,第1个室附生20~30个水脬,作贮水用,通过关闭汗腺可以正在较长的时 江河中的水不停的流入大海,可是海洋里的水却不会溢出来,江河里的水也一直流不完,你知道这是什么原因吗 求高中物理机械能守恒的练习现在已经高三了,复习到现在发现以前机械能守恒学得很不好,有的题做起来挺累,希望大家可以给一些有关这方面的复习或是加强的练习.不要太简单的,不过也不 只有重力和弹力作用时,机械能守恒.这句话为什么不对 江河中的日夜不停地流入海洋.海洋中里的水却也总也不会溢出来,江河里的水也一直流不完.这是什么原因? 自然界的水分是怎样循环的 只有重力和弹力作用时,机械能一定守恒.为什么 江河中的水流入海洋,海洋里的水为什么也不溢出来江河中的水日夜不停地流入海洋.海洋里的水却总也不溢出来,江河里的水也一直流不完.这是什么原因?我们能自己做出自己的解释吗? 电场力做功 机械能守恒吗 机械能守恒时,物体一定只受重力和弹力的作用!为什么错 求y=[(x-1)^2][(x+1)^3]绝对值的导数,注意是函数绝对值的导数 机械能守恒时,物体一定只受重力或弹性力的作用这句话错在哪?请举一下例子, 物体的机械能守恒,一定只受重力和弹力作用.请解释为什么错误 怎样形容月亮圆 机械能守恒 为什么除重力外有 力做正功 机械能会增大? 判断:只有重力和弹力作用时,机械能才能守恒. 形容月亮圆的词有哪些啊就是指月亮很圆的 词 对数函数求导证明)f(x)=loga^xf'(x)=lim (loga^(x+Δx)-loga^x)/Δx=lim loga^[(x+Δx)/x]/Δx=lim loga^(1+Δx/x)/Δx=lim ln(1+Δx/x)/(lna*Δx)=lim x*ln(1+Δx/x)/(x*lna*Δx)=lim (x/Δx)*ln(1+Δx/x)/(x*lna)=lim ln[(1+Δx/x)^(x/Δx)]/(x*lna) ①=li 外力只有重力和弹力做功,机械能守恒吗? 圆月怎么形容 对数函数求导计算问题如图,对数函数的导数公式:(logaX)导等于1/xloga e,不懂,不知道怎么算这题. 重力弹力均做功的条件下机械能守恒么 月亮圆的像什么,一个词语来形容.一个四字词语,要通顺. 自然界的水包括什么? 机械能守恒为什么只有重力或弹力做功?弹力是只指弹簧的拉力吗?能讲一下为什么是重力或弹力这个条件而不是别的什么摩擦力啊什么的?讲的细致一点行吗?我的物理不是很好 形容月亮圆的成语 水的物理性质如何?自然界的水一般是怎么样的? 对数函数怎么求导 帮我构造一个函数嘛 要求f(x)大于等于0,f(x)一阶导数的绝对值大于等于1,定义域为R哦 水和自然界的水有什么差别? 使水在水自然界日夜不停的循环的主要原因是什么是什么原因 一段金属导体(不闭合)垂直于匀强磁场作匀速运动时,导体中有没有电流?如果有,受不受安培力? 自然界的水通过什么使水得到净化 若函数在【-1,1】上连续,在(-1,1)上可导,且函数导数的绝对值小于等于M成立,y(0)=0.则必有,函数的绝对值小于等于M吗,为什么 导数是绝对值的原函数例如,导数为 |X| 原函数是什么? 高分求复变量的对数函数的求导公式的推导(急!)实变量的指数函数e^x的导数等于e^x,这个我会推导,但是复变量的指数函数e^z(z=x+iy)的导数等于e^z,就是(e^z)'=e^z这个我就不会推导了.现在急等 设函数:f:R→R在R上二阶可导,并且满足f(x)的绝对值小于等于1,f(x)的二阶导数的绝对值小于等于1.求证,fx一阶导数必小于等于2 带绝对值导数如何求原函数 求导数,f(x)=loga为底的x(X>0),有具体的对数函数求导公式吗? 设函数:f:R→R在R上二阶可导,并且满足f(x)的绝对值小于等于1,f(x)的二阶导数的绝对值小于等于1.证 哪个函数的导数是(sinx)的绝对值 关于反函数求导,有Ψ(y)的导数与f(x)的导数互为倒数的说法.这种说法中的Ψ(y)的y是指新函数的y还是指原函数f(x)中x对应的y? 既有重力做功又有弹簧弹力做功,机械能还守恒吗比如一弹簧下端连一个小物体,吊在屋顶上,将其拉到水平位置从静止释放,请问对小物体来说机械能守恒吗? 物理什么情况下重力等于安培力? 高二物理安培力的功导体切割磁场问题! 只受重力和弹簧弹力做功时物体机械能守恒 这句话对吗 【电磁炮】为什么安培力等于阻力时速度最大 在磁场边界上算不算有安培力? 比如一根导体棒在磁场中切割,运动到磁场边界上,算是出去了(没有安培力比如一根导体棒在磁场中切割,运动到磁场边界上,算是出去了(没有安培力了),还是 只有重力、库仑力和弹簧弹力做功的系统机械能守恒 之句话对还是错 为什么安培力做负功时等于产生的热量 电磁感应中导体棒切割磁场使得灯泡发光,这里的安培力做功等于灯泡的热量还是电功 [把小球放在竖直的弹簧上] 是不是同时有重力和弹力做功?此时机械能守恒吗? 安培力什么时候不做功?怎么有的题明明有安培力却说:电阻R上产生的的热量等于金属棒重力势能的减少 轻杆AB长2L,A端连在固定轴上,B端固定一个为2m的小球,中点c固定质量为m的小球,AB可以绕着A转动,现将轻杆置于水平位置,然后又静止释放,不计各阻力,求:1 AB杆转到竖直位置时,两小球速度大小2 自然界水是怎么循环运动的 请问江河中的水日夜不停地流入海洋,海洋里的水却总也不会溢出来,江河里的水也一直流不完,这是什么原因? 机械能守恒习题如图一轻杆长1米,可绕O轴载竖直平面无摩擦转动,OA=0.6M,OB=0.4M,质量相等的两小球分别固定于A,B两端,先把干水平,然后竖直释放,求杆转到竖直位置时两小球速度分别是多少?A------ 向浮动着云、流动着得水一样自然是什么词? 证明:如果函数f(x)在[a,b]上可导,且(f(x)导数的绝对值)小于等于M,则,[(f(b)-f(a))的绝对值 ...证明:如果函数f(x)在[a,b]上可导,且(f(x)导数的绝对值)小于等于M,则,[(f(b)-f(a))的绝对值
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn