在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] 下一頁