Question

VB程序做TTS 假死

Private Sub Timer1_Timer()
JS = 0
Set s = CreateObject("sapi.spvoice")
s.speak "计划产量 " & Form1.M0.Value & "箱"
s.speak "当前产量 " & Form1.M1.Value & "箱"
s.speak "剩余产量 " & Form1.M2.Value & "箱"
End Sub

每当朗读时程序就变的不可操作，而且朗读完成后我的mscomm控件就出现下表越界的问题，不朗读，运行几个小时都没问题，M0 M1 M2是一个数码管控件的整形数值。想请教高手，如何做TTS才可以避免以上的情况。

Answer 1

对象没有关闭。
建议s用完后将其=nothing