Kreiranje niza labela

[ miniplazma @ 19.04.2011. 22:55 ] @

Treba da kreiram niz od 6 labela, i da se slučajno popune bojama. Kompajler mi javlja grešku ali i ne shvatam u čemu je problem.Evo kod:

Code:

Public Sub Generate()
        ' Generise niz za boje kuglica

        ' 0 = Yellow
        ' 1 = Green
        ' 2 = Cyan
        ' 3 = Blue
        ' 4 = Magenta
        ' 5 = Red

        Solution(0) = lblSolution0
        Solution(1) = lblSolution1
        Solution(2) = lblSolution2
        Solution(3) = lblSolution3
        Solution(4) = lblSolution4
        Solution(5) = lblSolution5
        Solution(6) = lblSolution6

        Dim a As Integer
        Randomize()
        Dim i As Integer
        For i = 0 To 5
            a = Rnd() * 6

                Select Case (a)

                    Case 0
                        Solution(i).BackColor = Color.Yellow
                    Case 1
                        Solution(i).BackColor = Color.Green
                    Case 2
                        Solution(i).BackColor = Color.Cyan
                    Case 3
                        Solution(i).BackColor = Color.Blue
                    Case 4
                        Solution(i).BackColor = Color.Magenta
                    Case 5
                        Solution(i).BackColor = Color.Red

                End Select

        Next

    End Sub

Promjenljiva Solution je deklarisana kao globalna promjenljiva sa
Public Solution(6) As Label

[ lonelyrider_44 @ 19.04.2011. 23:04 ] @

Prvo, to je sedam labela :) . Drugo, korisno bi bilo da kažeš i kakvu
grešku prijavljuje kompajler. Iz ovog koda se ne vidi šta si radio sa
lblSolution0 ... lblSolution6 , da li si ih instancirao?

--
Using Opera's revolutionary email client: http://www.opera.com/mail/

[ miniplazma @ 26.04.2011. 17:55 ] @

Code:
Public Solution(7) As Label

Code:


    Public Sub Generate()

        ' 0 = Yellow
        ' 1 = Green
        ' 2 = Cyan
        ' 3 = Blue
        ' 4 = Magenta
        ' 5 = Red
        ' 6 = Orange

        Solution(0) = lblSolution0
        Solution(1) = lblSolution1
        Solution(2) = lblSolution2
        Solution(3) = lblSolution3
        Solution(4) = lblSolution4
        Solution(5) = lblSolution5
        Solution(6) = lblSolution6

        ReDim Solution(numColons)

        Dim a As Integer

        Randomize()
        Dim i As Integer
        For i = 0 To Solution.Length - 1
            a = Rnd() * 7
            Select Case (a)

                Case 0
                    Solution(i).BackColor = Color.Yellow
                Case 1
                    Solution(i).BackColor = Color.Green
                Case 2
                    Solution(i).BackColor = Color.Cyan
                Case 3
                    Solution(i).BackColor = Color.Blue
                Case 4
                    Solution(i).BackColor = Color.Magenta
                Case 5
                    Solution(i).BackColor = Color.Red
                Case 6
                    Solution(i).BackColor = Color.Orange

            End Select

        Next

    End Sub

Evo šta kompajler javlja kao grešku:
Slika

[ vujkev @ 26.04.2011. 19:00 ] @

čemu služi ovo?

Code:
ReDim Solution(numColons)

ako je taj redim baš neophodan napiši kao

Code:
ReDim Preserve Solution(num.....)

da bi sačuvao vrednosti posle promene veličine niza

[ mish_ns @ 26.04.2011. 19:09 ] @

Samo izbaci ReDim...
zato sto ti on posle dodeljivanja vrednost npr. za Solution(0)=lblSolution0, uradi ustvari Solution(0)=Nothing
Tako da elementima niza nisi dodelio nikakvu vrednost.
I kada pravis niz od 7 labela onda treba da bude Solution(6) as Label

[ miniplazma @ 26.04.2011. 23:55 ] @

hvala