descrizione gestione colore con VBA
esci con vbasintassi.htm

tuttocolore.ppt
descrizione di gestione del colore
blackcolor-blackstyle-bordercolor-borderstyle
forecolor-font-stile-punti-effetti
mediante codificazione o uso di proprietà (punti-stile)

Private Sub CommandButton1_Click()
TextBox1.BackColor = vbRed
TextBox2.BackColor = RGB(255, 0, 0)
TextBox3.BackColor = &HFF&

TextBox4.BackStyle = 1
Rem textbox4.BackStyle=fmBackStyleOpaque
TextBox4.BackColor = vbGreen

TextBox5.BackStyle = 0
Rem TextBox5.BackStyle = fmBackStyleTransparent
TextBox5.BackColor = vbGreen

TextBox6.BackStyle = 1
TextBox6.BackColor = vbBlue
TextBox6.BorderStyle = 1
Rem textbox6.BorderStyle=fmBorderStyleSingle
TextBox6.BorderColor = vbRed

TextBox7.BackColor = vbBlue
TextBox7.BackStyle = 1
TextBox7.BorderColor = vbRed
TextBox7.BorderStyle = 0
TextBox7.BorderStyle = fmBorderStyleNone
End Sub

Private Sub CommandButton2_Click()
TextBox8 = "testo1"
TextBox8.BackColor = vbCyan
TextBox8.Font = "Tahoma"
TextBox8.ForeColor = vbRed
Rem textbox8..punti 10
Rem textbox8..stile normale

TextBox9 = "testo2"
TextBox9.BackColor = vbCyan
TextBox9.Font = "Tahoma"
TextBox9.ForeColor = vbBlue
Rem TextBox9.punti = 10
Rem TextBox9.stile = grassetto

TextBox10 = "testo3"
TextBox10.BackColor = vbCyan
TextBox10.Font = "Tahoma"
TextBox10.ForeColor = vbRed
Rem TextBox10.punti = 14
Rem TextBox10.stile = corsivo

TextBox11 = "testo4"
TextBox11.BackColor = vbCyan
TextBox11.Font = "algerian"
TextBox11.ForeColor = vbBlue
Rem TextBox11.punti = 14
Rem TextBox11.stile = grassetto corsivo

TextBox12 = "testo5"
TextBox12.BackColor = vbCyan
TextBox12.Font = "Algerian"
TextBox12.ForeColor = vbMagenta
Rem TextBox12.punti = 14
Rem TextBox12.stile = grassetto barrato

TextBox13 = "testo6"
TextBox13.BackColor = vbCyan
TextBox13.Font = "Tahoma"
TextBox13.ForeColor = vbRed
Rem TextBox13.BackColor = 14
Rem TextBox13.BackColor = grassetto sottolineato

End Sub

Private Sub CommandButton3_Click()
Label17.Visible = True
Label18.Visible = True
End Sub

Private Sub CommandButton4_Click()
Label17.Visible = False
Label18.Visible = False
End Sub


Private Sub UserForm_Click()

End Sub