Ir al contenido principal

Como usar el API de Google Translate para Traducir Texto en .net

Primero necesitamos descargar la librería esto lo podemos hacer en el siguiente enlace:
Para utilizar la librería en .net
Hacemos clic en el menú proyecto, seleccionamos  agregar referencia

Seleccionamos la pestaña Browse con esto, la librería o Espacio de nombre será parte de nuestro proyecto y podremos usar de forma nativa las funciones de la librería.
El Siguiente Condigo Traduce el contenido de un textBox de ingles a Español y lo muestra en otro textbox.


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'creamos  una nueva instancia de tipo TranslateClient, que hace refencia al texto que queremos traducir
        'en este caso textbox1.text
        Dim trans As New Google.API.Translate.TranslateClient(TextBox1.Text)
        'asignamos al segundo textbox la traduccion del primer textbox
        'para ello usamos la funcion translate que nos pide como parametros,
        'el texto a traducir, el idioma del cual  queremos traducir, en este caso ingles
        'el idioma al que vamos a traducir en este caso español y el ultimo parametro es el forma de la traduccion
        'en este caso sera text porqu traducimos texto, tambien pueden traducirse paginas webs.
        TextBox2.Text = trans.Translate(TextBox1.Text, Google.API.Translate.Language.English, _
                                        Google.API.Translate.Language.Spanish, Google.API.Translate.TranslateFormat.Text)
    End Sub


El formulario del ejemplo se ve como este.Descar Api de Google Translate

Comentarios

Entradas populares de este blog

Como saber si un formulario esta abierto en VB.Net

Me vi en la necesidad de saber si un form esta abierto, asi que cree esta funcion para ello. Funcion 'Devuelve un valor booleano que indica si el form esta abierto     Public Function EstaAbierto(ByVal Myform As Form)         Dim objForm As Form         Dim blnAbierto As Boolean = False         blnAbierto = False         For Each objForm In My.Application.OpenForms             If (Trim(objForm.Name) = Trim(Myform.Name)) Then                 blnAbierto = True             End If         Next         Return blnAbierto     End Function Implementacion 'frmNuev...

Windows server 2012 DHCP Bad address

el problema de un servidor DHCP donde el ámbito se llenaba completamente, y cada ip asignada me desplegaba "BAD ADDRESS", normalmente esta situation se da porque hay un conflicto entre dos servidores DHCP, pero en mi caso particular fue originado por una interfaz de administración asignada a un switch fabric de un chassis. la solución fue desactivar la interface de administración del switch switch#configure switch#interface ManagementEthernet 0/0 switch#no ip address switch#shutdown