Imports System.Windows.Forms
Public Class Form1
'Creamos la variable publica de tipo webBrowser
Dim WebBr As New WebBrowser
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Quitar los molestosos mensajes del internet explorer
WebBr.ScriptErrorsSuppressed = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
'Mostramos el resultado en el textbox2
TextBox2.Text = WebBr.Document.GetElementById("result_box").OuterText
Catch ex As Exception
'Mensaje de error en caso de que el usuario no introdusca ningun dato
MsgBox("Introdusca la palabra que desea traducir", MsgBoxStyle.Exclamation, "Error")
End Try
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
'Establecemos la uri del traductor que usaremos y la concatenamos con el texto a buscar
WebBr.Url = New Uri(("https://translate.google.com/?hl=es#en/es/" & TextBox1.Text))
End Sub
End Class