让PPT课件演灵动体验.docVIP

让PPT课件演绎灵动体验 ——例谈PPT在演示过程中任意变化三角形形状的制作 一、问题提出背景 随着现代信息技术在学校教学中的普及深入，多媒体课件已成为优化课堂教学、提高的一个不可缺少的辅助手段。PowerPoint软件与Word同出一门能够制作集文字、图像、声音、视频剪辑融于一体被老师们广泛应用课堂教学。显然会PPT课件。为此，本文研究在PPT中绘图的方法，以促进对PPT绘图的应用。MouseDown、MouseMove、MouseUp三种鼠标事件进行程序设计。 当鼠标左键被按下时，便触发MouseDown事件。在MouseDown事件中，先设置线型的颜色（本实例选择蓝色）、鼠标状态变量，读取鼠标指针的位置坐标。代码如下： PrivateSub I1_MouseDown(ByValButtonAsInteger, ByVal Shift As Integer, By Val X As Single, By Val Y As Single) ActivePresentation. SlideShowSettings. Run.View.PointerColor.RGB = RGB(0, 0, 255) Down = True X0 = X Y0 = Y End Sub 当鼠标移动时，便触发MouseMove事件。在MouseMove事件中，读取鼠标指针的位置坐标，然后用Delete方法将原来连接此顶点的两条边线擦掉，此时若不指定被擦线的名称，它将删除所有的画线，因此三角形的三条边线都必须指定名称，如d1、d2、d3。指定线的名称的方法，可以采用先在幻灯片编辑窗口中画一条线段，然后打开脚本编辑器，将其中程序自动分配的名称改为指定的名称；也可以用AddLine方法画指定名称线段。接着再用AddLine方法使用相同的名称重画两条边线。 当鼠标不停移动时，便需要不停地画线，但画线的痕迹不能保留，这可以用DrawLine方法来实现。问题是：当鼠标停止移动时（左键仍然按着），这时，用DrawLine方法画的线将自动被擦除，也就是连接此顶点的两条边线没了，当然，我们可以用Add Line方法使用相同的名称再重画这两条边线，但由于这时程序仍然在运行，当所画线与幻灯片上已有线重名时，程序将出错。因此，在这里便使用了一个状态参数m来控制不要AddLine方法重复画线，将此问题解决。具体代码如下： Private Sub I1_MouseMove (ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Down Then ‘如果按下鼠标左键。 I1.Left = I1.Left + X - X0 ‘计算顶点随鼠标指针移动到新位置时的左边距。 I1.Top = I1.Top + Y - Y0 ‘计算顶点随鼠标指针移动到新位置时的顶边距 X0 = X ‘重新读取鼠标水平位置。 Y0 = Y ‘重新读取鼠标垂直位置。 m = False ‘设置中间变量是假。 On Error Resume Next ‘若程序出错不要中断仍然执行下去。 SlideShowWindows(1).View.Slide.Shapes(d1).Delete ‘删除连接顶点的一条边。 SlideShowWindows(1).View.Slide.Shapes(d2).Delete ‘删除连接顶点的另一条边。 ActivePresentation.SlideShowWindow.View.DrawLine I2.Left + I2.Width / 2, I2.Top + I2.Height / 2, I1.Left + I1.Width / 2, I1.Top + I1.Height / 2 ‘动态画一条边。 ActivePresentation.SlideShowWindow.View.DrawLine I3.Left + I3.Width / 2, I3.Top + I3.Height / 2, I1.Left + I1.Width / 2, I1.Top + I1.Height / 2 ‘动态画另一条边。 DoEvents ‘产生一个中断以便释放系统资源。 If m = False Then ‘如果中间变量是假。 With SlideShowWindows(1).View.Slide.Shapes.AddLine(I2.Left + I2.Width / 2, I2.Top + I2.Height / 2, I1.Left + I1.