庞大资源库的计算机教程网站!
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]
首页 操作系统 程序设计 图形图像 媒体动画 机械电子 WEB开发 数 据 库 办公系列 路由技术 网络原理 网络应用
认证考试 安全技术
首页>程序设计>VB专区>编程技巧>正文
资料搜索
Google搜索
Google
返回上级列表

推荐文章

快速保存网页中所有图片的方法
Windows中让光驱巧妙“隐身”技
防范非法用户入侵Win 2000/XP系
两款比较典型的ASP木马防范方法
有关表格边框的css语法整理
Windows XP中可以被禁用的服务
SQL Server导出导入数据方法
Javascript所有对象的属性的获
网页(HTML)中的特殊字符
与篮球共舞,尽显模式本色
QQ病毒的手工清除方法
Photoshop为极品美女打造性感睫
天衣无缝:IIS与PHP水火也相容
SQL Server存储过程编写和优化

用VB实现图像切换效果

 作者:刘九七    日期:2005-8-4 11:33:21
字号选择〖 〗/ 双击滚屏 单击停止   
PaintPicture是自VB4以后新提供的图形图像处理方法,它的基本功能是图像块传输,在以前的VB版本中要产生块传输效果,需采用WindowsGDI中的块传输函数BitBltAPI调用。PaintPicture正是VB中用来代替BitBltAPI调用的简单而方便的方法。它能快速地将两幅位图进行合并;能将位图的全部或某一部分快速剪切并粘贴到其它地方;并能将位图自动延伸或压缩以适应新的环境;能在屏幕上不同位置之间、屏幕与内存之间传递位图;它采用32位三元光栅操作代码(ROP),在源位图、选定的刷子位图和目标位图之间进行颜色组合,生成目标位图中的最终颜色,它将13个常用的ROPR操作以内部常量形式给出,不需任何声明,不用理会其32位参数值。
基本格式:
Object.PaintPicturepicture,x1,y1,width1,height1,x2,y2,Width2,height2,opcode

其中Object可以为窗体或PictureBox控件Picture可以为BMP、Dib、Ico、Wmf、Emf等格式的图片
   X1、Y1、Width1、height1为目标位图的参数
   X2、Y2、Width2、height2为源位图的参数
  opcode表示源图与目标位图(或刷子位图)的组合关系,该参数与BitBlt中dwRop参数含义相同。
   VB4为opcode定义了13个内部常量:
   vbDstInvert:目标位图取反
   vbSrcCopy:源位图直接覆盖目标位图
   vbSrcAnd:源位图与目标位图进行“与”操作
  bSrcInvert:源位图与目标位图进行“异或”操作
   vbSrcPaint:源位图与目标位图进行“或”操作
   vbNotSrcCopy:源位图取反
   vbSrcErase:目标位图取反,再与源位图进行“与”操作
   vbNotSrcErase:源位图与目标位图进行“或非”操作
   vbMergePaint:源位图取反,再与目标位图进行“或”操作
   此外,与刷子位图有关的常量是vbMergeCopy、vbPatCopy、vbPatInvert和vbPatPaint,这13个内部常量可以在菜单View/ObjectBrowser/VB-VisualBasicobjectsandprocedures/RasterOpConstants中列出。
   巧用PainPicture方法,结合控件属性,可以方便地产生许多常见的图像切换效果,如我们在多媒体作品及电视中常见的图像旋转引入、翻转、飞入、滑入、弹出、淡入淡出、隐现等动画效果。举例:图像滑入(Wipe)效果的实现
   在滑入效果中,新图像慢慢逐渐覆盖旧图像,就象在墙上展于一幅卷成筒状的画。
   1.缺省窗体Form1
   2.Form1上置PictureBox1、PictureBox2两大小相同的图片控件及Timer时钟控件PictureBox1中安装源图,在PictureBox2中展开PictureBox1中的图像
   3.编程
   Private Sub FormμLoad()
   Picture1.ScaleModeΚPixel
   Picture2.ScaleModeΚPixe1
   hΚ0
   tΚ2
   EndSUb

   PrivateSubTimerμTimer()
   IfhΙΚPicture1.ScaleHeightThen
   Picture2.PaintPicturePicture1.Picture,0,h,Picture2.ScaleWidth,t,0,h,Picture1.ScaleWidth,t,vbSrcCopy  hΚh+t
   EndIf
   EndSub
上一篇:用VB实现全屏幕图形界面及动态功能提示    下一篇:切割一个Container中的图片  
[发送给好友]  [关闭窗口]  [返回顶部]   转载请注明来源:www.it00.com   
特别声明: 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员,我们尽快予以更正。
责任编辑: 原点 投稿作者: 刘九七
信息来源: 网络 录入时间: 2005-8-4 11:33:21
关于我们 - 广告服务 - 版权申明 - 网站地图 - 联系方式 - 总编信箱 - 会员投稿