 RE: Hexadecimal a Fondo, Lupa y cuentagotas
RE: Hexadecimal a Fondo, Lupa y cuentagotas
Pues ahora, sinceramente, soy yo el que no entiendo.
Tienes en el Text3.Text el valor hexadecimal que quieres poner como valor del color de fondo de ese control ??
Vamos por partes, una propiedad BackColor te admite valores entre 0 y 2.421.xxx.xxx (Es decir el máximo valor que admite un tipo Long. Este valor se lo puedes asignar a la propiedad como un valor decimal, octal o hexadecimal y de hecho los sistemas operatovos tienen la tendencia a representarlos en hexadecimal ya que
&H000000 = RGB(0,0,0)
&HFFFFFFF = RGB(255,255,255)
y parece ser que es más intuitivo ver la Trama de bits con pares de número/letra, que con un decimal simple.
Ese valor al que tu llamas código, lo tengas donde lo tengas (Por ejemplo en un Text3.Text se lo puedes asignar al BackColor de otro control Text cuando pulses el botón del comando command1.
Private sub Command1_click()
Text1.BackgroundColor = Val(Text3.Text)
end sub
si el contenido de Text3.Text es &H000000, te pondrá el color de fondo de Text1 en negro.
No sé si ahora habr dado en el clavo.
Un saludo
-Acalanto-</TR> |