none
Excepción al cambiar el texto de opciones de un ComboBox RRS feed

  • Pregunta

  • Hola, tengo este código:

    Private Sub ComboBox2_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ComboBox2.TextChanged
            If ComboBox2.Text = "English" Then
                Button1.Text = "Play"
                ArchivoToolStripMenuItem.Text = "File"
                AyudaToolStripMenuItem.Text = "Help"
                SalirToolStripMenuItem.Text = "Exit"
                AcercaDeToolStripMenuItem.Text = "About..."
                settings.ButtonGL.Text = "Game lang"
                ComboBox3.Text = "Select a option"
                Exnf = "boot.bin not found." & Environment.NewLine & "Download Tomodachi Life from Inmortal Games" & Environment.NewLine & "Extract here" & Environment.NewLine & "And rename extracted file to boot.bin."
                settings.keysreparedMsgBoxTitle = "Tomodachi Life Selector"
                Button3.Text = "Save editor"
                Button5.Text = "Normal screenshots"
                Button6.Text = "Past intro screenshots"
                Button4.Hide()
                Button7.Text = "Island manager"
                im.Button1.Text = "Import"
                im.Button2.Text = "Export"
                im.Button3.Text = "New"
                im.Button4.Text = "Delete"
                im.Text = "Island manager"
                im.np = "Name"
                im.Button5.Text = "Reset"
                ToolTip1.ToolTipTitle = "TLS lang"
                settings.mbpl1 = "Select normal save lang"
                settings.mbpl2 = "Select past intro save lang"
                SelectTLSEexeToolStripMenuItem.Text = "Update Save Editor"
                im.editnamev = "New name"
                im.exrip = "Empty name/Exists/Cancelled"
                im.exrit = "Error"
                im.Button6.Text = "Reset current"
                im.Button7.Text = "Reset selected"
                im.Button8.Text = "Exit"
                im.ComboBox1.Items(0) = "One"
                im.ComboBox1.Items(1) = "Multiple"
                settings.Text = "Settings"
                SettingToolStripMenuItem.Text = "Settings"
                settings.Label1.Text = "Resolution"
                settings.btnOK.Text = "Save"
                settings.ButtonGL.Text = "Game lang"
                settings.btnReset.Text = "Reset"
                settings.lblSM.Text = "Speed Mode"
                settings.ComboBox3.Items(1) = "Large Screen"
                ComboBox3.Items(0) = "Normal save"
                ComboBox3.Items(1) = "Past intro save"
                im.RadioButton2.Text = "Past intro"
            End If
    
            If ComboBox2.Text = "Español" Then
                Button1.Text = "Jugar"
                ArchivoToolStripMenuItem.Text = "Archivo"
                AyudaToolStripMenuItem.Text = "Ayuda"
                SalirToolStripMenuItem.Text = "Salir"
                AcercaDeToolStripMenuItem.Text = "Acerca de"
                settings.ButtonGL.Text = "Idioma del juego"
                ComboBox3.Text = "Seleccione una opción"
                Exnf = "boot.bin no encontrado." & Environment.NewLine & "Descargue Tomodachi Life desde Inmortal Games" & Environment.NewLine & "Extraer aqui" & Environment.NewLine & "Y renombre el archivo extraido a boot.bin."
                settings.keysreparedMsgBoxTitle = "Tomodachi Life Selector"
                Button3.Text = "Editor de partida"
                Button5.Text = "Capturas normales"
                Button6.Text = "Capturas tutorial terminado"
                Button4.Show()
                Button7.Text = "Gestor de islas"
                im.Button1.Text = "Importar"
                im.Button2.Text = "Exportar"
                im.Button3.Text = "Nuevo"
                im.Button4.Text = "Borrar"
                im.Text = "Gestor de islas"
                im.np = "Nombre"
                im.Button5.Text = "Restablecer"
                ToolTip1.ToolTipTitle = "Idioma de TLS"
                settings.mbpl1 = "Seleccione el idioma de la partida normal"
                settings.mbpl2 = "Seleccione el idioma de la partida tutorial terminado"
                SelectTLSEexeToolStripMenuItem.Text = "Actualizar editor"
                im.editnamev = "Nuevo nombre"
                im.exrip = "Nombre en blanco/Existe/Cancelado"
                im.exrit = "Error"
                im.Button6.Text = "Restablecer actual"
                im.Button7.Text = "Restablecer seleccionado"
                im.Button8.Text = "Salir"
                im.ComboBox1.Items(0) = "Uno"
                im.ComboBox1.Items(1) = "Múltiple"
                settings.Text = "Ajustes"
                SettingToolStripMenuItem.Text = "Ajustes"
                settings.Label1.Text = "Resolución"
                settings.btnOK.Text = "Guardar"
                settings.ButtonGL.Text = "Idioma del juego"
                settings.btnReset.Text = "Resetear"
                settings.lblSM.Text = "Modo"
                settings.ComboBox3.Items(1) = "Pantalla grande"
                ComboBox3.Items(0) = "Partida normal"
                ComboBox3.Items(1) = "Partida tutorial terminado"
                im.RadioButton2.Text = "Tutorial terminado"
            End If
    
            If ComboBox2.Text = "Français" Then
                Button1.Text = "Jouer"
                ArchivoToolStripMenuItem.Text = "Fichier"
                AyudaToolStripMenuItem.Text = "Aide"
                SalirToolStripMenuItem.Text = "Sortir"
                AcercaDeToolStripMenuItem.Text = "Plus d'information..."
                settings.ButtonGL.Text = "Langue du jeu"
                ComboBox3.Text = "Selectione une option"
                Exnf = "boot.bin pas trouvé." & Environment.NewLine & "Telécharge Tomodachi Life dans Inmortal Games" & Environment.NewLine & "Extract la" & Environment.NewLine & "Et renomme le fichier extract a boot.bin."
                keysreparedMsgBoxTitle = "Tomodachi Life Selector"
                Button3.Text = "Editeur de partie"
                Button5.Text = "Captures d'ecran normales"
                Button6.Text = "Captures d'ecran tutoriel fini"
                Button4.Hide()
                Button7.Text = "Îles"
                im.Button1.Text = "Importer"
                im.Button2.Text = "Exporter"
                im.Button3.Text = "Nouv."
                im.Button4.Text = "Effacer"
                im.Text = "Îles"
                im.np = "Nom"
                im.Button5.Text = "Restaurer"
                ToolTip1.ToolTipTitle = "Langue de TLS"
                settings.mbpl1 = "Selectione la langue de la partie normale"
                settings.mbpl2 = "Selectione la langue de la partie tutoriel fini"
                SelectTLSEexeToolStripMenuItem.Text = "Mise a jour Save Editor"
                im.editnamev = "Nouveau nom"
                im.exrip = "Nom en blanc/Existes/Anullé"
                im.exrit = "Erreur"
                im.Button6.Text = "Restaurer actuel"
                im.Button7.Text = "Restaurer sélection"
                im.Button8.Text = "Sortir"
                im.ComboBox1.Items(0) = "Un"
                im.ComboBox1.Items(1) = "Multiple"
                settings.Text = "Configuration"
                SettingToolStripMenuItem.Text = "Configuration"
                settings.Label1.Text = "Résolution"
                settings.btnOK.Text = "Garder"
                settings.ButtonGL.Text = "Langue du jeu"
                settings.btnReset.Text = "Restaurer"
                settings.lblSM.Text = "Mode"
                settings.ComboBox3.Items(1) = "Écran grand"
                ComboBox3.Items(0) = "Partie normale"
                ComboBox3.Items(1) = "Partie tutoriel fini"
                im.RadioButton2.Text = "Tutoriel fini"
            End If
        End Sub

    Pero me sale esto:

    Se produjo la excepción System.InvalidOperationException.
      HResult=0x80131509
      Mensaje = Error al crear el formulario. Consulte Exception.InnerException para obtener más detalles. Error: Se produjo una excepción en el destino de la invocación.
      Origen = Tomodachi Life Selector
      Seguimiento de la pila:
       at Tomodachi_Life_Selector.My.MyProject.MyForms.Create__Instance__[T](T Instance)
       at Tomodachi_Life_Selector.My.MyProject.MyForms.get_tls()
       at Tomodachi_Life_Selector.My.MyApplication.OnCreateMainForm()
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
       at Tomodachi_Life_Selector.My.MyApplication.Main(String[] Args)

    Excepción interna 1:
    TargetInvocationException: Se produjo una excepción en el destino de la invocación.

    Excepción interna 2:
    ArgumentOutOfRangeException: InvalidArgument=El valor de '0' no es válido para 'index'.

    • Cambiado Enrique M. Montejo viernes, 28 de julio de 2017 6:04 Pregunta relacionada con controles de Windows Forms.
    miércoles, 26 de julio de 2017 20:28

Todas las respuestas

  • ComboBox1.Items.Add("Tokyo")

    Estas trabajando con forms?

    Agregar campos a un Combobox

    ComboBox3.Items(0) = "Partie normale"

    Esto selecciona la poscion del item por lo tanto si no existe te genera la exepcion

    en todo caso si lo que deseas es cargar el formulario con ese por defecto es Combobox.SelectedValue = 0 'posicion


    Pasa los puntos prro v:


    jueves, 27 de julio de 2017 15:57
  • ComboBox1.Items.Add("Tokyo")

    Estas trabajando con forms?

    Agregar campos a un Combobox

    ComboBox3.Items(0) = "Partie normale"

    Esto selecciona la poscion del item por lo tanto si no existe te genera la exepcion

    en todo caso si lo que deseas es cargar el formulario con ese por defecto es Combobox.SelectedValue = 0 'posicion


    Pasa los puntos prro v:


    si
    jueves, 27 de julio de 2017 16:46