[VB.NET] Rappresentare un numero con immagini

[wjzard]

Ciao a tutti potrei avere una piccola spinta per capire come posso rappresentare graficamente dei numeri che escono a random da 1 a 100.

Per esempio a random esce il 10 e nel form dovrebbe apparire questa questa immagine



Io pensavo di fare cosi:

Dim pb(5) As PictureBox


        pb(0) = Me.PictureBox1
        pb(1) = Me.PictureBox2
        pb(2) = Me.PictureBox3
        pb(3) = Me.PictureBox4
        pb(4) = Me.PictureBox5
        
if numero = 1 then
        pb(0).ImageLocation = My.Computer.FileSystem.CurrentDirectory & "\immagini\numero1.png"
else if numero = 2 then
        pb(1).ImageLocation = My.Computer.FileSystem.CurrentDirectory & "\immagini\numero2.png"
else if numero = 3 then
        pb(2).ImageLocation = My.Computer.FileSystem.CurrentDirectory & "\immagini\numero3.png"
else if numero = 4 then
        pb(3).ImageLocation = My.Computer.FileSystem.CurrentDirectory & "\immagini\numero4.png"
else if numero = 5  then
        pb(4).ImageLocation = My.Computer.FileSystem.CurrentDirectory & "\immagini\numero5.png"
end if

[escocat]

Mamma mia! Ma hai 100 PictureBox? Ne basta una...
...e poi...perchè non fai un'unica chiamata al file

...numero"+str(n)+".png"?

[wjzard]

si infetti facendo cosi mi vengono 100 PictureBox è per questo che volevo un aiuto non so come potrei associare ad ogni numero uscito l'immagine corrispondente

[escocat]

picturebox1.Image =Image.FromFile(My.Computer.FileSystem.CurrentDirectory & "\immagini\numero" & str(numero) & ".png")

[wjzard]

Mi segnala questo errore sulla variabile numero

FileNotFoundExceeption non è stata gestita dal codice utente

cosa può voler dire ?

[wjzard]

ho risolto praticamente la variabile numero era già una stringa quindi bastava togliere str

[wjzard]

vorrei fare una cosa del genere

For j = 1 To j = 10
                    PictureBox & (j).Image = Image.FromFile(My.Computer.FileSystem.CurrentDirectory & "\immagini\numero" & (numero) & ".PNG")

                Next

ovvero a ogni ciclo prendere una picturebox corrispondente all'indice del ciclo come posso fare

[escocat]

Ma tu vuoi visualizzare 100 numeri tutti in una volta oppure uno alla volta? Se vuoi un numero per volta ti basta una sola picturebox, altrimenti avresti bisogno di una matrice di 100 controlli picturebox. In VB5 questo era facile da farsi, in VB10 ancora non ho visto come si fa (abbi pazienza sono solo 2 settimane che lo sto studiando ) ...

[wjzard]

io voglio visualizzare 55 numeri in 55 picturebox divisi in 11 righe per 5 colonne quindi l'ideale sarebbe fare una cosa del genere

 For j = 1 To j = 55
                    PictureBox & (j).Image = Image.FromFile(My.Computer.FileSystem.CurrentDirectory & "\immagini\numero" & (numero) & ".PNG")

                Next

se no dovrei fare questo per ogni picturebox e diventa una cosa molto lunga

if j = 1 then
picturebox1.Image =Image.FromFile(My.Computer.FileSystem.CurrentDirectory & "\immagini\numero" & str(numero) & ".png")
end if
if j= 2 then
picturebox2.Image =Image.FromFile(My.Computer.FileSystem.CurrentDirectory & "\immagini\numero" & str(numero) & ".png")
end if

.............
............

if j = 55 then
picturebox55.Image =Image.FromFile(My.Computer.FileSystem.CurrentDirectory & "\immagini\numero" & str(numero) & ".png")
end if
j+=1

[wjzard]

oppure potrei fare una cosa del genere

Dim pb(54) As PictureBox


        pb(0) = Me.PictureBox1
        pb(1) = Me.PictureBox2
        pb(2) = Me.PictureBox3
        pb(3) = Me.PictureBox4
        pb(4) = Me.PictureBox5
        .................................
        ..............................

        pb(54)=Me.PictureBox55


For j = 0 To j = 54
      
pb(j) = Image.FromFile(My.Computer.FileSystem.CurrentDirectory & "\immagini\numero" & (numero) & ".PNG")

                Next

può funzionare?