| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 304 人关注过本帖
标题:用两个命令键切歌为啥不行
只看楼主 收藏
啊良
Rank: 3Rank: 3
等 级:论坛游侠
威 望:4
帖 子:29
专家分:105
注 册:2014-5-21
结帖率:100%
  已结贴   问题点数:10  回复次数:3   
用两个命令键切歌为啥不行
Private Sub Command1_Click()
MMControl1.TimeFormat = 0
MMControl1.DeviceType = "waveaudio"
MMControl1.FileName = App.Path & "\电音2.wav"
MMControl1.Command = "open"
MMControl1.From = 0
MMControl1.To = 0
MMControl1.Command = "play"  '播放
MMControl1.TimeFormat = 0
MMControl1.DeviceType = "waveaudio"
MMControl1.FileName = App.Path & "\电音1.wav"
MMControl1.Command = "open"
MMControl1.From = 1
MMControl1.To = 99999
MMControl1.Command = "play"  '播放
End Sub

Private Sub Command2_Click()
MMControl1.TimeFormat = 0
MMControl1.DeviceType = "waveaudio"
MMControl1.FileName = App.Path & "\电音1.wav"
MMControl1.Command = "open"
MMControl1.From = 0
MMControl1.To = 0
MMControl1.Command = "play"  '播放
MMControl1.TimeFormat = 0
MMControl1.DeviceType = "waveaudio"
MMControl1.FileName = App.Path & "\电音2.wav"
MMControl1.Command = "open"
MMControl1.From = 1
MMControl1.To = 99999
MMControl1.Command = "play"  '播放
End Sub
2017-12-02 09:25
suzhanpeng
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:43
专家分:141
注 册:2016-9-28
  得分:2 
不明白你为什么要重复赋值!
2017-12-03 15:44
啊良
Rank: 3Rank: 3
等 级:论坛游侠
威 望:4
帖 子:29
专家分:105
注 册:2014-5-21
  得分:0 
播放代码:
MMControl1.TimeFormat = 0
MMControl1.DeviceType = "waveaudio"
MMControl1.FileName = App.Path & "\电音1.wav"
MMControl1.Command = "open"
MMControl1.From = 1
MMControl1.To = 99999
MMControl1.Command = "play"  '播放
停止代码:
MMControl1.TimeFormat = 0
MMControl1.DeviceType = "waveaudio"
MMControl1.FileName = App.Path & "\电音1.wav"
MMControl1.Command = "open"
MMControl1.From = 0
MMControl1.To = 0
MMControl1.Command = "play"  '播放
这一组7个代码象是不能少。我想点击切歌,就是完成不了。

VB6.0
Q:554268420
2017-12-04 09:23
suzhanpeng
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:43
专家分:141
注 册:2016-9-28
  得分:8 
http://www.360doc.com/content/10/1014/11/3875864_60880436.shtml
2017-12-05 09:36







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.105561 second(s), 9 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved