vb中mmcontrol怎么在切换歌曲的时候把正在播放的歌曲停掉?求指教! 30
使用mmcontrol控件切换歌曲时,不知道为什么总会出现歌曲切换后停不了的问题。以下是采用双击文件列表控制歌曲播放的一段代码(文件的路径代码已省略):PublicSub...
使用mmcontrol控件切换歌曲时,不知道为什么总会出现歌曲切换后停不了的问题。以下是采用双击文件列表控制歌曲播放的一段代码(文件的路径代码已省略):
Public Sub PlayMe() '播放媒体文件的函数申明
Stop
With MMControl1
.Command = "pause"
.Command = "close"
.Command = "open"
.FileName = 播放文件.Dir1.Path + "\" + 播放文件.File1.List(播放文件.File1.ListIndex)
.Command = "play"
End With
Label1.Caption = 播放文件.Dir1.Path + "\" + 播放文件.File1.FileName
Label2.Caption = "正在播放"
Picture3.BorderStyle = 1
播放文件.Hide
End Sub
Private Sub File1_DblClick() '双击播放文件
Call 播放器.PlayMe
End Sub
主要是问题是双击曲目或单击下一曲时都不能真正让前一首正在播放的歌曲停止播放或释放这一首歌所占内存……最好能做到停止歌的同时释放其内存。请高手支招! 展开
Public Sub PlayMe() '播放媒体文件的函数申明
Stop
With MMControl1
.Command = "pause"
.Command = "close"
.Command = "open"
.FileName = 播放文件.Dir1.Path + "\" + 播放文件.File1.List(播放文件.File1.ListIndex)
.Command = "play"
End With
Label1.Caption = 播放文件.Dir1.Path + "\" + 播放文件.File1.FileName
Label2.Caption = "正在播放"
Picture3.BorderStyle = 1
播放文件.Hide
End Sub
Private Sub File1_DblClick() '双击播放文件
Call 播放器.PlayMe
End Sub
主要是问题是双击曲目或单击下一曲时都不能真正让前一首正在播放的歌曲停止播放或释放这一首歌所占内存……最好能做到停止歌的同时释放其内存。请高手支招! 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询