TTS (Прочитанный текст записать в аудио файл)

vox.SetOutputToWaveFile("полное имя файла.wav)"

Dim vox As New SpeechSynthesizer()

Public WithEvents vox As New SpVoice

Imports System.Speech
Imports System.Speech.Synthesis

' Load the voices combo box
        Dim Token As ISpeechObjectToken
        For Each Token In vox.GetVoices
            ComboBox1.Items.Add(Token.GetDescription())
        Next
        ComboBox1.SelectedIndex = 0
 
        Dim str As String = Environment.UserName.ToString()
 
 Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        vox.Rate = RateOfSpeech
        vox.Speak(RichTextBox1.Text.ToString(), SpeechVoiceSpeakFlags.SVSFlagsAsync)
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        vox.Voice = vox.GetVoices().Item(ComboBox1.SelectedIndex)
    End Sub
 
    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        RateOfSpeech = TrackBar1.Value
    End Sub
 
    Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
        vox.Speak("", SpeechVoiceSpeakFlags.SVSFPurgeBeforeSpeak)
    End Sub
   
 
    Private Sub LerFiceiroToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LerFiceiroToolStripMenuItem.Click
        Panel1.Show()
        Panel2.Hide()
        Panel3.Hide()
        Panel4.Hide()
    End Sub
 
    Private Sub SairToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SairToolStripMenuItem.Click
        result = MsgBox("Fechar a Aplicação?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
 
        If result = MsgBoxResult.Yes Then
            MsgBox("Adeus!", MsgBoxStyle.Information)
            Application.Exit()
 
        ElseIf result = MsgBoxResult.No Then
            cancel = True
        End If
    End Sub
 
    Private Sub InfoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InfoToolStripMenuItem.Click
        Panel1.Hide()
        Panel2.Hide()
        Panel3.Show()
        Panel4.Hide()
    End Sub
 
  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Panel4.Show()
        Panel1.Hide()
        Panel2.Hide()
        Panel3.Hide()
 
        sSQL = "select * FROM Livros"
        da = New OleDb.OleDbDataAdapter(sSQL, conn)
 
        ds = New DataSet
        da.Fill(ds, "Livros")
        Me.DataGridView1.DataSource = ds.Tables("Livros")
 
    End Sub
 
    Private Sub DataGridView1_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        conn.Open()
        da.Update(ds, "Livros")
        Me.DataGridView1.DataSource = ds.Tables("Livros")
        conn.Close()
    End Sub
 
    Private Sub ToolStripButton14_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton14.Click
        vox.Rate = RateOfSpeech
        vox.Speak(RichTextBox1.Text.ToString(), SpeechVoiceSpeakFlags.SVSFlagsAsync)
        vox.SetOutputToWaveFile("livro.wav")
    End Sub

Public vox As New  SpeechSynthesizer()

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.Speech
Imports System.Speech.Synthesis
Imports System.IO
 
Namespace SoundsVB
    Public Class speakerForm
        Dim speaker As New SpeechSynthesizer()
 
        Private Sub exitButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles exitButton.Click
            Application.Exit()
 
        End Sub
 
        Private Sub speakButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles speakButton.Click
            speaker.Rate = Convert.ToInt32(speedUpDown.Value)
            speaker.Volume = Convert.ToInt32(volumeUpDown.Value)
            speaker.SpeakAsync(speakTextBox.Text)
 
        End Sub
 
        Private Sub fileButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles fileButton.Click
            SaveFileDialog1.FileName = fileTextBox.Text
            If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                fileTextBox.Text = SaveFileDialog1.FileName
            End If
        End Sub
 
        Private Sub exportButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles exportButton.Click
            If fileTextBox.Text = String.Empty Then
                MessageBox.Show("Please select a location to save the file.", "File not defined", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Else
                Try
                    speaker.Rate = Convert.ToInt32(speedUpDown.Value)
                    speaker.Volume = Convert.ToInt32(volumeUpDown.Value)
                    speaker.SetOutputToWaveFile(fileTextBox.Text)
                    speaker.Speak(speakTextBox.Text)
                    speaker.SetOutputToDefaultAudioDevice()
                    MessageBox.Show("File written successfully.", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Catch ex As Exception
                    MessageBox.Show("There was an error writing the file." & vbNewLine & ex.Message, "File error", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End Try
            End If
        End Sub
    End Class
 
End Namespace

Imports SpeechLib
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.Speech
Imports System.Speech.Synthesis
Imports System.IO
 
 
 
Public Class Form1
    Dim speaker As New SpeechSynthesizer
 
 Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RichTextBox1.Text = String.Empty Then
            MessageBox.Show("Please select a location to save the file.", "File not defined", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            Try
                
                speaker.SetOutputToWaveFile(RichTextBox1.Text)
                speaker.Speak(RichTextBox1.Text)
                speaker.SetOutputToDefaultAudioDevice()
                MessageBox.Show("File written successfully.", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Catch ex As Exception
                MessageBox.Show("There was an error writing the file." & vbNewLine & ex.Message, "File error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End If
    End Sub