【Microsoft Visual Basic 6.0】做个简单的翻译窗口

【结果展示】【例子1】
【翻译前】：

【翻译后】：

【例子2】
【翻译前】：

【翻译后】：

【部分代码】
【中英对换操作，需要手动修改代码】

【code】
Private Sub Command1_Click()
niu_from = "en" '这里修改源语言
niu_to = "zh" '这里修改需要翻译成的语言
Text2.Text = getdata("https://api.niutrans.com/NiuTransServer/translationXML?from=" + niu_from + "&to=" + niu_to + "&apikey=这里需要输入你的apikey&src_text=" + UTF8_URLEncoding(Text1.Text)) '需要填写你的apikey（获取在小牛翻译开放平台处注册即可获取）
End Sub
【code】
【开源代码下载地址】：
https://download.csdn.net/download/qq_43263647/19789542