用两个命令键切歌为啥不行 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 用两个命令键切歌为啥不行

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1389 人关注过本帖

标题：用两个命令键切歌为啥不行

只看楼主加入收藏

啊良

等　级：论坛游侠
威　望：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"
= "open"
MMControl1.From = 0
MMControl1.To = 0
= "play"  '播放
MMControl1.TimeFormat = 0
MMControl1.DeviceType = "waveaudio"
MMControl1.FileName = App.Path & "\电音1.wav"
= "open"
MMControl1.From = 1
MMControl1.To = 99999
= "play"  '播放
End Sub

Private Sub Command2_Click()
MMControl1.TimeFormat = 0
MMControl1.DeviceType = "waveaudio"
MMControl1.FileName = App.Path & "\电音1.wav"
= "open"
MMControl1.From = 0
MMControl1.To = 0
= "play"  '播放
MMControl1.TimeFormat = 0
MMControl1.DeviceType = "waveaudio"
MMControl1.FileName = App.Path & "\电音2.wav"
= "open"
MMControl1.From = 1
MMControl1.To = 99999
= "play"  '播放
End Sub

2017-12-02 09:25

suzhanpeng

等　级：业余侠客
威　望：7
帖　子：72
专家分：248
注　册：2016-9-28

第 2 楼

得分:2

不明白你为什么要重复赋值！

2017-12-03 15:44

啊良

等　级：论坛游侠
威　望：4
帖　子：29
专家分：105
注　册：2014-5-21

第 3 楼

得分:0

播放代码：
MMControl1.TimeFormat = 0
MMControl1.DeviceType = "waveaudio"
MMControl1.FileName = App.Path & "\电音1.wav"
= "open"
MMControl1.From = 1
MMControl1.To = 99999
= "play" '播放
停止代码：
MMControl1.TimeFormat = 0
MMControl1.DeviceType = "waveaudio"
MMControl1.FileName = App.Path & "\电音1.wav"
= "open"
MMControl1.From = 0
MMControl1.To = 0
= "play" '播放
这一组7个代码象是不能少。我想点击切歌，就是完成不了。