Mirad, estoy haciendo un Script que según las categorías que tenga seleccionadas en unas CheckBox me copiará un texto u otro en el portapapeles.
La cosa es, que esto lo quiero hacer en varios idiomas y por eso he añadido al principio del form un ComboBox con los idiomas correspondientes y según el que elija me coja los datos del .txt de una carpeta o de otra.
Parte del código es este:
Código:
El problema viene que si ejecuto el programa y selecciono 1 idioma me dice:Dim Idioma As String If ComboBox1.SelectedItem = 0 Then MsgBox("Please select a Language", 0, "Error") Else If ComboBox1.SelectedItem = -1 Then Idioma = "ES" End If inicio = My.Computer.FileSystem.ReadAllText("C:\Documents and Settings\XXXX\Mis documentos\Visual Studio 2008\Projects\ClipperCreator\ClipperCreator\My Project\" & Idioma & "\header.txt") & vbCrLf & vbCrLf If CheckBox12.Checked Then final = My.Computer.FileSystem.ReadAllText("C:\Documents and Settings\XXXX\Mis documentos\Visual Studio 2008\Projects\ClipperCreator\ClipperCreator\My Project\"/ Idioma & "\Footer_stilllocked.txt") & vbCrLf & vbCrLf Else final = My.Computer.FileSystem.ReadAllText("C:\Documents and Settings\XXXX\Mis documentos\Visual Studio 2008\Projects\ClipperCreator\ClipperCreator\My Project\"& Idioma & "\Footer_notlocked.txt") & vbCrLf & vbCrLf End If
"La conversión de la cadena "Spanish" en el tipo 'Double' no es válida."
Y me selecciona:
Código:
en amarillo.If ComboBox1.SelectedItem = 0 Then
Los campos del Combobox son Spanish y English en este orden.
¿Alguna Idea?
Muchísimas gracias por adelantado.
Kansy
-------------------
EDITADO
-------------------
He cambiado
Código:
por If ComboBox1.SelectedItem = -1 Then Idioma = "ES" End If
Código:
y funciona.If ComboBox1.SelectedItem = "Spanish" Then Idioma = "ES" End If
Pero para que funcione he tenido que eliminar el
Código:
porque esa parte me seguía dando error.If ComboBox1.SelectedItem = 0 Then MsgBox("Please select a Language", 0, "Error") Else
----------------
EDITADO 2
----------------
Bien, eso lo he solucionado de la siguiente manera:
Código:
Añado todo esto antes del código que deseo que se ejecute y funciona. :) If ComboBox1.SelectedItem = "Spanish" Then Idioma = "ES" ElseIf ComboBox1.SelectedItem = "English" Then Idioma = "EN" ElseIf ComboBox1.SelectedItem = "French" Then Idioma = "FR" ElseIf ComboBox1.SelectedItem = "German" Then Idioma = "GE" ElseIf ComboBox1.SelectedItem = "Italian" Then Idioma = "IT" ElseIf ComboBox1.SelectedItem = "Polish" Then Idioma = "POL" ElseIf ComboBox1.SelectedItem = "Portuguese" Then Idioma = "PRT" End If If ComboBox1.SelectedIndex < 0 Then MsgBox("Select a Language", 0, "Error") Else