Modifica proprietà backcolor

[Ce&s]

  Dim pb(14) As Integer
        pb(1) = Val(txtpb1.Text)
        pb(2) = Val(txtpb2.Text)
        pb(3) = Val(txtpb3.Text)
        pb(4) = Val(txtpb4.Text)
        pb(5) = Val(txtpb5.Text)
        pb(6) = Val(txtpb6.Text)
        pb(7) = Val(txtpb7.Text)
        pb(8) = Val(txtpb8.Text)
        pb(9) = Val(txtpb9.Text)
        pb(10) = Val(txtpb10.Text)
        pb(11) = Val(txtpb11.Text)
        pb(12) = Val(txtpb12.Text)
        pb(13) = Val(txtpb13.Text)
        pb(14) = Val(txtpb14.Text)

        Dim nome(14) As String
        nome(1) = txtp1.Text
        nome(2) = txtp2.Text
        nome(3) = txtp3.Text
        nome(4) = txtp4.Text
        nome(5) = txtp5.Text
        nome(6) = txtp6.Text
        nome(7) = txtp7.Text
        nome(8) = txtp8.Text
        nome(9) = txtp9.Text
        nome(10) = txtp10.Text
        nome(11) = txtp11.Text
        nome(12) = txtp12.Text
        nome(13) = txtp13.Text
        nome(14) = txtp14.Text


        pbgiac = (Val(TextBox3.Text)) * 100
        i = 0
        If pbgiac <= 0 Then
            MsgBox("Immettere un valore > di 0", MsgBoxStyle.OkOnly, "Pasta di cacao")
            Exit Sub
        End If
        For i = 1 To 14
            If Val(pbgiac) < pb(i) Then
                diff = pb(i) - Val(pbgiac)
                For g = (i + 1) To 14
                    sum = (sum + pb(g))
                Next g

                MsgBox(("Mancano q.li " & (Val(diff) / 100) & " per " & nome(i) & " (" & (i) & ")" & Chr(10) & Chr(13) & Chr(10) & Chr(13) & "Q.li " & (Val(sum) / 100) & " per il resto della produzione" & Chr(10) & Chr(13) & Chr(10) & Chr(13) & "Totale Necessario =  q.li " & ((Val(sum) / 100) + (Val(diff) / 100))), MsgBoxStyle.OkOnly, "Pasta di cacao")
                btnpastabio.Text = "-" & ((Val(sum) / 100) + (Val(diff) / 100))

                Exit Sub
            End If
            resto = Val(pbgiac) - pb(i)
            pbgiac = resto
        Next i
        If resto > 0 Then
            MsgBox("Avanzano q.li " & (Val(resto) / 100), MsgBoxStyle.OkOnly, "Pasta di cacao")
            btnpastabio.Text = "+" & (Val(resto) / 100)
        Else
            MsgBox("Q.tà di pasta nel serbatoio esatta" & Chr(10) + Chr(13) & " per la produzione odierna!", MsgBoxStyle.OkOnly, "Pasta di cacao")
            btnpastabio.Text = "="
        End If

    End Sub

Vorrei poter cambiare la proprietà backcolor del textbox a cui Nome(i) fa riferimento che sarebbe il nome del prodotto.

[oregon]

E qual e' il problema ?

Nome(i).Backcolor = vbRed

[Ce&s]

Mi ritorna l'errore:
Errore 1 "Backcolor" non è un membro di "String".

[oregon]

Ferma tutto ... intanto con quale linguaggio stai lavorando? E poi, Nomi NON e' un array di controlli ma di stringhe ... se vuoi lavorare con l'indice i, devi avere un array di controlli ...

[Ce&s]

"Lavoro" con vb 2005.
Definire un'array di controlli vorrebbe dire...

[oregon]

Allora ... ricominciamo ... vedi cosa significa non inviare correttamente un messaggio nel forum ...?

Quello degli array di controlli e' un discorso valido solamente in VB6 ...

Spiega meglio cosa vuoi fare e quando e come devi cambiare questo colore ...

[Ce&s]

Ho una tabella composta da 14 textbox(consumo), 14 nomi+1 textbox Dove viene inserito un valore(giacenza)
Al textbox giacenza(pbgiac) viene sottratta di volta in volta il valore inserito nei textbox(consumo) finchè la giacenza non risulta inferiore al consumo, in questo caso compare un MsgBox(("Mancano q.li " & (Val(diff) / 100) & " per " & nome(i) "e vorrei che nello stesso momento il backcolor del textbox contenente il nome(i) diventasse rosso.

[Ce&s]

Originariamente inviato da Ce&s
Ho una tabella composta da 14 textbox(consumo), 14 nomi+1 textbox Dove viene inserito un valore(giacenza)
Al textbox giacenza(pbgiac) viene sottratta di volta in volta il valore inserito nei textbox(consumo) finchè la giacenza non risulta inferiore al consumo, in questo caso compare un MsgBox(("Mancano q.li " & (Val(diff) / 100) & " per " & nome(i) "e vorrei che nello stesso momento il backcolor del textbox contenente il nome(i) diventasse rosso.