我有一个数据表,显示了MP4视频的描述性“标题”。单击“标题”后,它将传递名为“ URL的字段”,该字段具有视频的路径到WindowsMediaPlayer对象的URL属性。
示例:S:\ FOLDER1 \ FOLDER2 \ TEST.MP4
为暗示应单击该字段,我还将其设置为超链接,但我没有超链接路径,因为该事件由“ click”事件处理。
我设置了对WindowsMediaPlayer的工具引用,还将WindowsMediaPlayer activeX对象放在“ frmMain”的形式上-它为其自动命名为WindowsMediaPlayer1,并且我没有对其进行更好的重命名。
当我单击文本框时,没有任何反应。从我阅读的所有内容来看,似乎我已正确设置了它。
缺少什么?视频甚至无法播放。
这是单击“标题”文本框时的代码
Private Sub Title_Click()
Dim Player As WindowsMediaPlayer
Dim strURL As String
Set Player = Form_frmMain.WindowsMediaPlayer1.Object
Debug.Print Chr(34) & Me!URL & Chr(34)
strURL = Chr(34) & Me!URL & Chr(34)
Player.URL = strURL
End Sub