KingSoft提供了库播放某个单词的读音,比如我用VB6试过了,可以这样调用:
Option Explicit
'Create a VB6 EXE project, and drag a command button on the form,
'then add the reference:
' KSVoice 1.0 Type Library
Private Const KWord As String = "play"
'Run the program and click the command button, listen~
Private Sub Command1_Click()
Dim ksv As KSVOICELib.KDVoice
Set ksv = New KSVOICELib.KDVoice
ksv.InitSoundEngine
Call ksv.PlaySound(KWord)
End Sub
不错
Option Explicit
'Create a VB6 EXE project, and drag a command button on the form,
'then add the reference:
' KSVoice 1.0 Type Library
Private Const KWord As String = "play"
'Run the program and click the command button, listen~
Private Sub Command1_Click()
Dim ksv As KSVOICELib.KDVoice
Set ksv = New KSVOICELib.KDVoice
ksv.InitSoundEngine
Call ksv.PlaySound(KWord)
End Sub
两个进程之间的通信十分复杂,并且两个进程所对应的程序的源代码都是你自己写的才能通信。
如果你的VB功底好,自己编一个mini词霸并非难事。
其实可以不要通过金山词霸
金山词霸也是通过微软的TTS引擎来实现的
到网上去搜索一下有关VB中调用TTS的文章吧
在开始菜单的运行里输入 :narrator
回车看看