Imports Google.API.Translate
Private Sub btnTranslate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTranslate.Click
Dim trans As New TranslateClient("")
toTextBox.Text = trans.Translate(fromTextBox.Text, "en", "ar") 'english to arabic
toTextBox.Text = trans.Translate(fromTextBox.Text, "en", "ur") 'english to urdu
toTextBox.Text = trans.Translate(fromTextBox.Text, "en", "fa") 'english to persian
End Sub
0 comments:
Post a Comment