VB.NET 简单的Microsoft Speech Object Library文字转语音

Imports SpeechLib

Public Class Form1
    Private ReadOnly MyVoice As New SpVoice
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim tmpStr As String
        tmpStr = RichTextBox1.Text
        MyVoice.Speak(tmpStr, SpeechVoiceSpeakFlags.SVSFlagsAsync)
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If Button2.Text = "继续播放" Then
            MyVoice.Resume()
            Button2.Text = "暂停"
        ElseIf Button2.Text = "暂停" Then
            MyVoice.Pause()
            Button2.Text = "继续播放"
        End If

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        MyVoice.Speak(String.Empty, SpeechVoiceSpeakFlags.SVSFPurgeBeforeSpeak)
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        MyVoice.Voice = MyVoice.GetVoices(String.Empty, String.Empty).Item(ComboBox1.Text)
    End Sub

 

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add(0)
        ComboBox1.Items.Add(1)
        TrackBar1.Minimum = 0
        TrackBar1.Maximum = 100
        TrackBar1.Value = 50
        TrackBar2.Minimum = -10
        TrackBar2.Maximum = 10
        TrackBar2.Value = 0
        TextBox1.Text = TrackBar1.Value
        TextBox2.Text = TrackBar2.Value
        MyVoice.Volume = TrackBar1.Value
        MyVoice.Rate() = TrackBar2.Value
    End Sub

    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
        TextBox1.Text = TrackBar1.Value
        MyVoice.Volume = TrackBar1.Value
    End Sub

    Private Sub TrackBar2_Scroll(sender As Object, e As EventArgs) Handles TrackBar2.Scroll
        TextBox2.Text = TrackBar2.Value
        MyVoice.Rate() = TrackBar2.Value
    End Sub
End Class

体验地址:
https://www.lanzous.com/i5n1cvc