vb14第14章 多媒体控件.pptVIP

第14章 多媒体控件 本章要点： 一、多媒体基础知识 二、Animation控件 三、MultiMedia MCI控件 四、ActiveMovie控件 14.1多媒体基础知识 13.2 常用绘图方法 13.2.1 画点方法（Pset） object.PSet [Step] (x, y), [color] 功能：在对象的指定位置，用一定的颜色画点 object—窗体、图片框 Step —可选的，指定相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置的坐标。 (x, y) —点的水平和垂直坐标。 color —为该点指定的 RGB 颜色。 省略时使用object的 ForeColor 属性值。 例13-3 用PSet方法在窗体上绘制一条[00，3600]的正弦曲线 例13-4 用PSet方法在窗体上绘制一条如下图所示的星形曲线,曲线由以下参数方程决定: x=sin2t*cost y=sin2t*sint 其中t的取值范围为0≤t≤2? 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 = ScaleHeight / 2 - y * ScaleHeight / 2 PSet (px, py) Next t End Sub 例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 - sinx * ScaleHeight / 2 PSet (x, y), vbRed Next i End Sub 例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 Private Sub Timer1_Timer() If 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.2.3 画圆、椭圆、弧（Circle） object.Circle [Step] (x, y), radius, [color, start, end, aspect] 功能:在对象上画圆、椭圆或弧。 object —窗体、图片框。 Step—指定圆、椭圆或弧的中心相对坐标。 (x, y)—圆、椭圆或弧的中心坐标。 radius—圆、椭圆或弧的半径。 color—圆的轮廓的颜色。省略则使用 ForeColor 值。 start, end—以弧度为单位，范围[ -2 pi, 2pi]。 指定弧或扇形的