Question

如何判断VB中Multimedia MCI 控件 是否在播放

控件播放一首2分钟的歌，播完后就自动停止的，那我该用什么语句来判断它是否在播放呢？我想实现的是：如果音乐播放停止了后，标签上显示：“播放已停止”

Answer 1

MMControl1.Position = MMControl1.Length 这个等于 True 就表示播放完毕了说明：MMControl1.Position 是正在播发的音频位置MMControl1.Length 是正在播发的音频总长度（单位：毫秒）

Answer 2

在你让音乐开始的控件上加：Timer1.Enabled = True添加 timer控件，在timer1控件的属性设置为.Enabled =False Interval=120000在过程Private Sub Timer1_Timer()中
MsgBox "音乐已结束" '添加你要音乐结束的其他事件
End Sub

Answer 3

你有用滚动条控制进度吧？if scroll1.max=scroll1.value then label1.caption = "播放已停止"