图像处理(百叶窗)

《图像处理(百叶窗)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、《多媒体软件设计技术》实验报告书课程名称：多媒体软件设计技术班级：学号：姓名：指导教师：二○一一年四月一．实验的目的1．使学生通过试验，掌握界面的设计方法，掌握常用控件的属性、事件、方法，理解事件驱动的概念。2．掌握图形、图像程序设计方法；3．掌握多媒体音频、视频程序的设计方法；二．实验项目实验二VB图像处理程序的设计1、实验目的通过本实验，要求掌握VB图形、图像处理程序设计的基本方法2、实验内容：图片百叶窗效果1）设计界面1）运行界面1.水平式2.垂直式3.交互式1）属性设置控件名称属性名称属性值窗体Caption图片的百叶窗效果Ba

2、ckcolor&H0000FFFF&(黄色)Startupposition2－屏幕中心图片框控件1NamepsAutoSizeTrue图片框控件2NamepdAutoSizeTrue命令按钮1NameshuipingCaption水平命令按钮2NamechuizhiCaption垂直命令按钮3NamejiaohuCaption交互命令按钮4NameclearCaption清除命令按钮5NamequitCaption退出4）程序源代码1.通用代码段：调用系统BitBlt函数，将原始图片拷贝到第二个picturebox中去。ConstxTi

3、mes=5ConstCOPY_PUT=&HCC0020'表示图片直接拷贝PrivateDeclareFunctionBitBltLib"gdi32"(ByValhDestDCAsLong,_ByValXAsLong,ByValYAsLong,ByValnWidthAsLong,_ByValnHeightAsLong,ByValhSrcDCAsLong,ByValxSrcAsLong,_ByValySrcAsLong,ByValdwRopAsLong)AsLong2.垂直按钮PrivateSubchuizhi_Click()DimHAsL

4、ong,WAsLongDimiAsLong,jAsLong,mAsLong,nAsLongH=Ps.ScaleHeightW=Ps.ScaleWidthFori=0To(xTimes-1)Forj=iToWStepxTimesBitBltPd.hDC,j,0,1,H,Ps.hDC,j,0,COPY_PUTDelay80000NextjNextiEndSub3.水平按钮PrivateSubshuiping_Click()DimHAsLong,WAsLongDimiAsLong,jAsLong,mAsLong,nAsLongH=Ps.Sca

5、leHeightW=Ps.ScaleWidthFori=0To(xTimes-1)'双重循环Forj=iToHStepxTimesBitBltPd.hDC,0,j,W,1,Ps.hDC,0,j,COPY_PUTDelay80000NextjNextiEndSub4.交互按钮PrivateSubjiaohu_Click()DimHAsLong,WAsLongDimiAsLong,jAsLongH=Ps.ScaleHeightW=Ps.ScaleWidthFori=0ToxTimes-1Forj=iToHStepxTimesBitBltPd

6、.hDC,j,0,1,H,Ps.hDC,j,0,COPY_PUTBitBltPd.hDC,0,j,W,1,Ps.hDC,0,j,COPY_PUTDelay80000NextjNextiEndSub5.退出按钮PrivateSubquit_Click()EndEndSub6.清除函数PrivateSubclear_Click()Pd.ClsEndSub7.窗体加载PrivateSubForm_Load()Ps.Picture=LoadPicture(App.Path&"abc.jpg")'在程序所在磁盘内，自动加载图片abc.jpgEn

7、dSub8.延迟函数PrivateSubDelay(ByValtAsLong)'延时子过程，以便于能看清楚切换效果。DimiAsLongFori=0TotNextEndSub