专栏首页VB小源码VB.NET 简单的Microsoft Speech Object Library文字转语音

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

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

谢谢您的关注!

本文分享自微信公众号 - VB小源码(vb_xym),作者:VB小源码

原文出处及转载信息见文内详细说明,如有侵权,请联系 yunjia_community@tencent.com 删除。

原始发表时间:2019-08-18

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • vb.net 结合MySQL数据库制作登录界面

    1、先用.net自带ping类ping通主机则进行数据库链接,否则提示用户服务器链接失败,并禁止用户输入,点击确定登录按钮!这是为了防止应用长时间无响应!

    巴西_prince
  • VB.NET 脚本计算机示例

    巴西_prince
  • VBA 发票数据解析

    巴西_prince
  • vb.net 结合MySQL数据库制作登录界面

    1、先用.net自带ping类ping通主机则进行数据库链接,否则提示用户服务器链接失败,并禁止用户输入,点击确定登录按钮!这是为了防止应用长时间无响应!

    巴西_prince
  • 一个需求从提出到落地的过程

    这篇文章主要借复盘天猫超市优惠券功能来聊下,一个优惠券功能的需求,从需求的提出到落地的一个复盘,有每个步骤的实操,这里的需求是明确的,后面有时间做一个需求分析的...

    靠谱先生
  • Spring Boot 中如何支持异步方法

    要使用 @Async,首先需要使用 @EnableAsync 注解开启 Spring Boot 中的异步特性。

    李红
  • 【Rust日报】2020-04-26 - 2020 年关于Rust你需要了解的

    https://blog.m-ou.se/writing-python-inside-rust-1/

    MikeLoveRust
  • muduo源码分析(一)-整体框架说明

    muduo是chenshuo开源的一个基于reactor pattern的多线程网络库。同时他也写了一本关于此网络库的书《Linux多线程服务端编程:使用mud...

    路小饭
  • 不到40行 Python 代码!打造一个简单的推荐系统

    维基百科这样解释道:推荐系统属于资讯过滤的一种应用。推荐系统能够将可能受喜好的资讯或实物(例如:电影、电视节目、音乐、书籍、新闻、图片、网页)推荐给使用者。源码...

    一墨编程学习
  • leetcode-520-Detect Capital

    chenjx85

扫码关注云+社区

领取腾讯云代金券