Yo 
creo que en Gambas solo puedes saber "a posteriori " (como diría nuestro excellentismo Cónsul romano, Shell 
) el color de la barra simplemente conociendo uno de sus pixeles usando el Método "Desktop.Screenshot()" o el Método ".GetScreenshot()" de la Clase DesktopWindow , activando el Componente gb.desktop.x11.
creo que en Gambas solo puedes saber "a posteriori " (como diría nuestro excellentismo Cónsul romano, Shell ) el color de la barra simplemente conociendo uno de sus pixeles usando el Método "Desktop.Screenshot()" o el Método ".GetScreenshot()" de la Clase DesktopWindow , activando el Componente gb.desktop.x11.
Última modificación: 02-11-2022, 09:38 por vuott.
« Los horizontes perdidos nunca regresan. » (F. Battiato, 1983)
« Las ondas nunca regresan. » (Genesis: Ripples, 1976)
« Vita non suavis esse potest, nec Mors amara. » (...vuott)
(02-11-2022, 02:04)vuott escribió: Yo
"Olim, aut etiam. c'era una volta". Y para los modernos. Erase una vez.
Individual color values of a pixel?
Gianlugi dio la solución y el embajador Vuott cumplió su cometido.
Bajaros el ejemplo ya que es bastante curioso y muy sencillo. El código es a penas nada.
En el código se usa las coordenadas del ratón para averiguar el valor RGB. Pero si le dices directamente el lugar
también se puede conseguir el mismo resultado.
"Vigilate et discite."
Código:
Public Sub GetPixelColor(x As Integer, y As Integer)
Dim iColor As Integer
Print "Mouse.X = "; Mouse.X
Print "Mouse.Y = "; Mouse.Y
iColor = PictureBox1.Picture.Image[x, y]
Print "Current pixel color = "; iColor
Print "Red = "; Color[iColor].Red
Print "Green = "; Color[iColor].Green
Print "Blue = "; Color[iColor].Blue
Catch
Print "ERROR"
End
Public Sub PictureBox1_MouseUp()
GetPixelColor(Mouse.X, Mouse.Y)
EndRecordar que hace falta un picturebox con una imagen.
Saludos
"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln
En el foro antiguo plantie el mismo tema pero no dimos con la solucion.
https://foro.gambas-es.org/viewtopic.php?f=5&t=5850
https://foro.gambas-es.org/viewtopic.php?f=5&t=5850
1 Saludo.
(02-11-2022, 22:32)tincho escribió: En el foro antiguo plantie el mismo tema pero no dimos con la solucion.
Yo veo que razaAztk dio una solución similar a una que en el presente debate yo he propuesto:
https://foro.gambas-es.org/show_post.php?p=34977
(02-11-2022, 21:23)Shell escribió: Gianlugi dio la solución
Pero yo creo que la solución no es la solicitada por Shordi.
Última modificación: 02-11-2022, 23:42 por vuott.
« Los horizontes perdidos nunca regresan. » (F. Battiato, 1983)
« Las ondas nunca regresan. » (Genesis: Ripples, 1976)
« Vita non suavis esse potest, nec Mors amara. » (...vuott)