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而等待。
发表您的评论