Spanish Cambiar color de fondo de un label?

B

benji

Active Member

Licensed User

Longtime User

• Dec 2, 2015

• #1

Eso, como cambio el color de fondo de un label?
si yo hago esto
lblPto2.Background = Colors.Gray

tengo un error de tipo...

de antemano gracias.

 

cas6678

Active Member

Licensed User

Longtime User

• Dec 2, 2015

• #2

lblPto2.Color=Colors.Gray

 

eurojam

Well-Known Member

Licensed User

Longtime User

• Dec 2, 2015

• #3

si utilizas Background, tiene que ser:

B4X:

    Dim cd As ColorDrawable
    cd.Initialize(Colors.Yellow, 5dip)
    lblPto2.Background=cd

 

B

benji

Active Member

Licensed User

Longtime User

• Dec 2, 2015

• #4

cas6678 said:

lblPto2.Color=Colors.Gray

Click to expand...

toda la razon, eso me pasa por no mirar todas las propiedades...

que diferencia hay al definir como ColorDrawable?

 

eurojam

Well-Known Member

Licensed User

Longtime User

• Dec 2, 2015

• #5

con ColorDrawable puedes hacer labels redondas

 

aviario

Active Member

Licensed User

Longtime User

• Dec 4, 2015

• #6

Yo lo hago de esta forma

Rutinas.PonFondo_Label(Pta1,248,250,193,248,250,193)


Sub PonFondo_Label(Lbl As Label,Cl1 As String,Cl2 As String,Cl3 As String,Cl4 As String,Cl5 As String,Cl6 As String)
Dim gr As GradientDrawable
Dim Cols(2) As Int
Cols(0) = Colors.RGB(Cl1,Cl2,Cl3)
Cols(1) = Colors.RGB(Cl4,Cl5,Cl6)
gr.Initialize("BL_TR", Cols)
gr.CornerRadius=5
Lbl.Background = gr
End Sub