[VB6 ] 如何执行完，才执行下一个 atayal303 PTT批踢踢实业坊

[VB6 ] 如何执行完，才执行下一个

楼主: atayal303 (ox) 2015-10-07 23:09:35

If (Dir(mp3file) <> "") Then
MMPlay (mp3file)
Sleep 3000
SayTTS (chinese)
Else
SayTTS (letter & chinese)
End If
我希望执行 MMPlay (mp3file) 播放语音完毕后
在执行 SayTTS (chinese)播放语音
因为 MMPlay (mp3file) 播放语音会执行几秒是不确定的
用 Sleep 延迟秒数不洽当
以上用于 excel visual basic
请教各位该怎么做呢???

作者: sosokill (vieux) 2015-10-08 16:20:00

有办法取得播放状态吗?

楼主: atayal303 (ox) 2015-10-08 16:37:00

你是说MP3档案吗，这有，莫非有语法能判断有几秒吗?这段程式码，(MP3+TTS) 有两段发音希望MP3结束，立即换TTS发音如果少了sleep，他会两段一起拨放，变成重唱

作者: Peruheru (还在想) 2015-10-12 12:53:00

我不会写，不过我觉得应该要想办法用程式取得第一段的长度，然后就拖延那段长度才放出第二段，反正使用者不会中途按下停止所以不用担心时间不一致，顶多加一点时间缓冲应该有办法分析该MP3档案的时间长度

作者: sosokill (vieux) 2015-10-16 12:01:00

正常来说应该可以取得播放状态判断是否播放完毕不过我不知道你所使用的播放核心有没有提供个功能

继续阅读

[VBA ] Excel2007上 Frame无法布署控件tsongs [VB6 ] 元件太多及SQLGooLoo [VBA ] 撷取autofilter的criteria元素gitsvn [VBA ] 拉外部档案到活页簿读取档名s06yji3 [VBA ] 想请教循环中使用规划求解的问题moon0815 [VBA ] Excel有办法在另存新档时将宏密码改变?breakofdawn [VBA ] 利用vb删除宏中的模组程式breakofdawn [VB6] 请问VB6工具箱的问题perasa [.NET] 关于opencv3.0的问题VS2012/2013vichywu [VBA ] 由储存格贴入文字y77q