我们每天工作中都可能需要用到翻译工具，想着，要不做个翻译小功能玩玩？

有了个想法，咱就动手来开发试试？

随后，这种的百度了一下，找到了相应的文档，有了原材料，我们就可以来生产了！

1、建窗体

第一步还是我们经常做的，建个窗体

控件 名称 属性
文本框 txtCN 无
文本框 txtEN 无
按钮 btnTranslate 无

2、添加代码

Private Sub btnTranslate_Click()On Error Resume NextDim strTemp As StringDim html As New HTMLDocumentDim url As StringWith CreateObject("Microsoft.XMLHTTP")strTemp = Me.txtCNurl = "http://dict.youdao.com/search?q=" & strTemp & "&keyfrom=dict.index"'        Debug.Print url.Open "get", url, True.sendWhile .ReadyState <> 4DoEventsWendhtml.body.innerHTML = .responseTextMe.txtEN = html.getElementsByClassName("baav")(0).innerText & vbCrLfMe.txtEN = Me.txtEN & html.getElementsByClassName("trans-container")(0).innerTextEnd With
End Sub

3、 测试

更新请关注我的公众号，Access开发

网站：添加链接描述