Spanish [SOLUCIONADO] Modificar aspectos del Activity desde una clase

' en el activity
Sub Globals
Private Mimodulo As ModulodeClase ' El nombre que le des al módulo de clase
Dim BtnColor as Button
Dim Etiqueta as Label
' ........................
' ........................
' ........................

Sub Activity_Create(FirstTime As Boolean)

  Etiqueta.Inicialize ("")
  BtnColor.Inicialize ("BtnColor")

  Mimodulo.Initialize(Me, panel1, parametrox, Directorio ) ' lo que necesites

  ' ........................
  ' ........................

Sub BtnColor_Click
   ' cambiar color al activity
   Mimodulo.CambiarColorActivity (Colors.Blue)
End Sub




' --------------------------- en el módulo de clase ----------------------
Private Sub Class_Globals
  Private ActualActivity As Object
  Private ActualActivity As Activity ' tambien puedes utilizar este método
  Private MiPanel as Panel
  Public CarpetaAplicacion as string
  Private MiParametro as int
  private Cabecera1 as label
' ........................
' ........................
' ........................

Public Sub Initialize(MiActivity As Object, Panel1 as Panel , Parametro as int, Carpeta As String, TextoCabecera as label)

' tambien puedes poner que te devuelva si se ha inicializado correctamente
Public Sub Initialize(MiActivity As Activity, Panel1 as Panel , Parametro as int, Carpeta As String, TextoCabecera as label)  as Boolean

ActualActivity = Miactivity
MiPanel = Panel1
CarpetaAplicacion = Carpeta
MiParametro = Parametro
Cabecera1 = TextoCabecera

cabecera1.text ="Inicializado módulo"

' si por ejemplo has empleado que te devuelva un valor, puedes salir asi:
Return True ' o lo que sea a nivel de lo que inicialices

' ........................
' ........................
' ........................

Public Sub CambiarColorActivity (color as int)
  ActualActivity.Color = color
End Sub