tengo una clase que crea unos labels y segun como tienen que cambiar el color:
esta es la clase:
PRIVATE laser AS Label
' Constructor
PUBLIC SUB _new(las AS Label, x AS Integer, y AS Integer, incremento AS Integer, width AS Integer, height AS Integer, bg as que tipo?)
laser = las
laser.y = y
laser.x = x + incremento
laser.Width = width
laser.Height = height
laser.bg ' necesito aqui esa variable
END
' Destructor
PUBLIC SUB _free()
TRY laser.Delete
END
' GETTERS & SETTERS
' X
PUBLIC FUNCTION setX(coordX AS Integer)
TRY laser.X = coordX
END
PUBLIC FUNCTION getX() AS Integer
RETURN laser.X
END
' Y
PUBLIC FUNCTION setY(coordY AS Integer)
TRY laser.Y = coordY
END
PUBLIC FUNCTION getY() AS Integer
TRY RETURN laser.Y
END
' Width
PUBLIC FUNCTION setWidth(width AS Integer)
TRY laser.W = width
END
PUBLIC FUNCTION getWidth() AS Integer
TRY RETURN laser.W
END
' Height
PUBLIC FUNCTION setHeight(height AS Integer)
TRY laser.H = height
END
PUBLIC FUNCTION getHeight() AS Integer
TRY RETURN laser.H
END
' Constructor
PUBLIC SUB _new(las AS Label, x AS Integer, y AS Integer, incremento AS Integer, width AS Integer, height AS Integer, bg as que tipo?)
laser = las
laser.y = y
laser.x = x + incremento
laser.Width = width
laser.Height = height
laser.bg ' necesito aqui esa variable
END
' Destructor
PUBLIC SUB _free()
TRY laser.Delete
END
' GETTERS & SETTERS
' X
PUBLIC FUNCTION setX(coordX AS Integer)
TRY laser.X = coordX
END
PUBLIC FUNCTION getX() AS Integer
RETURN laser.X
END
' Y
PUBLIC FUNCTION setY(coordY AS Integer)
TRY laser.Y = coordY
END
PUBLIC FUNCTION getY() AS Integer
TRY RETURN laser.Y
END
' Width
PUBLIC FUNCTION setWidth(width AS Integer)
TRY laser.W = width
END
PUBLIC FUNCTION getWidth() AS Integer
TRY RETURN laser.W
END
' Height
PUBLIC FUNCTION setHeight(height AS Integer)
TRY laser.H = height
END
PUBLIC FUNCTION getHeight() AS Integer
TRY RETURN laser.H
END
con que tipo de dato paso el parametro bg?
he probado con color pero no funciona.