FormatCB.Text = DefaultFmt后加一句:
Voice.AlertBoundary = SVEPhonemeVoice.Speak m_speaktext, m_speakFlags替换为:
Voice.Speak Text1.Text, SVSFlagsAsync
再加一段:
Private Sub Voice_Word(ByVal StreamNumber As Long, ByVal StreamPosition As Variant, _
ByVal CharacterPosition As Long, ByVal Length As Long)
Text1.SetFocus
Text1.SelStart = CharacterPosition
Text1.SelLength = Length
End Sub
Voice.AlertBoundary = SVEPhonemeVoice.Speak m_speaktext, m_speakFlags替换为:
Voice.Speak Text1.Text, SVSFlagsAsync
再加一段:
Private Sub Voice_Word(ByVal StreamNumber As Long, ByVal StreamPosition As Variant, _
ByVal CharacterPosition As Long, ByVal Length As Long)
Text1.SetFocus
Text1.SelStart = CharacterPosition
Text1.SelLength = Length
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货