Visualizza wikitesto di Uso della classe ColorInfo

La Classe '''ColorInfo''' restituisce informazioni dettagliate sui colori.

In particolare seziona un colore nei suoi componenti, e li ritorna come un oggetto di ''ColorInfo''.

La Classe ''ColorInfo'' non è creabile.


===Esempi===
 Public Sub Form_Open()
 
  Dim ci As ColorInfo
 
  With ci = Color[Color.Violet]
    Print .Red
    Print .Green
    Print .Blue
    Print .Alpha
    Print Hex(.Color, 6)
    Print .Hue
    Print .Saturation
    Print .Value   <FONT Color=gray>' ''Questo si riferisce al valore del componente "V" della rappresentazione HSV del colore''</font>
    Print .Luminance
  End With
 
 End


Ovviamente è possibile anche "impostare" le proprietà della Classe ''ColorInfo'':
 Public Sub Form_Open()
 
  Dim ci As ColorInfo
  
  With ci = Color[Color.Violet]
    .Red = 255
    .Blue = 0
    Print Hex(.Color, 6)   <FONT Color=gray>' ''...e così il pixel è diventato di colore rosso''</font>
  End With
 
 End


In questo esempio pratico abbiamo una immagine formata da 4x4 pixel di colore blu. Cambieremo il colore dell'immagine in celeste.
 Public Sub Form_Open()
 
  Dim im As Image
  Dim ci As ColorInfo
 
  im = New Image(4, 4, Color.Blue, Image.Standard)
 
  With ci = Color[im.Pixels[0]]
    Print Hex(.Color, 6)
 <FONT Color=gray>' ''Viene modificato un componente del colore dei pixel:''</font>
   .Green = 255
 <FONT Color=gray>' ''E' possibile anche impostare l'intero numero del colore del pixel:''
   .Color = &00FFFF</font>
  End With
 
  PictureBox1.Image = im.Colorize(ci.Color)
 
 End