none
ToolTip en varios idiomas? 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..."
                AboutBox1.OKButton.Text = "OK"
                ComboBox1.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."
                AboutBox1.Text = String.Format("About" & " {0}", ApplicationTitle)
                Button2.Text = "Key Fix + LSL"
                keysreparedMsgBoxTitle = "Tomodachi Life Selector"
                Button3.Text = "Save editor"
                Button5.Text = "Normal screenshots"
                Button6.Text = "Past intro screenshots"
                Button4.Hide()
                Button7.Text = "Island manager"
                sm.Button1.Text = "Import"
                sm.Button2.Text = "Export"
                sm.Button3.Text = "New"
                sm.Button4.Text = "Delete"
                sm.Text = "Island manager"
                sm.np = "Name"
                sm.Button5.Text = "Reset"
                ToolTip1.ToolTipTitle = "TLS lang"
                mbpl1 = "Select normal save lang"
                mbpl2 = "Select past intro save lang"
                SelectTLSEexeToolStripMenuItem.Text = "Update Save Editor"
                sm.editnamev = "New name"
                sm.exrip = "Empty name/Exists/Cancelled"
                sm.exrit = "Error"
                sm.Button6.Text = "Reset current"
                sm.Button7.Text = "Reset selected"
                sm.ToolTip1.ToolTipTitle = "Information"
                sm.ToolTip1.SetToolTip(ComboBox1, "1 = One, 2 = Multiple")
                sm.Button8.Text = "Exit"
            End If

            If ComboBox2.Text = "Español" Then
                Button1.Text = "Jugar"
                ArchivoToolStripMenuItem.Text = "Archivo"
                AyudaToolStripMenuItem.Text = "Ayuda"
                SalirToolStripMenuItem.Text = "Salir"
                AcercaDeToolStripMenuItem.Text = "Acerca de"
                AboutBox1.OKButton.Text = "Aceptar"
                ComboBox1.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."
                AboutBox1.Text = String.Format("Acerca de" & " {0}", ApplicationTitle)
                Button2.Text = "Teclas + LSL"
                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"
                sm.Button1.Text = "Importar"
                sm.Button2.Text = "Exportar"
                sm.Button3.Text = "Nuevo"
                sm.Button4.Text = "Borrar"
                sm.Text = "Gestor de islas"
                sm.np = "Nombre"
                sm.Button5.Text = "Restablecer"
                ToolTip1.ToolTipTitle = "Idioma de TLS"
                mbpl1 = "Seleccione el idioma de la partida normal"
                mbpl2 = "Seleccione el idioma de la partida tutorial terminado"
                SelectTLSEexeToolStripMenuItem.Text = "Actualizar editor"
                sm.editnamev = "Nuevo nombre"
                sm.exrip = "Nombre en blanco/Existe/Cancelado"
                sm.exrit = "Error"
                sm.Button6.Text = "Restablecer actual"
                sm.Button7.Text = "Restablecer seleccionado"
                sm.ToolTip1.ToolTipTitle = "Información"
                sm.ToolTip1.SetToolTip(ComboBox1, "1 = Uno, 2 = Múltiple")
                sm.Button8.Text = "Salir"
            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..."
                AboutBox1.OKButton.Text = "OK"
                ComboBox1.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."
                AboutBox1.Text = String.Format("Plus d'information de" & " {0}", ApplicationTitle)
                Button2.Text = "Réparer boutons + LSL"
                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"
                sm.Button1.Text = "Importer"
                sm.Button2.Text = "Exporter"
                sm.Button3.Text = "Nouv."
                sm.Button4.Text = "Effacer"
                sm.Text = "Îles"
                sm.np = "Nom"
                sm.Button5.Text = "Restaurer"
                ToolTip1.ToolTipTitle = "Langue de TLS"
                mbpl1 = "Selectione la langue de la partie normale"
                mbpl2 = "Selectione la langue de la partie tutoriel fini"
                SelectTLSEexeToolStripMenuItem.Text = "Mise a jour Save Editor"
                sm.editnamev = "Nouveau nom"
                sm.exrip = "Nom en blanc/Existes/Anullé"
                sm.exrit = "Erreur"
                sm.Button6.Text = "Restaurer actuel"
                sm.Button7.Text = "Restaurer sélection"
                sm.ToolTip1.ToolTipTitle = "Information"
                sm.ToolTip1.SetToolTip(ComboBox1, "1 = Un, 2 = Multiple")
                sm.Button8.Text = "Sortir"
            End If
        End Sub

    Pero al cambiar el idioma el texto del ToolTip no cambia :(

    lunes, 24 de julio de 2017 18:39

Respuestas

  • Creo que estás usando mal el control ToolTip. Se agrega un único control Tooltip al formulario, y a partir de ese momento, a todos los controles les aparece una propiedad nueva que es el tooltip de ese control. Para cambiar el texto del tooptip de un control, se usa Tooltip1.SetTooltip(elControlQueSea, "Nuevo tooltip").

    lunes, 24 de julio de 2017 20:16

Todas las respuestas

  • Creo que estás usando mal el control ToolTip. Se agrega un único control Tooltip al formulario, y a partir de ese momento, a todos los controles les aparece una propiedad nueva que es el tooltip de ese control. Para cambiar el texto del tooptip de un control, se usa Tooltip1.SetTooltip(elControlQueSea, "Nuevo tooltip").

    lunes, 24 de julio de 2017 20:16
  • Creo que estás usando mal el control ToolTip. Se agrega un único control Tooltip al formulario, y a partir de ese momento, a todos los controles les aparece una propiedad nueva que es el tooltip de ese control. Para cambiar el texto del tooptip de un control, se usa Tooltip1.SetTooltip(elControlQueSea, "Nuevo tooltip").

    Solucionado. Tenia un ComboBox1 en form1 y otro en sm, siempre le habia puesto el tooltip al del form1
    lunes, 24 de julio de 2017 22:09