循环,对比名字
Dim sp As New DotNetSpeech.SpVoice()
For Each v As object In sp.getVoices If v.GetDescription Like "*Chinese*" Then sp.Voice = v Exit For End IfNextsp.Speak("I am from china.", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)