在office中集成翻译功能以及利用asp、vb6、vb.net开发翻译组件

二、在VB6中使用bingTranslate API
1、工具下载与安装
由于VB6不能象office中一样引用webservice，但有另外一款利器Microsoft Soap Toolkit 3.0可以帮我们方便的实现，下载地址附后

安装完成后会在C:\Program Files\Common Files\MSSoap\Binaries 出现

2.将在OFFICE VBA中自动生成的类文件(共8个)导出

3.转到VB6，我们新建一个工程，取名bingTranslate，点菜单上工程》添加引用，引入Microsoft XML,v2.6或以上版本 和Microsoft Soap Type Library v3.0

再点菜单上工程》添加类模块》现存，打开上面保存下来的8个类文件

注意，点开clsws_SoapService.cls，修改其中的str_WSWL字符，将其注释掉。

添加一个窗体，2个文本框分别是原文本、目标文本，2个下拉框分别是原语言代码、目标语言代码，1个翻译按钮Commonbutton1，双击Commonbutton1，输入

Private Const appID As String = "你的APPID"
Private Sub Command1_Click()
Dim obingTranslate As New clsws_SoapService
 
Text2.Text = obingTranslate.wsm_Translate(appID, Text1.Text, Combo1.Text, Combo2.Text, "text/plain", "general")
End Sub

按F5运行结果，

上一页  [1] [2] [3] [4] 下一页