图像处理(百叶窗)..docVIP

《多媒体软件设计技术》 实验报告书 课程名称： 多媒体软件设计技术 班 级： 学 号： 姓 名： 指导教师： 二○一一 年 四 月 一．实验的目的 使学生通过试验，掌握界面的设计方法，掌握常用控件的属性、事件、方法，理解 事件驱动的概念。 2．掌握图形、图像程序设计方法； 3．掌握多媒体音频、视频程序的设计方法； 二．实验项目 实验二VB图像处理程序的设计 1、实验目的 通过本实验，要求掌握VB图形、图像处理程序设计的基本方法 2、实验内容： 图片百叶窗效果 设计界面 运行界面 1.水平式 2.垂直式 3.交互式 属性设置 控件名称 属性名称 属性值 窗体 Caption 图片的百叶窗效果 Backcolor H0000FFFF(黄色) Startupposition 2－屏幕中心 图片框控件1 Name ps AutoSize True 图片框控件2 Name pd AutoSize True 命令按钮1 Name shuiping Caption 水平 命令按钮2 Name chuizhi Caption 垂直 命令按钮3 Name jiaohu Caption 交互 命令按钮4 Name clear Caption 清除 命令按钮5 Name quit Caption 退出 4）程序源代码 1.通用代码段：调用系统BitBlt函数，将原始图片拷贝到第二个picturebox中去。 Const xTimes = 5 Const 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 Long 2.垂直按钮 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 i End Sub 3.水平按钮 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 i End Sub 4.交互按钮 Private Sub jiaohu_Click() Dim H As Long, W As Long Dim i As Long, j A