主题：朗读问题- 异步朗读

请教

 

我在设置异步朗读的时候经常会出现朗读不完整的情况。

 

特别是  同一时间 有2个 语句需要进行 朗读 ，  经常就只读 1到2个字符  就没了 。

 

同步朗读 就没有问题。    

 

该怎么调整？

就算是异步,也不应该同时朗读2个语句,就算不出错,你能听清吗?

我 用  for  next  语句  进行 朗读。

 

应该  进行几次 next   的循环     也算是不在同一时间  （可能要用毫秒来区分！）

 

 

但 异步朗读  就 不会朗读完整。

 

 

同步 就可以 。。。

 

代码如下

Dim sp As New DotNetSpeech.SpVoice()
If Forms("出货管理板").Opened  Then
    Dim dt As DataTable = DataTables("出货基础信息表")
    For Each  dr As DataRow In dt.DataRows
        If dr("单") = True Then
            For i As Integer = 2 To 4
                If dr(dt.DataCols(i).Name) = Format(Date.Now,"HH:mm") Then
                    Dim str As String = (dr(dt.DataCols("客户")) & "," & dr(dt.DataCols(1).Name) & "," & dt.DataCols(i).Name.Replace("计划开始","")  & ",时间," &  Format(dr(dt.DataCols(i).Name),"HH:mm") & "到了,请作业!")
                    sp.Speak(str ,DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync) ' DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault)
                End If
            Next
        End If
    Next
End If

 

颜色部分  异步朗读 老是读不出来。

上传列子看看

测试没问题,上个例子看看

 这句放在循环里面看看

 

Dim sp As New DotNetSpeech.SpVoice()

代码 在 计划任务 里面 。

 

1、朗读的功能 会因为  其他操作  打断，

 

2、朗读的语句多的时候 会自动 打断。 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文件夹 (2) - 副本.zip

顶起 ， 老师帮忙测试一下

亲,怎么操作怎么重现问题?

 把这句代码写到全局代码那里去。

 

Public sp As New DotNetSpeech.SpVoice()

 

 其余的调用不要定义了，直接写 sp.Speak(str ,DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)