Pytanie : Zmieniać the BackColor Guzik na Forma Przez Kod Umieszczać w Moduł

I mieć Form1 w Wizualny Studio 2008 Projekt z Button1 na it.
I polubić the BackColor ten Button1 przez kod stawiać w Okręt podwodny w Module1 w mój Project.
I mieć the następujący kod w Module1

Public Okręt podwodny ChangeBackColor ()
MsgBox "Cześć - Pozwalać jeżeli the Kolor Button1 zmieniać? "

Form1.Button1.BackColor = Color.RoyalBlue

End Sub

I stawiać Wezwanie ChangeBackColor () w the obciążeniowy wydarzenie Form1
I mieć nadzieję że gdy Form1 Ładunek ono dzwonić ChangeBackColor i przez pracować the kolor Button1 na Forma zmieniać RoyalBlue.
However pracować pracować. I życzyć czy projekt I oczekiwać być nierealistyczny i jeżeli tam  być sposób jeżeli I chcieć - który zmieniać the BackColor Guzik na Form1 przez Okręt podwodny stawiać w inny Moduł w twój Projekt.
As test czy the wezwanie ChangeBackColor pracować, I stawiać MsgBox w the
Sub ChangeBackColor i the MsgBox pokazywać zmieniać kiedy Form1 Ładować w górę ale the Kolor Button1 zmieniać. I być wdzięczny dla pomoc w this.

Thank ty dla twój pomoc w antycypacja.
Please notatka I używać Wizualny Podstawowy w Wizualny Studio 2008.

Odpowiedź : Zmieniać the BackColor Guzik na Forma Przez Kod Umieszczać w Moduł

Pod jaki okoliczność the kod w the Moduł dzwonić?

Jeden różny podejście być zamiast iterate nad the MdiChildren () własność twój Główny forma i the przykład Form1 który sposób:

    Jawny Okręt podwodny ChangeBackColor ()
        Dla Main.MdiChildren dziecko Forma W Main.MdiChildren
            Jeżeli TypeOf dziecko Być Form1 Wtedy
                Ciemnawy f1 Jako Form1 = CType (dziecko, Form1)
                f1.Button1.BackColor = Color.RoyalBlue
            Kończyć Jeżeli
        Następnie
    Końcówka Okręt podwodny

Ono patrzeć jak ty już mieć odniesienie twój przykład Form1 przez twój "frm1" zmienna (prawdopodobnie przy klasa równy w Magistrala?).  Ty móc móc w ChangeBackColor ():

    Jawny Okręt podwodny ChangeBackColor (ByVal f1 Jako Form1)
        f1.Button1.BackColor = Color.RoyalBlue
    Końcówka Okręt podwodny

Z wewnątrz Magistrala, ty zrobić:

    ChangeBackColor (frm1)