admin管理员组

文章数量:1130349

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

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

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

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开发

网站：添加链接描述

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

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

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

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

版权声明：本文标题：vba英文翻译成中文 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://it.en369.cn/jiaocheng/1754354566a2676986.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。