Access编程交流网
  • 设为首页|收藏本站|繁体中文|手机版
  •     
  • Access培训-Access开发平台-Access行业开发

  • 首页
  • 资讯
  • 技巧
  • 源码
  • 行业
  • 资源
  • 活动
  • 关于

技巧

ACCESS数据库

启动/设置/选项/背景

修复/压缩

安全/加密/解密

快捷键

版本升级/其它等

数据表

命名方式/设计规范

表设计

查询

Sql语言基础

选择查询

更新查询

删除查询

追加查询

生成表查询

交叉表查询

SQL特定查询

查询参数

查询综合应用

界面/窗体/控件

标签

文本框

命令按钮

组合框/列表框

选项组/复选框/选项按钮

选项卡

子窗体

窗体本身/综合应用

其它

报表打印

报表设计

高级报表

模块/函数/VBA/API/系统

VBA基础

内置函数

调试/跟踪/Debug

模块/类模块

API/COM/系统相关

字符数字日期

网络通信游戏

加密解密安全

文件处理

经典算法

宏/菜单/工具栏/功能区

宏/脚本

菜单/工具栏

功能区/Ribbon

图表/图形/图像/多媒体

图表

图形/图像

音频

视频/动画

DAO/链接表/ADO/ADP

DAO/链接表/ODBC

ADO/RDO

ADP

ActiveX/第三方控件/插件

Treeview树控件

ListView列表控件

Toolbar工具栏控件

微软其它控件

Dbi-Tech

CodeJock

Grid++Report

FastReport

ComponentOne

加载项/插件/Addin

OFFICE集成/导入导出/交互

Excel导入导出/交互

Word导入导出/交互

PPT交互

Outlook控制/邮件

Text文本文件/INI/CSV

PDF/SWF/XML格式

CAD格式

Sharepoint/其它Office

SqlServer/其它数据库

表

视图

存储过程/触发器

函数

用户/权限/安全

调试/维护

SqlServer其它/综合

发布/打包/文档/帮助

开发版/运行时

打包/发布/部署

开发文档/帮助制作

Access完整行业系统

采购管理系统

销售管理系统

仓库管理系统

人力资源管理HRM

CRM管理系统

MRP/ERP管理系统

BRP/流程优化

其它管理系统

心得/经验/绝招
其它/杂项
Excel技巧

Excel应用与操作

Excel开发编程

Word技巧

Word应用与操作

Word开发编程

Outlook技巧

Outlook应用与操作

Outlook开发编程

热门文章

  • Access VBA实现自..

最新文章

  • Access VBA实现自..

联系方式

Access交流网(免费Access交流)

QQ:18449932 

网  址:www.access-cn.com

当前位置:首页 > 技巧 > 模块/函数/VBA/API/系统 > 网络通信游戏
网络通信游戏

Access VBA实现自动翻译功能

Access VBA实现自动翻译功能

Access VBA实现翻译功能, Access本身不带翻译,但可以通过调用网页的翻译功能来实现翻译,以下是 VB高手 "主席” 在 江苏大侠的基础上 改写的自动翻译 功能


 access数据库


Access 翻译 操作动画展示


 access数据库


详细Access VBA代码:


作者:主席(smileyoufu)  在  江苏大侠的基础上改写

 

'参数说明:

'    'strTextToBeTranslated      待翻译的语言内容

'    'LanguageFrom               待翻译的语言类型

'    'LanguageTo                 目标语言类型

'    'strAppID                   微软翻译API应用ID(使用默认值即可)

