vb14第14章 多媒体控件.ppt

1、1,第14章 多媒体控件,本章要点： 一、多媒体基础知识 二、Animation控件 三、MultiMedia MCI控件 四、ActiveMovie控件,2,14.1多媒体基础知识,3,2.方法 Move object.Move left, top, width, height 例13-2：在窗体上移动一正方形，每次移动时使正方形的长和宽增加100缇。 Private Sub Command1_Click() Shape1.Move Shape1.Left + 100, Shape1.Top + 100, _ Shape1.Width + 100, Shape1.Height + 100 E

2、nd Sub,4,13.1.2 Line控件 1.作用：设计时在窗体上绘制直线。 2.属性： BorderStyle、 BorderWidth X1、X2、Y1 、Y2 注意：运行时可以通过改变 X1、X2、Y1 和 Y2 属性 来移动它或者调整它的大小。而不能使用使用 Move方法 13.1.3 PictureBox控件(见第10章） 13.1.4 Image控件(见第10章）,5,13.2 常用绘图方法 13.2.1 画点方法（Pset） object.PSet Step (x, y), color 功能：在对象的指定位置，用一定的颜色画点 object窗体、图片框 Step 可选的，指定

3、相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置的坐标。 (x, y) 点的水平和垂直坐标。 color 为该点指定的 RGB 颜色。 省略时使用object的 ForeColor 属性值。,6,例13-3 用PSet方法在窗体上绘制一条00，3600的正弦曲线,Sub Form_Click() For i = 0 To 360 x = ScaleWidth / 360 * i sinx = Sin(i * 3.1415926 / 180) y = ScaleHeight / 2 - sinx * ScaleHeight / 2 PSet (x, y), vbRed N

4、ext i End Sub,7,例13-4 用PSet方法在窗体上绘制一条如下图所示的星形曲线,曲线由以下参数方程决定: x=sin2t*cost y=sin2t*sint 其中t的取值范围为0t2,8,Private Sub Form_Click() DrawWidth = 2 ForeColor = vbRed For t = 0 To 2 * 3.1415926 Step 0.001 x = Sin(2 * t) * Cos(t) y = Sin(2 * t) * Sin(t) px = ScaleWidth / 2 + x * ScaleWidth / 2 py = ScaleHeig

5、ht / 2 - y * ScaleHeight / 2 PSet (px, py) Next t End Sub,9,13.2.2 画线、矩形方法（Line） object.Line Step (x1, y1) Step (x2, y2), color, BF 功能：在对象的指定两点之间用一定的颜色画线或矩形 object窗体、图片框 Step可选的，指定相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置的坐标 (x1, y1) 直线或矩形的起点坐标。如果省略，线起始于由 CurrentX 和 CurrentY 指示的位置。 Step可选的，指定相对于起点的终点坐标 (

6、x2, y2) 直线或矩形的终点坐标。 Color 可选的，画线时用的 RGB 颜色。 B 可选的。利用对角坐标画出矩形。 F可选的。规定矩形以矩形边框的颜色填充。不能不用 B 而用 F。,10,例13-5：给例13-3增加绘制水平坐标线。 Sub Form_Click() Line (0, ScaleHeight / 2)-(ScaleWidth, ScaleHeight / 2), _ vbGreen For i = 0 To 360 x = ScaleWidth / 360 * i sinx = Sin(i * 3.1415926 / 180) y = ScaleHeight / 2 -

7、 sinx * ScaleHeight / 2 PSet (x, y), vbRed Next i End Sub,11,例13-6：在窗体上以随机的颜色从外向里画矩形，每隔一秒画一个。 Dim X1, Y1, X2, Y2, DX, DY Private Sub Form_Load() X1 = 0 Y1 = 0 X2 = ScaleWidth Y2 = ScaleHeight DX = ScaleWidth / 20 DY = ScaleHeight / 20 DrawWidth = 8 Randomize End Sub,12,Private Sub Timer1_Timer() If

8、X1 X2 And Y1 Y2 Then Line (X1, Y1)-(X2, Y2), QBColor(Int(Rnd * 15), B X1 = X1 + DX Y1 = Y1 + DY X2 = X2 - DX Y2 = Y2 - DY Else Timer1.Enabled = False MsgBox 绘制完毕 End If End Sub,13,13.2.3 画圆、椭圆、弧（Circle） object.Circle Step (x, y), radius, color, start, end, aspect 功能:在对象上画圆、椭圆或弧。 object 窗体、图片框。 Step指

9、定圆、椭圆或弧的中心相对坐标。 (x, y)圆、椭圆或弧的中心坐标。 radius圆、椭圆或弧的半径。 color圆的轮廓的颜色。省略则使用 ForeColor 值。 start, end以弧度为单位，范围 -2 pi, 2pi。 指定弧或扇形的起点和终点位置。 起点的缺省值是0; 终点的缺省值是2pi。 aspect圆的纵横尺寸比。缺省值为 1.0（标准圆）,14,注意：画部分圆或椭圆时，如果 start 为负，Circle 画一半径到 start，并将角度处理为正的；如果 end 为负，Circle 画一半径到 end，并将角度处理为正的。Circle 方法总是逆时针（正）方向绘图。 例1

10、3-7 在窗体上绘制以下图形：,15,Private Sub Form_Click() FillStyle = 0 定义填充风格Solid cx = ScaleWidth / 2 圆心X坐标 cy = ScaleHeight - 50 圆心Y坐标 r = cy - 200 半径 Randomize For i = 45 To 135 Step 5 If i Mod 10 0 Then FillColor = vbRed Else FillColor = vbYellow End If Circle (cx, cy), r, , -i * 3.1416 / 180, -(i + 5) * 3.1

11、416 / 180 Next i End Sub,插入以下延时程序段, 可观察绘制过程 For j = 1 To 100000 a = j Next j,16,13.2.4 清除图形方法(Cls) object.Cls 功能：清除运行时 Form 或 PictureBox 所生成的图形和文本 object 窗体、图片框。 Cls 的功能受AutoRedraw 的影响。 调用 Cls 之后，object 的 CurrentX 和 CurrentY 属性复位为 0。,17,13.3 与绘图方法有关的常用属性、事件、方法 在窗体或图片框上用Pset、Line、Circle方法画图，窗体或图片框的以下

12、属性影响绘图效果。 1. DrawWidth 图形方法输出的线宽。 2. DrawStyle 属性 图形方法输出的线型的样式。,DrawStyle = 0 DrawStyle = 1 DrawStyle = 2 DrawStyle = 3 DrawStyle = 4 DrawStyle = 5 DrawStyle = 6,18,3. DrawMode 定义绘图模式，取值1-16。用于将每一个像素与现 存背景色中相应的像素做比较，然后进行逐位比较操作 。例如，设置值 7（异或笔）用 Xor 操作符将绘图模式像素和背景像素组合起来。 4. AutoRedraw 使用如Print 、 Pset 、L

13、ine 和Circle 方法，在改变对象大小或隐藏在另一个对象后又重新显示的情况下，设置 AutoRedraw 为 True，将在 Form 或 PictureBox 控件中自动重绘输出。 运行时 在程序中设置 AutoRedraw，可以在画持久图形（如背景色或网格）和临时图形之间切换。如果设置 AutoRedraw 为 True，以前的输出成为背景屏幕的一部分。将AutoRedraw 设置为 False后，用 Cls 方法清除绘图区时不会删除背景图形。把 AutoRedraw 改回 True 后，再用 Cls 将清除背景图形。,19,例13-8:单击Command1在图片框中绘制一系列背景线

14、, 单击Command2在图片框中随机绘制一系列圆, 单击Command3清除图片框中绘制的圆, 单击Command4清除图片框中的所有图形。,20,Private Sub Command1_Click() P1.AutoRedraw = True:dx = P1.Width / 20 P1.ForeColor = vbYellow For i = 1 To 19 P1.Line (i * dx, 0)-(i * dx, P1.Height) Next i End Sub Private Sub Command2_Click() P1.AutoRedraw = False:P1.ForeCol

15、or = vbRed Randomize For i = 1 To 20 cx = Int(Rnd * P1.Width) cy = Int(Rnd * P1.Height) P1.Circle (cx, cy), 200 Next i End Sub,21,Private Sub Command3_Click() P1.AutoRedraw = False P1.Cls End Sub Private Sub Command4_Click() P1.AutoRedraw = True P1.Cls End Sub,22,5.ScaleMode属性 指示对象坐标的度量单位。 与 ScaleHe

16、ight、ScaleWidth、ScaleLeft 与 ScaleTop 属性有关，以上的任何一 个属性设置为任何值都自动将 ScaleMode 设置为 0（用户定义） CurrentX 和 CurrentY的设置值将随ScaleMode 属性设置而改变以反映当前点的新坐标。 6.Scale方法 object.Scale (x1, y1) - (x2, y2) 作用：用以定义 Form、PictureBox 的坐标系统。 可将坐标系统重置到所选择的任意刻度。 object 窗体、图片框 (x1, y1) object 左上角的坐标。 (x2, y2) object 右下角的坐标。,23,例13-9:在窗体上打印如下图所示的正弦和余弦曲线,坐标系统定义在如图所示的范围内,同时画出相应刻度。,24,Private Sub Form_Click() Scale (-180, 1)-(180, -1) 定义新的坐标系统 Line (-180, 0)-(180, 0) 画水平坐标线 Line (0, -1)-(0, 1) 画垂直坐标线 Line (0, 0.5)-(10, 0.5): Line (0, 1)-(10, 1) 画垂直刻度 Line (0, -0.5)-(10, -0.5):L