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)