精华区文章阅读

发信人: Mice (开心果), 信区: VisualBasic
标  题: [转载] [P]巧用VB4．0设计图像切换效果
发信站: 紫丁香 (Mon Nov 16 19:12:01 1998), 转信

【以下文字转载自 VisualProgram 讨论区】
【原文由 Mice 所发表】
发信人: xiaobo (激情蕴于心中), 信区: Programming
标　题: 巧用VB4．0设计图像切换效果
发信站: BBS 水木清华站 (Sun Oct  5 10:15:51 1997)

巧用VB4．0设计图像切换效果（《中国计算机报》97/10/6，124版）

刘九七
　　PaintPicture是VB4新提供的图形图像处理方法，它
的基本功能是图像块传输，在以前的VB版本中要产生块传
输效果，需采用WindowsGDI中的块传输函数BitBltAPI调
用。PaintPicture正是VB4中用来代替BitBltAPI调用的简
单而方便的方法。它能快速地将两幅位图进行合并；能将
位图的全部或某一部分快速剪切并粘贴到其它地方；并能
将位图自动延伸或压缩以适应新的环境；能在屏幕上不同
位置之间、屏幕与内存之间传递位图；它采用32位三元光
栅操作代码（ROP），在源位图、选定的刷子位图和目标
位图之间进行颜色组合，生成目标位图中的最终颜色，它
将13个常用的ROPR操作以内部常量形式给出，不需任何声
明，不用理会其32位参数值。

　　基本格式：

　　Object．PaintPicturepicture，x1，y1，width1，h
eight1，

　　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－VisualBasicobjects
andprocedures／RasterOpConstants中列出。

　　巧用PainPicture方法，结合控件属性，可以方便地
产生许多常见的图像切换效果，如我们在多媒体作品及电
视中常见的图像旋转引入、翻转、飞入、滑入、弹出、淡
入淡出、隐现等动画效果。

　　举例：

　　图像滑入（Wipe）效果的实现

　　在滑入效果中，新图像慢慢逐渐覆盖旧图像，就象在
墙上展于一幅卷成筒状的画。

　　1．缺省窗体Form1

　　2．Form1上置PictureBox1、PictureBox2两大小相同
的图片控件及Timer时钟控件PictureBox1中安装源图，在
PictureBox2中展开PictureBox1中的图像
　　3．编程

　　PrivateSubFormμ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．ScaleWid
th，t，vbSrcCopy

　　hΚh＋t

　　EndIf

　　EndSub

　　
--
  江声浩荡，自屋后上升......
                            --《约翰.可利斯朵夫》

※ 来源:·BBS 水木清华站 bbs.net.tsinghua.edu.cn·[FROM: 166.111.26.20]

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: 老巴夺转信机器人程序]
--
※ 转载:．紫丁香 bbs.hit.edu.cn．[FROM: fengyun.hit.edu.]
--
※ 转载:．紫丁香 bbs.hit.edu.cn．[FROM: cad4.hit.edu.cn]

VB 版 (精华区)