利用VBA实现幻灯片播放倒计时功能.docVIP

利用VBA实现幻灯片播放的倒计时功能 利用VBA实现幻灯片播放的倒计时功能 PAGE / NUMPAGES 利用VBA实现幻灯片播放的倒计时功能 利用 VBA 实现幻灯片播放的倒计时功能 2011-07-12 16:46 【摘 要】： 跟着信 息技术与学科的整合，教课课件在讲堂中的使用愈来愈屡次，特别在各样教课比赛 中。为了更好地掌握讲堂教课时间，教师常常在教课的课件中引入计时功能。 PPT 自带的自定义动画能够实现计时功能，但只好是较短时间，其实不适用。下边就怎样 为幻灯片增添适用的计时功能进行商讨。 【重点词】：幻灯片 计时 一、 使用幻灯片自带的 VB 编写器编程实现 以一个有三张幻灯片的课件为例： 第一步：翻开第一张幻灯片，选择 PPT 菜单栏 “视图 —— 工具栏 —— 控件工具箱 ”，翻开控件工具箱，选择命令按钮控件，在幻灯片左下角拖出一个命令按钮。右击按钮图标，翻开 “属性 ”对话框，将 Caption 的值改为 “开始 ”。 第二步：选择控件工具箱中的文本框，在按钮下方拖出一个文本框；右击文本框，翻开属性对话框，进行文字格式的 设置。再次右击文本框控件，选择快捷菜单中的 “叠放序次 —— 置于顶层 ”； 第三 步：选中文本框，按 Ctrl + C 快捷键把文本框复制，而后挨次选择第二张、第三张 幻灯片，按 Ctrl + V 快捷键把文本框粘贴，让第二张和第三张幻灯片上都获得一个 同样的文本框，并保持在同一个地点 第四步： 选择 P P T 菜单栏 “工具 —— 宏 —— Visual Basic 编写器，翻开编写器窗口。在编写窗口中选择菜单 “插入 —— 类模 块 ”，在工程资源管理窗口中会自动增添一个名为 “类 1”的模块，在属性窗口中把名称改为 “EventClassModule。”第五步： 在代码窗口中编写用于捕获 PPT 幻灯片 开始播放的事件，以及计时程序代码。 期刊文章分类查问 ,尽在期刊图书室 Public WithEvents App As Application Private js As Boolean 开始或停止倒计时程序 PPT 开始播放幻灯片刻 Private Sub App_SlideShowBegin(ByVal Wn As SlideShowWindow Dim tt As Integer Dim X, Y As Integer Dim Start As Single tt = 2700 5 分钟倒计时，初始值为得系统时间，能够精准到  300 秒 js = True 让倒计时程序开始工作 Start = Timer 获 0.001 秒 Do While js = True If Timer = Start + 1 Then 如 果与前一次记录的初始时间相差 1 秒时 Start = Timer 从头记录初始时间 tt = tt - 1 节余总秒数少 1 秒 If tt = 0 Then js = False 假如倒计时达成时，停止倒计时 X = Int(tt / 60 节余总秒数化为分：秒，并显示在各幻灯片 Y = tt Mod 60 Slide1.TextBox1.Text = CStr(X : Y Slide2.TextBox1.Text = CStr(X : Y Slide3.TextBox1.Text = CStr(X : Y Else DoEvents End If Loop End Sub PPT结束播放幻灯片刻，停止倒计时 Private Sub App_SlideShowEnd(ByVal Pres As Presentation jishi = False End Sub第五 步： 在编写窗口中选择菜单 “插入 —— 模块 ”，在属性窗口中把 “模块 1”名称改为 “ ClassModule。”在代码窗口中编写用于初始化方才制作的 EventClassModule模块 的程序代码。 Dim X As New EventClassModule 创立一个类对象，并把它与 PPT 连结 Sub InitializeApp( Set X.App = Application End Sub 第六步：双击工程资源管理 器中的 Slide1 对象，在代码窗口中编写代码。 Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByValX As Single, ByVal Y As Single InitializeApp 二、 在幻灯片母版中使用 Flash 计时器 其方 法是 “插入对象 ”， 采纳这类方式，在播放幻灯片刻会