用VB编写ppt播放计时器

来源：百度知道 编辑：UC知道 时间：2024/07/01 09:34:33
哪位VB高手会用VB编写PPT播放的计时器？就是在PPT开始幻灯片播放时开始计时。
我曾经见过有人编写过，这个写软件可以点击软件窗体之后，软件调取已经打开的PPT并直接以幻灯片模式播放同时开始计时！！
谁会？代码可用加100分！

可以例用OLE和TIMER实现.
Dim strTime, endTime'全局变量用来记录开始和停止
Private Sub Command2_Click()
MsgBox Format(endTime - strTime, "您以运行HH小时MM分SS秒"), vbInformation, "程序提示"
End Sub

Private Sub Command3_Click()
CommonDialog1.ShowOpen
OLE1.SourceDoc = CommonDialog1.FileName
OLE1.Action = DoVerb
End Sub

Private Sub Form_Load()
OLE1.SourceDoc = App.Path + "\会议材料.ppt"
OLE1.Action = DoVerb
CommonDialog1.Filter = "*.ppt|*.ppt"

End Sub

Private Sub Timer1_Timer()
If OLE1.AppIsRunning Then
strTime = Time
Timer2.Enabled = True
Timer1.Enabled = False
End If
End Sub

Private Sub Timer2_Timer()
If Not OLE1.AppIsRunning Then
endTime = Time
Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub