VB编程实现语音自动朗读，让声音响起来！

VB语音自动朗读程序

今天我们分享一下用VB编程实现的语音自动朗读程序，运行程序后，我们就可以听到程序自动朗读的声音了，同时对它进行改进后，亦可以实现朗读小说、电子文档、数据库内容和网站上的消息等，文末有本程序的视频操作演示。

在本程序中，我们首先要引用微软提供给我们的 Microsoft Speech Object Library 组件，引用后通过在代码中创建SpVoice对象，和设置中文朗读，然后运行程序，就可以实现自动朗读了。

♫♪  ♫♪  ♫♪  ♫♪  ♫♪ 

首先要引用下图红色框选的组件

然后编写程序代码如下：

---

Dim voice As New SpVoice

Private Sub Command2_Click()

   End

End Sub

Private Sub Command1_Click()

  voice.Speak Text1, SVSFlagsAsync

End Sub

Private Sub Form_Load()

 Set voice.voice = voice.GetVoices('', 'Language=804').Item(0) 

End Sub

---

程序运行图如下：

完整运行视频如下：