SpeechLib是专门用来播放语音,能够识别英语、简体和繁体。并且可以播放声音文件,支持WAV格式,但不支持MP3。适用于需要语音报警场合。
注意:需要添加引用 COM类型组件 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
谢谢您的关注!