我这里有个程序,你看看能不能解决。
我这里有个代码,
Private Sub Command1_Click()
Set objVoice = CreateObject("SAPI.SpVoice")
s = Text1.Text
If s = "" Then
Exit Sub
ElseIf s = " " Then
n = Replace(board, Chr(10), "。。")
objVoice.Speak n
Else
objVoice.Speak s
End If
End Sub
窗体上有一个文本框和一个命令按钮,单击命令按钮,系统读出文本框的内容。(XP可以读英文和拼音,vista win7可以中英文阅读)
如果读的文本长一点的话,程序就会假死。有高手能帮我看看,这个是什么原因导致的。有没有什么解决的办法吗?这个代码是我跟据一个脚本文件改编的。我自己也是一知半解。。这个是我毕业设计里的一个功能。