Excel中Windows Media Player延时问题探讨
最近,在Daily Dose of Excel上看到一篇文章Windows Media Player Delay,是关于Excel中Windows Media播放器延时的问题,即在Excel中WMP控件不会马上开始播放。自已试了一下,确实存在。
首先,调出“控件工具箱”,单击“其他控件”,找到“Windows Media Player”控件,单击后将其放置到工作表Sheet1中。然后,在标准模块中放置下面的代码:
Public Sub assign_and_play()
Sheet1.WindowsMediaPlayer1.URL = “C:\这一招报复老板.wmv”
Sheet1.WindowsMediaPlayer1.Controls.Play
Application.Wait (Now + TimeValue(”00:00:05″))
MsgBox “yes”
End Sub
Public Sub just_play()
Sheet1.WindowsMediaPlayer1.Controls.Play
Application.Wait (Now + TimeValue(”00:00:05″))
End Sub
注意,您可以将URL行的文件换成您自已的文件路径。运行assign_and_play过程,WMP控件不会开始播放,而是5秒后开始,并且奇怪的是,在取消消息对话框之前开始。
just_play过程会立即开始播放,不会因为Application.Wait而等待。
