[Vb '08]Array PictureBox

[immakx]

Per prima cosa, dato che è venerdì sera, buon Weekend a tutti,
poi,
la domanda da novizio di Vb.Net è la seguente: devo realizzare una tabella di picturebox ( 5x5 ) ed eseguo:

Dim MyBox(25) As PictureBox
Dim Cnt As Integer = 1
Dim Cnv As Integer = 1
For x As Integer = 1 To 25
   MyBox(x) = PictureBox1 ' picturebox di riferimento
   MyBox(x).Image = Image.FromFile(Application.StartupPath & "\Img\n" & x & ".mxp")
   MyBox(x).Left = ((Cnt - 1) * 70) + 12
   MyBox(x).Top = ((Cnv - 1) * 70) + 12
   MyBox(x).Refresh()
   Cnt = Cnt + 1
   If Cnt = 6 Then
     Cnt = 1
     Cnv = Cnv + 1
   End If
Next

Ma vedo che anche se le picturebox vengono generate giuste ognuna va a riscrivere tutti i valori delle precedenti e cosi alla fine mi trovo con tutte le picturebox uguali e sovrapposte all'ultima ...

cosa mi sto dimenticando ?

Su Msdn non sono riuscito a capirlo...

Grazie

[||ElChE||88]

Questo codice

MyBox(x) = PictureBox1 ' picturebox di riferimento

non crea una nuova PictureBox, ma soltanto una referenza a PictureBox1.
Prova:

MyBox(x) = New PictureBox

[MarcoGG]

1. Dim MyBox(25) As PictureBox :
Questo array, a meno che tu non l'abbia creato espressamente per un motivo, è superfluo. Ad ogni ciclo aggiungi semplicemente una nuova PictureBox e il risultato non cambia...

2. Manca un esplicito riferimento al contenitore per questi controlli. Male. Io ti consiglio un Panel, che sposti dove vuoi sulla Form... Ne hai solo vantaggi.
Sennò rischi che controlli aggiunti a runtime vadano a sovrapporsi a quelli già presenti sulla Form.

3. Non si eredita MAI chiamando un controllo già presente sulla Form ( il tuo PictureBox1 ). Semplicemente ti fai una classe che eredita da PictureBox e nel costruttore specifichi tutte le proprietà di default che deve avere.

In soldoni :

-> La classe :

Public Class MiaPictureBox

    Inherits Windows.Forms.PictureBox

    Public Sub New()

        Me.Width = 160
        Me.Height = 120
        Me.BackColor = Color.Black
        Me.BorderStyle = Windows.Forms.BorderStyle.FixedSingle
        '...
        '... 

    End Sub

End Class

-> Codice corretto ( senza stravolgere il tuo... ) :

        Dim MyBox(25) As PictureBox
        Dim Cnt As Integer = 1
        Dim Cnv As Integer = 1
        For x As Integer = 1 To 25
            Dim PctBox As New MiaPictureBox
            MyBox(x) = PctBox            
            MyBox(x).Image = Image.FromFile(Application.StartupPath & "\Img\n" & x & ".mxp")
            Panel1.Controls.Add(MyBox(x))            
            MyBox(x).Left = ((Cnt - 1) * 70) + 12
            MyBox(x).Top = ((Cnv - 1) * 70) + 12
            MyBox(x).Refresh()
            Cnt = Cnt + 1
            If Cnt = 6 Then
                Cnt = 1
                Cnv = Cnv + 1
            End If
        Next

[immakx]

Originariamente inviato da MarcoGG

In soldoni :
[..]

-> Codice corretto ( senza stravolgere il tuo... ) :

Grazie 1000 !!!