[es] - Kreiranje niza labela

miniplazma

Član broj: 240037
Poruke: 68
*.crnagora.net.

Profil

^{19.04.2011. u 22:55 - pre 158 meseci}

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

Odgovor na temu

lonelyrider_44
Zrenjanin

Član broj: 42310
Poruke: 445
*.com
Via: [es] mailing liste

+20 Profil

Re: Kreiranje niza labela

^{19.04.2011. u 23:04 - pre 158 meseci}

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/

Odgovor na temu

miniplazma

Član broj: 240037
Poruke: 68
*.crnagora.net.

Profil

Re: Kreiranje niza labela

^{26.04.2011. u 17:55 - pre 158 meseci}

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

Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1347
212.200.243.*

+104 Profil

Re: Kreiranje niza labela

^{26.04.2011. u 19:00 - pre 158 meseci}

č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

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

Odgovor na temu

mish_ns
Miloš Krstin

Član broj: 159930
Poruke: 1105
212.178.243.*

+18 Profil

Re: Kreiranje niza labela

^{26.04.2011. u 19:09 - pre 158 meseci}

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

Odgovor na temu