计算机等考试二VB教程.ppt

9 1图形处理9 2多媒体应用9 3示例 第9章图形处理及多媒体应用 VisualBasic程序设计 作业实验掌握 掌握 窗体的ScaleMode属性色彩常量 色彩函数绘图控件 shape和line绘图方法 Pset Line Circle Cls图片框 图像控件鼠标事件 MouseDown MouseUp MouseMove鼠标事件过程参数 Button Shift X Y 重点 绘图方法 Pset Line Circle Cls 计算机的绘图和动画是一件奇妙且引人入胜的主题 VisualBasic下的图象处理技术 包括绘图 色彩 动画 三维空间 虚拟现实 甚至计算机仿真的基础 听起来很诱人的东西往往需要大量不诱人的知识 本章是这些奇妙东西的入门 VB可以利用绘图方法在窗体或某容器类对象上画图 也可以用绘图控件画图 其多媒体控件可以让你感受动画 声音等 9 1图形处理 9 1图形处理 1 VB的坐标系统 1 VB坐标系系统坐标系 屏幕坐标 容器坐标系统 窗体坐标 所以 窗体中调整 移动控件时 使用容器的坐标系统 位置用Left Top属性描述 Left表示控件左上角到窗体左边的距离Top表示控件左上角到窗体上边的距离 9 1图形处理 1 VB的坐标系统 2 改变默认坐标系利用到窗体的Scale系列属性 ScaleLeft属性 确定对象左边的水平坐标 ScaleTop属性 确定对象顶端的垂直坐标 ScaleWidth属性 确定对象内部水平的单元数目 ScaleHeight属性 确定对象内部垂直的单元数目 如 ScaleLeft 50 ScaleTop 50ScaleWidth 100 ScaleHeight 100 利用窗体的Scale方法如 Form1 Scale 50 50 50 50 其中 前括号指左上角坐标 后括号指右下角坐标 可读系统由控件的ScaleMode属性设置的 ScaleMode的值有 ScaleMode值意义0用户自定义1点素 Twip即 特维 缺省刻度 2点 Point 3象素 Pixel 这与屏幕分辨率有关 4字符 Character 5英寸 Inch 6毫米 Millimeter 7厘米 Centimeter 3 刻度系统 9 1图形处理 思考题 如将水平滚动条的最小值设置为0 最大值设置为255 应对其 属性要进行设置 A left和topBwidth和heightCsmallchange和largechangeDmin和max 1 当前坐标 对象 窗体 图形框等 属性 CurrentX CurrentY 该属性设计阶段不可用 绝对坐标 x y 相对坐标 step x y 2 线宽 窗体 图形框或打印机的DrawWidth属性给出这些对象上所画线的宽度或点的大小 DrawWidth属性以像素为单位来度量 最小值为1 2 绘图属性 9 1图形处理 3 线型 DrawStyle 2 绘图属性 9 1图形处理 4 填充封闭图形的填充方式由以下两个属性决定 FillColor指定填充图案的颜色 缺省值与ForeColor相同FillStyle属性指定填充的图案 共有8种内部图案 DrawStyle设置值线型0实线1长划线2点线3点划线4点点划线5透明线6内实线 VB采用对象前景色 ForeColor 来绘图 RGB函数格式 RGB 红 绿 蓝 其中 红 绿 蓝三基色的成分使用0 255之间的整数 共有256 256 256种颜色 QBColor函数格式 QBColor 颜色码 其中 颜色码使用0 15之间的整数 共有16色例 Label1 forecolor RGB 255 0 0 Label1 forecolor vbred 2 绘图属性 9 1图形处理 5 色彩 9 1图形处理 3 使用绘图控件 1 Line控件 绘制直线属性 BorderStyle 直线类型 8种 默认为1 实线 见206页表BorderWidth 设置线宽BorderColor 设置线条颜色X1 Y1 X2 Y2 设置起始点和终止点的坐标 2 Shape控件 属性 Shape 设置图形的形状 参见P204表9 2 FillStyle 设置填充样式 默认为1 9 1图形处理 1 Pset方法 用于画点格式 object Pset Step x y 颜色 其中 objec是用于绘图板的 容器 对象名 如在本窗体画点 可以省去 x y 为点的坐标 Step表示采用采用相对坐标 注 采用背景颜色可清除某个位置上的点 4 绘图方法 点 线和圆 举例 PSet 1000 1000 vbRedPicture1 PSet 1000 2000 vbBluePSet 1000 1000 PSet 1000 1000 BackColor 例9 3在图片框上生成 天女散花 OptionExplicitPrivateSubCommand1 Click DimiAsIntegerFori 1To30000CalldrawNextiEndSubPrivateSubCommand2 Click EndEndSubPrivateSubdraw DimrAsInteger gAsInteger bAsIntegerDimxAsSingle yAsSingleDimwAsInteger hAsIntegerRandomizer Int Rnd 256 g Int Rnd 256 b Int Rnd 256 w pic1 Widthh pic1 Heightx Int Rnd w y Int Rnd h pic1 PSet x y RGB r g b EndSub 9 1图形处理 2 Line方法 用于画直线或矩形 4 绘图方法 语法 object Line Step x1 y1 Step x2 y2 Color 说明 Color 指定画线颜色Step 用来指出要画出的点与前一点的相对位置 示例 绘制一个任意三角形 说明 Form1 CurrentX 2000Form1 CurrentY 2000 语法 object Line Step x1 y1 Step x2 y2 Color B F 说明 B 利用给定坐标画矩形 使用时其前两个逗号不可省 F 规定矩形的填充颜色 在使用B参数的前提下使用 例9 4在窗体上画 三角形 PrivateSubCommand1 Click Line 1500 500 2500 750 Line 1750 1500 Line 1500 500 EndSub 9 1图形处理 3 Circle方法 用于画圆 椭圆 圆弧和扇形 4 绘图方法 画圆 对象 Circle Step x y 半径 Color start end aspect 参数 start 指定弧的起点位置默认值为0 end 指定弧的终点位置 默认值为2 Aspect 大于1时 椭圆沿垂直方向拉长 当小于1时 椭圆沿水平方向拉长 默认值为1 将产生一个标准圆 扇形 start和end均取负值 9 1图形处理 4 绘图方法 例1 PrivateSubCommand1 Click form1 Circle 1200 1000 750 vbRedCircleStep 0 0 850 RGB 200 0 255 EndSub 例9 6在窗体上画出一个扇形 圆 PrivateSubForm Load ConstPI 3 14159ShowCircle 2500 1500 1200 vbBlue PI PI 2CircleStep 600 600 6005 25EndSub 9 1图形处理 5 清除图形 object cls6 在图形中加入文本 例 currentX 1908currentY 1908Print 输出位置 比较记忆 点 线和圆的语法点 对象 Pset Step x y 颜色 线 对象 Line Step x1 y1 Step x2 y2 Color 圆 对象 Circle Step x y 半径 Color 小结 设定坐标 利用绘图控件 方法 画画 2001 春 在VB中最基本的对象是 它是应用程序的基石 也是其他控件的容器 A 文本框B 命令按钮C 窗体D 标签2000 秋 能被对象所识别的动作与对象可执行的活动分别称为对象的 A 方法 事件B 事件 方法C 事件 属性D 过程 方法2001 春 有程序代码 Text1 Text VisualBasic 其中的Text1 Text和 VisualBasic 分别代表 A 对象 值 属性B 对象 方法 属性C 对象 属性 值D 属性 对象 值 VisualBasic等级试题 9 1图形处理 5 使用图片框 1 使用picture属性显示图片2 使用loadpicture加载图片loadpicture fname size coloredpth x y 3 使用paintpicture方法 object paintpicturepicture dx dy dw dh sx 9 1图形处理 5 VisualBasic的鼠标事件 VB系统除了能捕获Click和DblClick以外 还可以捕获鼠标按钮的按下 释放和移动 即引发鼠标的MouseDown MouseUp MouseMove等事件 9 1图形处理 5 VisualBasic的鼠标事件 鼠标事件使用的参数MouseUp ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle 指示哪个鼠标键触发了鼠标事件 判断在按键的同时 是否按下了Shift Alt或Ctrl键 鼠标指针的位置 鼠标事件及触发条件MouseDown事件 按下任意鼠标按键时触发MouseUp事件 释放任意鼠标按键时触发MouseMove事件 鼠标移动过程中时触发 PrivateSubForm MouseDown ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle IfButton vbRightButtonThenPrint 你按下鼠标右键 IfButton vbLeftButtonThenPrint 你按下鼠标左键 EndSub 示例 检测用户按下了鼠标的哪个键 5 VB的鼠标事件 9 1图形处理 1 使用动画控件 Animation 1 功能用于播放无声的 avi 的数字电影文件 2 添加部件部件 MicrosoftWindowsCommonControls 26 0 3 常用属性Center 设为True 可确保播放的画面位于动画控件的中间位置 Autoplay 用于设定已打开的动画文件的自动播放 9 2多媒体应用 VB中与多媒体有关的控件有两个 都是ActiveX控件 一个是动画控件 另一个是媒体控制控件 4 常用方法Open 打开播放文件格式 Object OpenfnamePlay 用于进行播放格式 Object Play repeat start end 其中 repeat 重复播放的次数start 起始播放的桢 end 停止播放的桢例如 animat1 play5 9 24 1 使用动画控件 Animation 9 2多媒体应用 表示 使用名为animat1的动画控件要把已打开的 avi 文件的第10幅画到第25幅画面重复播放5遍 Stop 停止播放一般形式 Object stopClose 关闭文件 2 多媒体控件 1 多媒体控件 MultimediaMCI 用于管理 控制各种MCI MediaContolInterface 设备的控件 它提供了一组控制按钮 可以通过这些按钮控制和管理声卡 CD ROM VCD播放器等设备 2 添加部件第一步 工程 部件第二步 部件第三步 在 控件 列表框中选定MicrosoftMultimediaControl6 0 9 2多媒体应用 3 主要属性 Enabled 使该控件有效Visible 使该控件可见DeviceType 设置多媒体控件所要管理的设备类型AutoEnable 为True时 自动激活DeviceType所指定的设备 FileName 指定MCI所要使用的文件名称Command 在运行时使用 指定需要执行的MCI命令 4 MCI命令它是通过一套高层的与设备无关的命令来控制多媒体设备的 主要命令如表9 7所示 p223 格式 Mmcontrol1 Command commandname 例如 Mmcontrol1 Command Open 2 多媒体控件 9 2多媒体应用 示例 交叉火力 请演示中的程序需要定时器 PrivateSubTimer1 Timer IfmnuCtlMoveDemo CheckedAndDoFlag TrueThenCtlMoveDemoElseIfmnuLineDemo CheckedAndDoFlag TrueThenLineDemo 交叉火力ElseIfmnuShapeDemo CheckedAndDoFlag TrueThenShapeDemoElseI