Cuestión : Cambiando el BackColor de un botón en una forma con el código puesto en un módulo

¿Tengo un Form1 en un proyecto visual del estudio 2008 con un Button1 en it.
I quisiera fijar el BackColor de este Button1 con el código puesto en un submarino en un Module1 en mi Project.
I tengo el código siguiente en el
MsgBox de Module1

Public ChangeBackColor () “hola - veamos si el color de Button1 cambia? el”

Form1.Button1.BackColor = Color.RoyalBlue

End Sub

I ha puesto una llamada a ChangeBackColor () en el acontecimiento de la carga de Form1
I había esperado que cuando las cargas Form1 él llamarán ChangeBackColor y con esto el color de Button1 en forma cambiará a RoyalBlue.
However que éste no está trabajando. Deseo saber si qué esperaba que sucediera era poco realista y si hay manera de alcanzar de lo que quise alcanzar - de que está cambiando el BackColor de un botón en Form1 a través de un submarino puesto en otro módulo en su proyecto. el
As una prueba si la llamada a ChangeBackColor trabajaba, he puesto un MsgBox en el
Sub ChangeBackColor y el MsgBox aparece cuando Form1 carga para arriba pero el color de Button1 no cambia. Sería agradecido para la ayuda en la realización de this.

Thank usted para su ayuda en la anticipación. nota del
Please estoy utilizando Visual Basic en el estudio visual 2008.
class= del

Respuesta : Cambiando el BackColor de un botón en una forma con el código puesto en un módulo

¿Bajo qué circunstancias el código en el módulo será llamado?

Un diverso acercamiento es en lugar de otro iterar sobre la característica de MdiChildren () de su forma principal y encontrar el caso de Form1 que manera:

    ChangeBackColor secundario público ()
        Para cada niño como forma en Main.MdiChildren
            Si el niño de TypeOf entonces es Form1
                F1 dévil como Form1 = C (niño, Form1)
                f1.Button1.BackColor = Color.RoyalBlue
            Terminar si
        Después
    Submarino del extremo

Parece usted tiene ya una referencia a su caso de Form1 vía su variable “frm1” (probablemente en el nivel de la clase en cañería?).  Usted podría pasar eso en ChangeBackColor ():

    ChangeBackColor secundario público (ByVal f1 como Form1)
        f1.Button1.BackColor = Color.RoyalBlue
    Submarino del extremo

Dentro de la cañería, usted haría:

    ChangeBackColor (frm1)