使用vb进行文字转语音的功能，但是直到朗读完成前不能进行其他
vb吧
全部回复
仅看楼主
level 5
布响丸辣⭐️ 楼主
使用vb进行文字转语音的功能，但是直到朗读完成前不能进行其他操作，像是倒计时功能也会失效，这是为什么呢，有什么解决的方法吗？代码及文本内容如图
#VB#
2021年03月14日 16点03分 1
吧务
level 13
《顾名思义》
doevents
2021年03月14日 16点03分 2
布响丸辣⭐️
Private Sub 朗读_Click() Dim o As Object Set o = CreateObject("SAPI.SpVoice") o.speak (题目.Text) DoEvents End Sub 是这样吗，我试了还是要先完成朗读才能进行其他操作啊
2021年03月15日 06点03分
yjryym
司仪菌又不看题张口就来？Speak函数内部阻塞，你™在外部DoEvents有个🔨用
2021年03月15日 07点03分
《顾名思义》
[阴险]回复 yjryym :好吧，你这个可以
2021年03月16日 07点03分
level 14
yjryym
Option Explicit
Dim sapi As New SpVoice
Private Sub Command1_Click()
sapi.Speak "你要朗读的文本", SVSFlagsAsync '注意，Speak函数是有两个参数，第二个参数要指定SVSFlagsAsync才不会卡界面（异步模式）
End Sub
2021年03月15日 07点03分 3
布响丸辣⭐️
能再提问一下吗? Dim sapi As New SpVoice 这句提示用户定义类型未定义是为什么啊[疑问]？
2021年03月15日 08点03分
布响丸辣⭐️
@布响丸辣⭐️ 知道了，要先引用microsoft speech object library
2021年03月15日 08点03分
布响丸辣⭐️
非常感谢
2021年03月15日 08点03分
1