vb多媒体程序设计2.ppt

VisualBasic多媒体程序设计2一 绘图1 形状控件1 shape可以显示矩形 正方形 椭圆 圆等形状 形状类型由shape属性确定 2 line可以显示直线 2 绘图方法一般为容器控件所具有 如窗体和PictureBox 1 line对象名 Line Step x1 y1 Step x2 y2 color B F Step 表示相对坐标 相对当前坐标属性CurrentX和CurrentY 例 Form1 CurrentX 10Form1 CurrentY 10Form1 lineStep 10 20 100 200 vbred既从 10 10 10 20 到 100 200 画红线 2 Circle画圆 椭圆 圆弧 语法形式 对象名 Circle step x y radius color start end aspect step 说明为相对坐标 x y 圆 椭圆或弧的中心坐标 color 画线颜色 start end 分别表示弧线的起始角度 终止角度 取值为0 2 时 画圆弧 取值为负值时 画扇形 既画圆心到圆弧的径向线 Aspect 表示长 短轴的比率 默认值为1 画圆 大于或小于1时 画椭圆 例 Circle 1200 1200 150 画一个半径为150的圆 Circle 1000 1000 150 0 5 画纵轴与横轴之比为0 5的椭圆 3 Pset画点 语法形式如下 对象名 PSet Step x y color step 说明为相对坐标 x y 点的坐标 color 画线颜色 4 Point返回某点的颜色值 语法形式如下 对象名 Point x y 若指定点在对象外面 则返回值为 1 该方法对Image控件无效 5 Print方法利用PictureBox控件的Print方法 可以在控件中打印字符串 语法 加中括号的参数项为可选项 可有可无 对象名 Print Spc n Tab n 表达式 结束符 Spc n 表示插入n个空格 Tab n 表示插入点定位在绝对列号n上 表达式 是要输出的表达式 结束符 表示下一个字符输出位置的标点符号 可以是 无 3 绘图举例1 矩形绘图2 画曲线3 画圆4 改变标题颜色 二 图形的位置变换1 API函数API ApplicationProgramInterface 是库函数的调用接口 库函数是已经编写好了的函数代码段的集合 这些库函数一般存放在类型为Dll和Lib的文件中 是提高代码重用的手段之一 大量的库函数文件放在system32文件夹下 VB在使用这些文件中的函数时必须声明这些函数 声明语法形式如下 Private DeclareLib 库文件名串 Alias As数据类型 Private 当在窗体窗口中声明API函数时必须有该项 函数名 库中函数的名 库文件名串 说明库函数存放的文件名 如果是核心库 这些文件存放在system32文件夹 否则应在库文件串中说明路径 别名 给库函数一个别名 As数据类型 说明库函数返回值的类型 如只把库函数作为Sub过程 可省约该项 参数说明表 分别说明各形式参数及类型 形式如下 byval参数名1as数据类型 byval参数名2as数据类型 byval参数名nas数据类型 2 API函数StretchBlt该函数可进行图像的缩放 旋转 1 StretchBlt的语法StretchBlthDestDc x y nWidth nHeight hSrcDc xSrc ySrc nSrcWidth nSrcHeight dwRophDestDc 目标图片框的句柄 即目标图片框的hDC属性值 hSrcDc 来源图片框的句柄 即源图片框的hDC属性值 x y 复制到目标图片框图像的左上角坐标 目标起点 nWidth nHeight 复制到目标图片框中的宽度 高度 xSrc ySrc 来源图片框的左上角坐标 被复制的起点 nSrcWidth nSrcHeight 源图片框要复制部分的宽度 高度 dwRop 表示绘制方式 本例取SRCCOPY方式 直接复制 2 API函数StretchBlt的声明 PrivateDeclareFunctionStretchBltLib gdi32 ByValhdcAsLong ByValxAsLong ByValyAsLong ByValnWidthAsLong ByValnHeightAsLong ByValhSrcDCAsLong ByValxSrcAsLong ByValySrcAsLong ByValnSrcWidthAsLong ByValnSrcHeightAsLong ByValdwRopAsLong AsLong 3 StretchBlt程序举例 三 VB音频处理1 扬声器发声API函数Beep2 用MCI32控件播放音频1 把控件从控件文件 ocx 添加到工具箱工具箱只有常用的十几个控件 大量的控件定义存放控件文件中 要使用这些控件前必须把这些控件添加到工具箱中 添加控件文件中的控件到工具箱的操作如下 右击工具箱空白处 部件 在 部件 对话框中选择控件说明或按钮打开控件文件 按按钮 在工具箱中可看见加入的控件图标 2 Mci控件加入工具箱MCI控件存放在MCI32 ocx文件 该文件处于system32系统文件夹下 添加过程如下 在 工程 菜单中 单击 部件 以显示 部件 对话框 定控件名称左边的复选框 MultimediaMCI控件名称是MicrosoftMultimediaControl6 0 单击 确定 以关闭 部件 对话框 MultimediaMCI控件的图标显示在工具箱中 鼠标指向时的提示名称是MMControl 3 Multimedia控件的按钮 当你把mci控件加入窗体时可见多个按钮 按钮被分别定义为 Prev Next Play Pause Back Step Stop Record和Eject 你可以为某一个按钮编写程序 从而为其增加特殊功能 但通常用缺省的按钮功能就能很好地播放音乐和视频 4 DeviceType属性指出播放何种媒体 格式是 MMControl1 DeviceType DevnameMMControl1 DeviceType Devname值有 AVIVideo 视频文件 avi WaveAudio 音频文件 Wav Sequencer midi音频文件 mid 等 5 command属性它在运行过程中向多媒体设备发出命令 命令格式是 MMControl Command cmdstring 其中cmdstringS变量与每一个按钮的定义名称一致 取值是 Open Play Pause Close 等字符串值 6 FileNameMMControl1 FileName filenamestring 7 其它属性Visible Mode Wait Shareable Notify UpdateInterval等属性 7 属性设置MMControl Command Open 打开设备MMControl Command Play 媒体播放MMControl Command Pause 播放暂停MMControl Command Close 关闭设备MMControl1 DeviceType AVIVideo 指定视频设备MMControl Visible True False 指定多媒体控件对象在执行阶段是否可见 即是否显示出来 True可见 False不可见 MMControl Mode 指明媒体设备目前状态的整数 运行时为只读 MMControl Wait True False MMControl Shareable True False 指明该设备能否为不同的程序共享 True共享 False不共享 MMControl Notify True False 描述下一个MCI控制命令是否采用确认服务 若为True 则下一个MCI控制命令完成时会激发一个确认完成事件 即done事件 MMControl UpdateInterval n 该属性决定两次StatusUpdate事件发生所间隔的时间毫秒数n 8 MCI控件名 Done 事件 在Notify设为True时 MCI控制指令执行完毕时 激发该事件 执行相应的代码 Mci控件名 StatusUpdate 事件 该事件与Updateinterval属性值有关 每隔一个U