我们每天工作中都可能需要用到翻译工具,想着,要不做个翻译小功能玩玩?
有了个想法,咱就动手来开发试试?
随后,这种的百度了一下,找到了相应的文档,有了原材料,我们就可以来生产了!
1、建窗体
第一步还是我们经常做的,建个窗体
控件 名称 属性
文本框 txtCN 无
文本框 txtEN 无
按钮 btnTranslate 无
2、添加代码
Private Sub btnTranslate_Click()
On Error Resume Next
Dim strTemp As String
Dim html As New HTMLDocument
Dim url As String
With CreateObject("Microsoft.XMLHTTP")
strTemp = Me.txtCN
url = "http://dict.youdao/search?q=" & strTemp & "&keyfrom=dict.index"
' Debug.Print url
.Open "get", url, True
.send
While .ReadyState <> 4
DoEvents
Wend
html.body.innerHTML = .responseText
Me.txtEN = html.getElementsByClassName("baav")(0).innerText & vbCrLf
Me.txtEN = Me.txtEN & html.getElementsByClassName("trans-container")(0).innerText
End With
End Sub
3、 测试
更新请关注我的公众号,Access开发
网站:添加链接描述
更多推荐
vba英文翻译成中文
发布评论