Public Function Translate( _

    ByVal strTextToBeTranslated As String, _

    Optional ByVal LanguageFrom As String = "ZH-CN", _

    Optional ByVal LanguageTo As String = "EN", _

    Optional ByVal strAppID As String = "708BEDCB01828123DC7B6C6A6AB12EF82DFBB611") As String

    On Error Resume Next

    Dim strURL As String

    Dim objWinHttpRequest As Object

    DoEvents

    strURL = "http: //api.microsofttranslator.com/V2/Ajax.svc/Translate?oncomplete=&appId=" & _

    strAppID + "&from=" & LanguageFrom + "&to=" & LanguageTo & "&text=" & strTextToBeTranslated

    Set objWinHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")

    With objWinHttpRequest

        .Open "Get", strURL, False

        .Send

        Translate = Replace(VBA.Mid(.ResponseText, 3, Len(.ResponseText) - 3), "\""", """")

    End With

    If Translate = "" Then Translate = strTextToBeTranslated

    Set objWinHttpRequest = Nothing

End Function




'[语言枚举]

 '    dyy("英语") = "en"

    '    dyy("德语") = "de"

    '    dyy("法语") = "fr"

    '    dyy("中文") = "zh-CN"

    '    dyy("俄语") = "ru"

    '    dyy("韩语") = "ko"

    '    dyy("日语") = "ja"

    '    dyy("阿尔巴尼亚语") = "sq"

    '    dyy("阿拉伯语") = "ar"

    '    dyy("阿塞拜疆语") = "az"

    '    dyy("爱尔兰语") = "ga"

    '    dyy("爱沙尼亚语") = "et"

    '    dyy("巴斯克语") = "eu"

    '    dyy("白俄罗斯语") = "be"

    '    dyy("保加利亚语") = "bg"

    '    dyy("冰岛语") = "is"

    '    dyy("波兰语") = "pl"

    '    dyy("波斯尼亚语") = "bs"

    '    dyy("波斯语") = "fa"

    '    dyy("布尔语(南非荷兰语)") = "af"

    '    dyy("丹麦语") = "da"

    '    dyy("菲律宾语") = "tl"

    '    dyy("芬兰语") = "fi"

    '    dyy("高棉语") = "km"

    '    dyy("格鲁吉亚语") = "ka"

    '    dyy("古吉拉特语") = "gu"

    '    dyy("哈萨克语") = "kk"

    '    dyy("海地克里奥尔语") = "ht"

    '    dyy("豪萨语") = "ha"

    '    dyy("荷兰语") = "nl"

    '    dyy("加利西亚语") = "gl"

    '    dyy("加泰罗尼亚语") = "ca"

    '    dyy("捷克语") = "cs"

    '    dyy("卡纳达语") = "kn"

    '    dyy("克罗地亚语") = "hr"

    '    dyy("拉丁语") = "la"

    '    dyy("拉脱维亚语") = "lv"

    '    dyy("老挝语") = "lo"

    '    dyy("立陶宛语") = "lt"

    '    dyy("罗马尼亚语") = "ro"

    '    dyy("马尔加什语") = "mg"

    '    dyy("马耳他语") = "mt"

    '    dyy("马拉地语") = "mr"

    '    dyy("马拉雅拉姆语") = "ml"

    '    dyy("马来语") = "ms"

    '    dyy("马其顿语") = "mk"

    '    dyy("毛利语") = "mi"

    '    dyy("蒙古语") = "mn"

    '    dyy("孟加拉语") = "bn"

    '    dyy("缅甸语") = "my"

    '    dyy("苗语") = "hmn"

    '    dyy("南非祖鲁语") = "zu"

    '    dyy("尼泊尔语") = "ne"

    '    dyy("挪威语") = "no"

    '    dyy("旁遮普语") = "pa"

    '    dyy("葡萄牙语") = "pt"

    '    dyy("齐切瓦语") = "ny"

    '    dyy("瑞典语") = "sv"

    '    dyy("塞尔维亚语") = "sr"

    '    dyy("塞索托语") = "st"

    '    dyy("僧伽罗语") = "si"

    '    dyy("世界语") = "eo"

    '    dyy("斯洛伐克语") = "sk"

    '    dyy("斯洛文尼亚语") = "sl"

    '    dyy("斯瓦希里语") = "sw"

    '    dyy("宿务语") = "ceb"

    '    dyy("索马里语") = "so"

    '    dyy("塔吉克语") = "tg"

    '    dyy("泰卢固语") = "te"

    '    dyy("泰米尔语") = "ta"

    '    dyy("泰语") = "th"

    '    dyy("土耳其语") = "tr"

    '    dyy("威尔士语") = "cy"

    '    dyy("乌尔都语") = "ur"

    '    dyy("乌克兰语") = "uk"

    '    dyy("乌兹别克语") = "uz"

    '    dyy("希伯来语") = "iw"

    '    dyy("希腊语") = "el"

    '    dyy("西班牙语") = "es"

    '    dyy("匈牙利语") = "hu"

    '    dyy("亚美尼亚语") = "hy"

    '    dyy("伊博语") = "ig"

    '    dyy("意大利语") = "it"

    '    dyy("意第绪语") = "yi"

    '    dyy("印地语") = "hi"

    '    dyy("印尼巽他语") = "su"

    '    dyy("印尼语") = "id"

    '    dyy("印尼爪哇语") = "jw"

    '    dyy("约鲁巴语") = "yo"

    '    dyy("越南语") = "vi"


发布人:zstmtony  
分享到:
点击次数:  更新时间:2016-11-24 08:29:25  【打印此页】  【关闭】
上一条:Access入门新手必修课(十)-Access有效性规则  下一条:Access设置弹出窗体的大小的2种方法



相关文章

热门文章

  • [2016-11-24] Access VBA实现自动翻译功能access数据库

热门产品

公司动态|在线留言|在线反馈|友情链接|会员中心|站内搜索|网站地图

中山市天鸣科技发展有限公司 版权所有 1999-2023 粤ICP备10043721号

QQ:18449932

Access应用 Access培训 Access开发 Access平台

access|数据库|access下载|access教程|access视频|access软件

Powered by MetInfo 5.3.12 ©2008-2025  www.metinfo.cn