图像处理(百叶窗).doc

多媒体软件设计技术实验报告书课程名称： 多媒体软件设计技术 班 级： 学 号： 姓 名： 指导教师： 二一一 年 四 月一实验的目的1 使学生通过试验，掌握界面的设计方法，掌握常用控件的属性、事件、方法，理解 事件驱动的概念。2掌握图形、图像程序设计方法；3掌握多媒体音频、视频程序的设计方法；二实验项目实验二VB图像处理程序的设计1、实验目的通过本实验，要求掌握VB图形、图像处理程序设计的基本方法2、实验内容：图片百叶窗效果1） 设计界面2） 运行界面1.水平式2.垂直式 3.交互式3） 属性设置控件名称属性名称属性值窗体Caption图片的百叶窗效果Backcolor&H0000FFFF&(黄色)Startupposition2屏幕中心图片框控件1NamepsAutoSizeTrue图片框控件2NamepdAutoSizeTrue命令按钮1NameshuipingCaption水平命令按钮2NamechuizhiCaption垂直命令按钮3NamejiaohuCaption交互命令按钮4NameclearCaption清除命令按钮5NamequitCaption退出4）程序源代码1.通用代码段：调用系统BitBlt函数，将原始图片拷贝到第二个picturebox中去。Const xTimes = 5Const COPY_PUT = &HCC0020 表示图片直接拷贝Private Declare Function BitBlt Lib gdi32 (ByVal hDestDC As Long, _ ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, _ ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, _ ByVal ySrc As Long, ByVal dwRop As Long) As Long2.垂直按钮Private Sub chuizhi_Click() Dim H As Long, W As Long Dim i As Long, j As Long, m As Long, n As Long H = Ps.ScaleHeight W = Ps.ScaleWidth For i = 0 To (xTimes - 1) For j = i To W Step xTimes BitBlt Pd.hDC, j, 0, 1, H, Ps.hDC, j, 0, COPY_PUT Delay 80000 Next j Next iEnd Sub3.水平按钮Private Sub shuiping_Click() Dim H As Long, W As Long Dim i As Long, j As Long, m As Long, n As Long H = Ps.ScaleHeight W = Ps.ScaleWidth For i = 0 To (xTimes - 1) 双重循环 For j = i To H Step xTimes BitBlt Pd.hDC, 0, j, W, 1, Ps.hDC, 0, j, COPY_PUT Delay 80000 Next j Next iEnd Sub4.交互按钮Private Sub jiaohu_Click() Dim H As Long, W As Long Dim i As Long, j As Long H = Ps.ScaleHeight W = Ps.ScaleWidth For i = 0 To xTimes - 1 For j = i To H Step xTimes BitBlt Pd.hDC, j, 0, 1, H, Ps.hDC, j, 0, COPY_PUT BitBlt Pd.hDC, 0, j, W, 1, Ps.hDC, 0, j, COPY_PUT Delay 80000 Next j Next iEnd Sub5.退出按钮Private Sub quit_Click() EndEnd Sub6.清除函数Private Sub clear_Click() Pd.ClsEnd Sub7.窗体加载Private Sub Form_Load()Ps.Picture = LoadPicture(App.Path & abc.jpg) 在程序所在磁盘内，自动加载图片abc.jpgEnd Sub8