谢谢,我试试!!!
谢谢,我试试!!!
我复制你的代码
Private Sub mnuFilelist_Click(Index As Integer)
'MsgBox mnuFilelist(Index).Caption
'这是读出菜单项,
'你将这一句替换成播放语句的代码即可,即下面这一句'
WindowsMediaPlayer1.open mnuFilelist(Index).Caption
End Sub
加了WindowsMediaPlayer1,
提示,
实时错误:438
对象不支持该属性或方法
请教怎样修改
[
本帖最后由 看学 于 2010-11-20 20:22 编辑 ]