二、在VB6中使用bingTranslate API
1、工具下載與安裝
由于VB6不能象office中一樣引用webservice，但有另外一款利器Microsoft Soap Toolkit 3.0可以幫我們方便的實現(xiàn)，下載地址附后

安裝完成后會在C:\Program Files\Common Files\MSSoap\Binaries 出現(xiàn)

 

2.將在OFFICE VBA中自動生成的類文件(共8個)導出

 

3.轉(zhuǎn)到VB6，我們新建一個工程，取名bingTranslate，點菜單上工程》添加引用，引入Microsoft XML,v2.6或以上版本 和Microsoft Soap Type Library v3.0

 

再點菜單上工程》添加類模塊》現(xiàn)存，打開上面保存下來的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運行結(jié)果，

 

 

本文地址:http://www.vistaarticles.com/news/n08/201401/12611.html,如要轉(zhuǎn)載，請注明轉(zhuǎn)載自5A農(nóng)業(yè)人才網(wǎng)

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