none
Tomodachi Life para PC RRS feed

  • Pregunta

  • Estoy haciendo TL para PC. en la parte del supermercado tengo este código.

    al ejecutar el juego y al ir al supermercado, aparecen números y no texto

    ----------------------------------------------------------------------------------------------------------------------------------------------------------

    Public Class Supermercado
        Private Sub Supermercado_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            ListBox1.Items.Remove(1)
            ListBox1.Items.Remove(2)
            ListBox1.Items.Remove(3)
            ListBox1.Items.Remove(4)
            ListBox1.Items.Remove(5)
            ListBox1.Items.Remove(6)

            Dim random1 As New Random
            Dim random2 As New Random
            Dim random3 As New Random
            Dim random4 As New Random
            Dim random5 As New Random
            Dim random6 As New Random

            Dim comidas As New List(Of comida)()
            Dim comida0 As New comida
            Dim comida1 As New comida
            Dim comida2 As New comida
            Dim comida3 As New comida
            Dim comida4 As New comida
            Dim comida5 As New comida
            Dim comida6 As New comida
            Dim comida7 As New comida
            Dim comida8 As New comida
            Dim comida9 As New comida
            Dim i As Integer = 1

            comida0.Nombre = "Albóndigas"
            comida0.Precio = 10.9

            comida1.Nombre = "Arenque"
            comida1.Precio = 6.5

            comida2.Nombre = "Bacalao"
            comida2.Precio = 10.9

            comida3.Nombre = "Bocadillo"
            comida3.Precio = 4.5

            comida4.Nombre = "Borsch"
            comida4.Precio = 10.0

            comida5.Nombre = "Buñuelos de pescado"
            comida5.Precio = 0

            comida6.Nombre = "Carne a la parrilla"
            comida6.Precio = 13.0

            comida7.Nombre = "Chili con carne"
            comida7.Precio = 0

            comida8.Nombre = "Chuleta de cerdo"
            comida8.Precio = 0

            comida9.Nombre = "Comida de astronautas"
            comida9.Precio = 0

            comidas.Add(comida0)
            comidas.Add(comida1)
            comidas.Add(comida2)
            comidas.Add(comida3)
            comidas.Add(comida4)
            comidas.Add(comida5)
            comidas.Add(comida6)
            comidas.Add(comida7)
            comidas.Add(comida8)
            comidas.Add(comida9)

            For Each item As comida In comidas
                HiddenLB.Items.Add(item.Nombre & " " & item.Precio)
            Next

            Dim Random As New Random
            Dim r1 As Integer = Random.Next(0, 9)
            Dim r2 As Integer = Random.Next(0, 9)
            Dim r3 As Integer = Random.Next(0, 9)
            Dim r4 As Integer = Random.Next(0, 9)
            Dim r5 As Integer = Random.Next(0, 9)
            Dim r6 As Integer = Random.Next(0, 9)

            ListBox1.Items.Add(HiddenLB.GetItemText(r1))
            ListBox1.Items.Add(HiddenLB.GetItemText(r2))
            ListBox1.Items.Add(HiddenLB.GetItemText(r3))
            ListBox1.Items.Add(HiddenLB.GetItemText(r4))
            ListBox1.Items.Add(HiddenLB.GetItemText(r5))
            ListBox1.Items.Add(HiddenLB.GetItemText(r6))

            ListBox1.Refresh()
        End Sub

        Private Sub HiddenLB_SelectedValueChanged(sender As Object, e As EventArgs) Handles HiddenLB.SelectedValueChanged
            MsgBox(HiddenLB.SelectedIndex)
        End Sub
    End Class

    • Cambiado Enrique M. Montejo viernes, 12 de mayo de 2017 7:24 Pregunta relacionada con controles de Windows Forms.
    miércoles, 10 de mayo de 2017 18:16