descrizione gestione colore con VBA
esci con
vbasintassi.htm


Private Sub CommandButton1_Click()
codice1 = RGB(255, 0, 0)
codice2 = RGB(0, 255, 0)
codice3 = RGB(0, 0, 255)
Image1.BackColor = codice1
Image5.BackColor = codice2
Image6.BackColor = codice3
Image1.ControlTipText = codice1
Image5.ControlTipText = codice2
Image6.ControlTipText = codice3
End Sub

Private Sub CommandButton2_Click()
cod1 = vbRed
cod2 = vbGreen
cod3 = vbBlue
Image2.BackColor = cod1
Image3.BackColor = cod2
Image4.BackColor = cod3
Image2.ControlTipText = cod1
Image3.ControlTipText = cod2
Image4.ControlTipText = cod3
End Sub

Private Sub CommandButton3_Click()
codi1 = &HFF&
codi2 = &HFF00&
codi3 = &HFF0000
Image7.BackColor = codi1
Image8.BackColor = codi2
Image9.BackColor = codi3
Image7.ControlTipText = codi1
Image8.ControlTipText = codi2
Image9.ControlTipText = codi3
End Sub

Private Sub CommandButton4_Click()
co1 = 255
co2 = 65280
co3 = 16711680
Image10.BackColor = co1
Image11.BackColor = co2
Image12.BackColor = co3
Image10.ControlTipText = co1
Image11.ControlTipText = co2
Image12.ControlTipText = co3
End Sub

Private Sub CommandButton5_Click()
Frame1.Visible = True
End Sub

Private Sub CommandButton6_Click()
Frame1.Visible = False
End Sub

Private Sub CommandButton7_Click()
Image17.Visible = True
End Sub

Private Sub CommandButton8_Click()
Image17.Visible = False
End Sub

Private Sub Frame1_Click()

End Sub

rem manca codice per colore4y.ppt
rem riportato solo come immagine
Private Sub UserForm_Click()

End Sub