vB中的Windows Media Player控件 50
展开全部
参考代码如下
Private Sub File1_Click()
WindowsMediaPlayer1.url = App.Path + "\" + File1.List(File1.ListIndex)
WindowsMediaPlayer1.Controls.play
End Sub
Private Sub Form_Load()
File1.Path = App.Path
End Sub
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
WindowsMediaPlayer1.url = App.Path + "\1.mp3"
WindowsMediaPlayer1.Controls.play
'WindowsMediaPlayer1.controls.pause '暂停
'Controls.currentPosition = 10 '设置当前播放未知
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
名片
2024-10-28 广告
Altair HyperWorks是一套功能强大的集成化CAE（计算机辅助工程）软件平台，由Altair公司开发。它涵盖了结构分析、流体动力学、优化、多体动力学、电磁场仿真等多个领域，提供了丰富的仿真工具和优化算法。HyperWorks以其...
点击进入详情页
本回答由名片提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
