问发现SpeakingDone事件 这样应用SpeakingDone为什么不产生SpeakingDone事件,解答次问题各分. Private Sub Command11_Click() tts1.CurrentMode = i tts1.Speak (Trim(Text1.Text)) End Sub Private Sub TextToSpeech1_SpeakingDone() i = i + 1 End Sub
高人,都哪里去了 这样应用SpeakingDone为什么不产生SpeakingDone事件,解答次问题各分. 只问: Private Sub Command11_Click() tts1.CurrentMode = i tts1.Speak (Trim(Text1.Text)) End Sub Private Sub TextToSpeech1_SpeakingDone() i = i + 1 End Sub
作 者:netwalking
所属论坛:Visual Basic
回复人:TechnoFantasy(www.applevb.com) (2001-7-7 19:25:47) 得0分
TextToSpeech事件的SpeakingDone事件
问没发现SpeakingDone事件
这样应用SpeakingDone为什么不产生SpeakingDone事件,解答次问题各分.
Private Sub Command11_Click()
tts1.CurrentMode = i
tts1.Speak (Trim(Text1.Text))
End Sub
Private Sub TextToSpeech1_SpeakingDone()
i = i + 1
End Sub
这样应用SpeakingDone为什么不产生SpeakingDone事件,解答次问题各分.
只问:
Private Sub Command11_Click()
tts1.CurrentMode = i
tts1.Speak (Trim(Text1.Text))
End Sub
Private Sub TextToSpeech1_SpeakingDone()
i = i + 1
End Sub
这样应用SpeakingDone为什么不产生SpeakingDone事件,解答次问题给分.
只问: