Google 翻译 API 转换
Google Translate API conversion
有人可以使用 google 翻译 API 帮助我翻译吗?它在最后一行出现错误
System.InvalidCastException: 'Conversion from type 'TranslationResult' to type 'String' is not valid.'
这是这里的代码
Private Sub TranslateText(InputText)
Environment.SetEnvironmentVariable("GOOGLE_APPLICATION_CREDENTIALS", "C:\Users\student\Desktop\sunlit-runway-279702-175183ddeace.json")
Dim Client = TranslationClient.Create()
Dim InText = InputText.text
Dim response = Client.TranslateText(InText, LanguageCodes.Japanese, LanguageCodes.English)
Output.Text(response.TranslatedText)
End Sub
当我使用消息框时它可以工作,但我希望它显示在文本框中
Text 是 属性 文本框,不是函数。设置文本框的文本是这样的:
myTextBox.Text = "Hello word"
不是这样的
myTextbox.Text("Hello world")
这与 mesagebox.show 不同,后者是一个函数并且接受字符串参数
MessageBox.Show("Hello World")
因此,要将文本框文本设置为翻译后的结果:
myTextbox.Text = response.TranslatedText 'translated text is a string, like "Hello World"
真的,我认为你的代码应该是这样的:
Private Function TranslateJapanese(inputText as string) as string
Environment.SetEnvironmentVariable("GOOGLE_APPLICATION_CREDENTIALS", "C:\Users\student\Desktop\sunlit-runway-279702-175183ddeace.json")
Dim Client = TranslationClient.Create()
Dim response = Client.TranslateText(inputText, LanguageCodes.Japanese, LanguageCodes.English)
Return response.TranslatedText
End Sub
并像这样使用:
englishTextbox.Text = TranslateJapanese(japaneseTextbox.Text)
有人可以使用 google 翻译 API 帮助我翻译吗?它在最后一行出现错误
System.InvalidCastException: 'Conversion from type 'TranslationResult' to type 'String' is not valid.'
这是这里的代码
Private Sub TranslateText(InputText)
Environment.SetEnvironmentVariable("GOOGLE_APPLICATION_CREDENTIALS", "C:\Users\student\Desktop\sunlit-runway-279702-175183ddeace.json")
Dim Client = TranslationClient.Create()
Dim InText = InputText.text
Dim response = Client.TranslateText(InText, LanguageCodes.Japanese, LanguageCodes.English)
Output.Text(response.TranslatedText)
End Sub
当我使用消息框时它可以工作,但我希望它显示在文本框中
Text 是 属性 文本框,不是函数。设置文本框的文本是这样的:
myTextBox.Text = "Hello word"
不是这样的
myTextbox.Text("Hello world")
这与 mesagebox.show 不同,后者是一个函数并且接受字符串参数
MessageBox.Show("Hello World")
因此,要将文本框文本设置为翻译后的结果:
myTextbox.Text = response.TranslatedText 'translated text is a string, like "Hello World"
真的,我认为你的代码应该是这样的:
Private Function TranslateJapanese(inputText as string) as string
Environment.SetEnvironmentVariable("GOOGLE_APPLICATION_CREDENTIALS", "C:\Users\student\Desktop\sunlit-runway-279702-175183ddeace.json")
Dim Client = TranslationClient.Create()
Dim response = Client.TranslateText(inputText, LanguageCodes.Japanese, LanguageCodes.English)
Return response.TranslatedText
End Sub
并像这样使用:
englishTextbox.Text = TranslateJapanese(japaneseTextbox.Text)