Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

cambio colore sfondo rettangolo da vba

220 views
Skip to first unread message

tmtube

unread,
Apr 20, 2013, 9:58:45 AM4/20/13
to
qualcuno sa dirmi perch� tes1, 2 e 3 cambiano colore correttamente e lo
sfondo di tes che � un rettangolo non cambia!! ???

su apertura di una form che contiene questi controlli

If Me.TesseraPagata = -1 Then
Me.tes.BackColor = RGB(0, 255, 0)
Me.tes1.ForeColor = RGB(0, 0, 0)
Me.tes2.ForeColor = RGB(0, 0, 0)
Me.tes3.ForeColor = RGB(0, 0, 0)
ElseIf Me.TesseraPagata = 0 Then
Me.tes.BackColor = RGB(255, 0, 0)
Me.tes1.ForeColor = RGB(255, 255, 255)
Me.tes2.ForeColor = RGB(255, 255, 255)
Me.tes3.ForeColor = RGB(255, 255, 255)
End If

Ma!!!!!

Karl Donaubauer

unread,
Apr 22, 2013, 7:59:55 AM4/22/13
to
tmtube wrote:
> qualcuno sa dirmi perchè tes1, 2 e 3 cambiano colore correttamente e
> lo sfondo di tes che è un rettangolo non cambia!! ???
>
> su apertura di una form che contiene questi controlli
>
> If Me.TesseraPagata = -1 Then
> Me.tes.BackColor = RGB(0, 255, 0)
> Me.tes1.ForeColor = RGB(0, 0, 0)
> Me.tes2.ForeColor = RGB(0, 0, 0)
> Me.tes3.ForeColor = RGB(0, 0, 0)
> ElseIf Me.TesseraPagata = 0 Then
> Me.tes.BackColor = RGB(255, 0, 0)
> Me.tes1.ForeColor = RGB(255, 255, 255)
> Me.tes2.ForeColor = RGB(255, 255, 255)
> Me.tes3.ForeColor = RGB(255, 255, 255)
> End If
>
> Ma!!!!!

Controlla se la proprietà "Stile sfondo" del rettangolo è impostata a
"Normale" (non "Trasparente").

--
Ciao
Karl
*********
Access FAQ: http://www.donkarl.com/it


tmtube

unread,
Apr 22, 2013, 10:14:53 AM4/22/13
to

>Controlla se la propriet� "Stile sfondo" del rettangolo � impostata a
>"Normale" (non "Trasparente").

--
>Ciao
>Karl
*********
Access FAQ: http://www.donkarl.com/it


Era proprio quello, siete talmente avanti in questo newsgroup che se vi
voltate indietro vedete il futuro :)

0 new messages