Public Class Form2
    Dim dicIng As String() = {"Car", "Door", "House", "Train", "Dog"}
    Dim dicEsp As String() = {"Coche", "Puerta", "Casa", "Tren", "Perro"}
    Dim texto As String


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        separadores(TextBox1.Text)
        TextBox2.Text = texto
    End Sub

    Public Function separadores(frase As String) As String

        Dim listado() As String
        Dim separador As String = " "


        texto = TextBox1.Text
        texto = texto.Replace(";", "")
        texto = texto.Replace(",", "")
        texto = texto.Replace(".", "")
        texto = texto.Replace("?", "")
        texto = texto.Replace("¿", "")
        texto = texto.Replace("!", "")
        texto = texto.Replace("¡", "")


        listado = Split(texto, separador)
        Return texto
    End Function
End Class

Public Class Form1
    Dim añadirpalaras As New Dialog1

    Private Sub PalabrasBindingNavigatorSaveItem_Click(sender As System.Object, e As System.EventArgs)
        Me.Validate()
        Me.PalabrasBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DiccionarioDataSet)

    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'DiccionarioDataSet.Palabras' Puede moverla o quitarla según sea necesario.
        Me.PalabrasTableAdapter.Fill(Me.DiccionarioDataSet.Palabras)

        ComboBox1.Items.Add("Seleccione un idioma")
        ComboBox1.Items.Add("Español")
        ComboBox1.Items.Add("Ingles")

        ComboBox1.SelectedIndex = 0
    End Sub

    Private Sub BotonSalir_Click(sender As System.Object, e As System.EventArgs) Handles BotonSalir.Click
        Me.Close()
    End Sub

    Private Sub ButtonAñadir_Click(sender As System.Object, e As System.EventArgs) Handles ButtonAñadir.Click
        añadirpalaras.ShowDialog()
    End Sub

    Private Sub BotonTraducir_Click(sender As System.Object, e As System.EventArgs) Handles BotonTraducir.Click
        Dim PalabraTxt1 As String

        Dim palabra As String


        PalabraTxt1 = TextBox1.Text

        If String.IsNullOrEmpty(TextBox1.Text) Then
            MessageBox.Show("Debe introducir un texto para traducirlo")
            TextBox1.Focus()


        ElseIf ComboBox1.SelectedItem = "Seleccione un idioma" Then

            MessageBox.Show("Debe elegir un idioma original")
        ElseIf ComboBox1.SelectedItem = "Español" Then

            If RadioButtonIng.Checked = True Then
                If PalabrasTableAdapter.FillByPalabrasIngles(Me.DiccionarioDataSet.Palabras, PalabraTxt1) Then

                    'AQUI ES DONDE TENGO QUE PONER QUE EL TEXTBOX ESCRIBA LA PALABRA INGLESA
                Else
                    MessageBox.Show("La palabra NO existe")
                End If
            Else

                MessageBox.Show("Debe elegir un idioma para traducir")
            End If

        ElseIf ComboBox1.SelectedItem = "Ingles" Then



            If RadioButtonEsp.Checked = True Then

                If PalabrasTableAdapter.FillByPalabrasIngles(Me.DiccionarioDataSet.Palabras, TextBox1.Text) Then
                    MessageBox.Show("La palabra existe")
                Else

                End If


            Else

                MessageBox.Show("Debe elegir un idioma para traducir")
            End If
        End If

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.SelectedItem = "Seleccione un idioma" Then
            RadioButtonEsp.Enabled = False
            RadioButtonIng.Enabled = False
        End If

        If ComboBox1.SelectedItem = "Español" Then
            RadioButtonEsp.Enabled = False
            RadioButtonIng.Enabled = True
        End If

        RadioButtonIng.Checked = False

        If ComboBox1.SelectedItem = "Ingles" Then
            RadioButtonIng.Enabled = False
            RadioButtonEsp.Enabled = True
        End If

        RadioButtonEsp.Checked = False

    End Sub

    Private Sub ButtonLimptextotraducir_Click(sender As System.Object, e As System.EventArgs) Handles ButtonLimptextotraducir.Click
        TextBox1.Clear()
    End Sub

    Private Sub ButtonLimpiarTextTraducido_Click(sender As System.Object, e As System.EventArgs) Handles ButtonLimpiarTextTraducido.Click
        TextBox2.Clear()
    End Sub

   
   
End Class