您所在位置：主题：让你的程序开口说话的代码
一江秋水
[专家分：9680] 发布于 2022-02-18 16:34:23
有2个方法。
第一个方法：优点：代码最简单，缺点：无法调整音量和语速
Private Sub Command1_Click()
CreateObject("SAPI.SpVoice").Speak "我是中华人民共和国公民"
End Sub
第二个方法：优点：可以调整音量和语速，缺点：代码稍复杂
在工程→引用中勾选 Microsoft Speech Object Library。
Dim MyVoice As New SpeechLib.SpVoice
Private Sub Command1_Click()
MyVoice.Speak "我是中华人民共和国公民"
End Sub
在对象浏览器中可以查询到SpVoice的属性:
Rate： 设置朗读速度，取值范围-10－10，如：MyVoice.Rate=8
Volume：设置朗读音量，取值范围0－100，如：MyVoice.Volume=50
第一个方法：优点：代码最简单，缺点：无法调整音量和语速
Private Sub Command1_Click()
CreateObject("SAPI.SpVoice").Speak "我是中华人民共和国公民"
End Sub
第二个方法：优点：可以调整音量和语速，缺点：代码稍复杂
在工程→引用中勾选 Microsoft Speech Object Library。
Dim MyVoice As New SpeechLib.SpVoice
Private Sub Command1_Click()
MyVoice.Speak "我是中华人民共和国公民"
End Sub
在对象浏览器中可以查询到SpVoice的属性:
Rate： 设置朗读速度，取值范围-10－10，如：MyVoice.Rate=8
Volume：设置朗读音量，取值范围0－100，如：MyVoice.Volume=50