vb背景,自动播放,在6.0精简版能运作,

发布网友发布时间：2024-04-13 08:30

共2个回答

热心网友时间：2024-05-15 12:11

添加Windows media player 控件

窗体代码：

'================================

Private Sub Form_Load()

Me.Picture1.Visible = False '将播放器控件放到该容器内，设置该控件不可见

WindowsMediaPlayer1.URL = "c:\a.mp3" '连接要播放的文件

WindowsMediaPlayer1.Controls.play '播放

'在适当位置使用以下命令中的一个可停止播放

'Me.WindowsMediaPlayer1.Controls.pause '暂停

'Me.WindowsMediaPlayer1.Controls.stop '停止

'Me.WindowsMediaPlayer1.Close '关闭该控件

End Sub

热心网友时间：2024-05-15 12:11

对楼上的答案作一个补充，他那个不能实现连续播放，如要实现连续播放还得在控件的检测播放状态过程中对播放状态进行检测，当播放完成后再执行一次播放就可以了。