Differenze tra le versioni di "Uso della classe ColorInfo"
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'La Classe '''ColorInfo''' restituisce informazioni dettagliate sui colori. In particolare seziona un colore nei suoi componenti, e li ritorna come un oggetto di ''ColorInfo''...') |
|||
(5 versioni intermedie di uno stesso utente non sono mostrate) | |||
Riga 6: | Riga 6: | ||
− | + | ===Esempi=== | |
− | + | Public Sub Form_Open() | |
Dim ci As ColorInfo | 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'': | + | Ovviamente è possibile anche "impostare" le proprietà della Classe ''ColorInfo'': |
− | + | Public Sub Form_Open() | |
Dim ci As ColorInfo | 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 un solo pixel di colore blu. Cambieremo il colore in celeste. | In questo esempio pratico abbiamo una immagine formata da un solo pixel di colore blu. Cambieremo il colore in celeste. | ||
− | + | Public Sub Form_Open() | |
Dim im As Image | Dim im As Image | ||
Dim ci As ColorInfo | Dim ci As ColorInfo | ||
− | + | im = Image.Load("<FONT Color=darkgreen>''/percorso/dell'immagine''</font>") | |
− | + | With ci = Color[im.Pixels[0]] | |
− | + | Print Hex(.Color, 6) | |
<FONT Color=gray>' ''Viene modificato un componente del colore del pixel:''</font> | <FONT Color=gray>' ''Viene modificato un componente del colore del pixel:''</font> | ||
− | + | .Green = 255 | |
− | <FONT Color=gray>' ''E' possibile anche impostare l'intero numero del colore del pixel:'' | + | <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 |
Versione delle 09:03, 19 nov 2023
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 ' Questo si riferisce al valore del componente "V" della rappresentazione HSV del colore 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) ' ...e così il pixel è diventato di colore rosso End With End
In questo esempio pratico abbiamo una immagine formata da un solo pixel di colore blu. Cambieremo il colore in celeste.
Public Sub Form_Open() Dim im As Image Dim ci As ColorInfo im = Image.Load("/percorso/dell'immagine") With ci = Color[im.Pixels[0]] Print Hex(.Color, 6) ' Viene modificato un componente del colore del pixel: .Green = 255 ' E' possibile anche impostare l'intero numero del colore del pixel: .Color = &00FFFF End With PictureBox1.Image = im.Colorize(ci.Color) End