Gambas-it

Gambas dal mondo esterno => Germania => Topic aperto da: vuott - 16 Febbraio 2020, 18:17:38

Titolo: Come posso ottenere un colore da Integer ?
Inserito da: vuott - 16 Febbraio 2020, 18:17:38

https://www.gambas-club.de/viewtopic.php?f=3&t=5658

Titolo: Re:Come posso ottenere un colore da Integer ?
Inserito da: Gianluigi - 16 Febbraio 2020, 19:47:20

Forse così  :)

Codice: [Seleziona]

Public Sub Form_Open()

  Dim hColorInfo As ColorInfo

  hColorInfo = Color[6357247]
  Print hColorInfo.Alpha
  Print hColorInfo.Blue
  Print hColorInfo.Color
  Print hColorInfo.Green
  Print hColorInfo.Hue
  Print hColorInfo.Luminance
  Print hColorInfo.Red
  Print hColorInfo.Saturation
  Print hColorInfo.Value

  ' Show color in a label (Label1)
  Label1.Background = Color.RGB(hColorInfo.Red, hColorInfo.Green, hColorInfo.Blue, hColorInfo.Alpha)

End

Titolo: Re:Come posso ottenere un colore da Integer ?
Inserito da: vuott - 16 Febbraio 2020, 20:07:35

Probabilmente è quello che lui cerca, ma io non ho capito proprio niente di quello che cerca. :-X

Titolo: Re:Come posso ottenere un colore da Integer ?
Inserito da: Gianluigi - 16 Febbraio 2020, 22:35:20

Neanche io ho capito cosa vuol fare, ma ho capito e ho risposto a questa domanda:
"Was für eine Farbe ist der zahl 6357247 zugeordnet? Wie komme ich dahin?"

 :ciao:

Titolo: Re:Come posso ottenere un colore da Integer ?
Inserito da: Top Fuel - 17 Febbraio 2020, 22:43:59

E' molto più pratico scrivere i valori in esadecimale, così hai immediatamente davanti i livelli di rosso verde e blu.
6357247 diventa &H6100FF e vedi subito che è un viola un pò scuro.

Titolo: Re:Come posso ottenere un colore da Integer ?
Inserito da: Top Fuel - 17 Febbraio 2020, 22:48:59

Citazione da: vuott - 16 Febbraio 2020, 20:07:35

Probabilmente è quello che lui cerca, ma io non ho capito proprio niente di quello che cerca. :-X

Si, vuole ottenere dei colori partendo da dei valori interi, però facendo come vuole lui diventa difficilissimo ottenere dei risultati leggibili.