在ＰｏｗｅｒＰｏｉｎｔ中控制視頻播放的起止位置

　　如何在PowerPoint中使用視頻文件的指定片段是在使用PowerPoint制作課件時常遇到的問題。在沒有找到有效控制視頻播放起止位置的方法之前，通常有三種“權宜之計”：1.使用超級解霸等視頻編輯或分割工具將指定的視頻片段提取出來，將其直接插入到幻燈片中。2.如果是AVI類型的視頻文件，可將其作為“由文件創建”的“對象”插入到幻燈片中，執行“視頻剪輯對象”中的“編輯”命令，通過工具欄中的“開始選擇”按鈕和“結束選擇”按鈕來重新設置視頻播放的起止位置。3.通過在幻燈片中插入“Windows Media Player”等媒體播放控件來播放整個視頻文件，使用課件時則通過拖動媒體播放控件的滑動塊來“快進”到指定片段。
　　縱觀以上三種方法，前兩種方法都對PowerPoint中所用的視頻提出了內容或格式上的要求，教師在使用時要具備一定的加工處理視頻信息的能力。第三種方法雖然回避了對視頻素材的加工處理，但在使用課件時要靠手工拖動滑動塊來選擇播放的起始位置，指定的片段播放結束時還要及時手工停止播放——這在教學應用中無疑是很不方便的。我們能否將其中由教師手工控制的操作交由計算機自動完成？
　　要解決上述問題，其實是要實現對媒體播放控件播放狀態的控制。下面以使用“Windows Media Player”控件來播放視頻文件“sample.wmv”第60秒至第600秒之間的片斷為例來說明控制的細節。第一步，將控件要播放的視頻文件設為“sample.wmv”，第二步，將控件播放視頻的當前位置設在第60秒處，第三步，控件開始播放視頻，第四步，當控件播放視頻的當前位置超過第600秒處時，暫停播放視頻。
　　事實上，前三步在VBA編程中只要用對應的三條語句就能實現（“Windows Media Player”控件使用默認名WindowsMediaPlayer1）：
　　WindowsMediaPlayer1.url=“sample.wmv”
　　WindowsMediaPlayer1.Controls.currentPosition = 60
　　WindowsMediaPlayer1.Controls.play
　　第四步的實現則需要實時判斷控件播放視頻的當前位置，這對沒有定時器（Timer）控件的VBA而言是難以實現的。但是Win32API中的設置定時器函數SetTimer( )與撤銷定時器函數KillTimer( )可以彌補這一缺陷。通過語句“TimeID = SetTime