VS2010旗舰版的VB.NET版本文本内容朗读程序代码QZQ

最新推荐文章于 2024-09-14 08:40:06 发布

EYYLTV

最新推荐文章于 2024-09-14 08:40:06 发布

阅读量118

点赞数 1

文章标签： .net 开发语言

本文链接：https://blog.csdn.net/qq_32257509/article/details/141111958

版权

Imports System.Speech.Synthesis

Public Class Form1
Private synth As SpeechSynthesizer

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    synth = New SpeechSynthesizer()


    TextBox1.Text = "你好，我的好朋友！QQ，abcd,1,2,3,4"


End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    Dim text As String = TextBox1.Text

    ' 设置朗读的语速和音量
    synth.Rate = 6 ' 语速范围为-10到10，默认为0
    synth.Volume = 100 ' 音量范围为0到100，默认为100

    ' 按照空格分割文本内容，逐个朗读
    Dim words As String() = text.Split(" "c)
    For Each word As String In words
        synth.Speak(word)
    Next
End Sub

End Class