发布一个用VB.Net开发的文本到wav 文件 文本到语言的.net类库,已经实现了男声。汉字朗读,字幕朗读,数字朗读,以及数值朗读等

麦壳饼 2008-10-06 01:07:33
http://download.csdn.net/source/667484
请到这里下载。
vb6版本的也有,只是没有完成文本到.wav。朗读的和vb.net 做的这个是一样的。
...全文
232 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
麦壳饼 2008-10-28
  • 打赏
  • 举报
回复
顶一下啦
Bullatus 2008-10-07
  • 打赏
  • 举报
回复
必须顶啊
麦壳饼 2008-10-07
  • 打赏
  • 举报
回复
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using SuperRuntimeLibrary.TextVoice;//引用类库

namespace WindowsFormsApplication1
{
public partial class frmMain : Form
{
public frmMain()
{
InitializeComponent();
}
TextToVoice stv = new TextToVoice();//新建一个文本到语言的对象
private void button1_Click(object sender, EventArgs e)
{
stv.Speak(textBox1.Text);//点击按钮一直接朗读该文本
}

private void button2_Click(object sender, EventArgs e)
{
stv.SpeakSpelling(textBox2.Text);//朗读文本框2中的拼音,必须是正确而且存在的拼音,且带声调
}

private void Form1_Load(object sender, EventArgs e)
{
stv.Speaking += new TextToVoice.SpeakingEventHandler(stv_Speaking);//委托朗读进度,可以通过此来反馈当前正在朗读的内容,也可以取消。
}

void stv_Speaking(string txtChr, ref bool Cancel)
{
label3.Text = string.Format("正在朗读【{0}】", txtChr);//显示朗读内容,Cancel 如果设置为否,则退出朗读。
}

private void button3_Click(object sender, EventArgs e)
{
TextToWave ttw = new TextToWave();//新建一个文本到wav的对象
SaveFileDialog sfd=new SaveFileDialog();//新建一个对话框
sfd.Filter = "音频文件(*.wav)|*.wav|全部文件(*.*)|*.*";
sfd.DefaultExt ="wav";
if (DialogResult.OK == sfd.ShowDialog(this ))//打开对话框
{
ttw.Speak(this.textBox1.Text , sfd.FileName );//把该文本直接转换为文件。 可以用播放器来播放。
}
}
}
}
JeffChung 2008-10-06
  • 打赏
  • 举报
回复
支持
麦壳饼 2008-10-06
  • 打赏
  • 举报
回复
http://www.mysticboy.cn/article.asp?id=165
到这下载最新的例子吧 。 里面带有vs2005的例子。
IWAWWFY 2008-10-06
  • 打赏
  • 举报
回复
支持

多谢分享
麦壳饼 2008-10-06
  • 打赏
  • 举报
回复
多谢。
cauhorse 2008-10-06
  • 打赏
  • 举报
回复
支持下。

16,717

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