Keskustelu: Ohjelmointikysymykset: VB.NET: (vb.net) moniulotteinen taulukko

Miten vb.netissä onnituu luoda moniulotteinen taulukko kun vb6 kikat ei toimi?
Eli tarkoituksena on luoda taulukko jonkun lauseen tai sanan eri kielisille versioille.
esim vb6:lla se menisi vaikka näin:

dim teksti (2,10) as string
' 0 solussa ois tekstit suomeks, 1 enkuks ja 2 ruottiks
teksti(0,0)="Tiedosto"
teksti(0,1)="Muokkaa"
teksti(1,0)="File"
teksti(1,1)="Edit"
teksti(2,0)="Tiedosto ruåttiks mut en tiä :)"
'jne jne

Ja näihin voisi viitata esim:

kieli=0
Label1.Text=teksti(kieli,0) ' Tiedosto

Eli miten tämä hoidetaan vb.netissä? Myös muita tyylejä hoitaa homma kaivataan!

Kiitos

Pikaisella Googletuksella löytyi tämmöinen http://www.startvbdotnet.com/language/arrays.aspx ja siellä kyllä mielestäni moniulotteinen taulukko määritellään juurikin samalla tavalla kuin sinä yrität.

TsaTsaTsaa kirjoitti:

Pikaisella Googletuksella löytyi tämmöinen http://www.startvbdotnet.com/language/arrays.aspx ja siellä kyllä mielestäni moniulotteinen taulukko määritellään juurikin samalla tavalla kuin sinä yrität.

jaa juu. siin vaan näemmä pitää laittaa tuo new string() tohon eteen ennen kuin asettaa ton tekstin, eli:

teksti(0)=New String(){"Tiedosto","Muokkaa"}

liekkö sitten vb6:ssa joutunu tekee samanlai, mut qbasicissa ainakaan ei :)

EDIT: eipäs toiminutkaan. valittaa tosta teksti muuttujasta että "declaration expected" ???

Onko muuten tuosta yhdestä ylimääräisestä välilyönnissä tuolla dim-rivillä haittaa? Siis dim teksti*tämä väli tässä*(...)...

TsaTsaTsaa kirjoitti:

Onko muuten tuosta yhdestä ylimääräisestä välilyönnissä tuolla dim-rivillä haittaa? Siis dim teksti*tämä väli tässä*(...)...

Ei taida olla ku editori ottaa sen välin pois.
Mutta mitä tuo declaration expected tarkoittaa/johtuu?

Uusi projekti, ja formille nappi ja label
Tuo Dim tulee siis aliohjelmien ulkopuolelle.

Public Class Form1
    Dim Tekstit(2, 10) As String
    Dim kieli As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer

        For i = 0 To 10
            Tekstit(0, i) = "Numero " & Format(0) & " " & Format(i)
            Tekstit(1, i) = "Nummer " & Format(1) & " " & Format(i)
            Tekstit(2, i) = "Number " & Format(2) & " " & Format(i)
        Next

        Label1.Text = ""
        For kieli = 0 To 2
            For i = 0 To 10
                Label1.Text = Label1.Text + Tekstit(kieli, i) + vbCrLf
            Next
        Next

    End Sub
End Class