数学建模中的排班问题:VB编程(如何调用金山词霸的单词和汉字的读音)

不错

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词霸并非难事。

很简单的,我来教你,加我QQ406400171

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

其实可以不要通过金山词霸
金山词霸也是通过微软的TTS引擎来实现的
到网上去搜索一下有关VB中调用TTS的文章吧

在开始菜单的运行里输入 ：narrator
回车看看