Frage : Das BackColor eines Knopfes auf einer Form durch den Code ändern gelegt in ein Modul

Ich habe ein Form1 in einem Sichtprojekt des studio-2008 mit einem Button1 auf it.
I möchte das BackColor dieses Button1 durch den Code einstellen, der in ein Unterseeboot in einem Module1 in meinem Project.
I eingegeben wird, habe den folgenden Code Module1

Public im VorChangeBackColor ()
MsgBox „hallo - uns sehen lassen, wenn die Farbe von Button1 ändert? “

Form1.Button1.BackColor = Color.RoyalBlue

End Sub

I haben einen Anruf zu ChangeBackColor () in das Lastsereignis von Form1
I hatte gehofft eingesetzt, dass, wenn Lasten Form1 es ChangeBackColor benennen und durch dieses die Farbe von Button1 auf Form zu RoyalBlue.
However ändert, das diese nicht bearbeitet. Ich möchte kennen, ob, was ich erwartete, um zu geschehen, unrealistisch war und wenn es Weise des Erzielens gibt, was ich erzielen wollte - der das BackColor eines Knopfes auf Form1 durch ein Unterseeboot ändert, das in ein anderes Modul in Ihrem Projekt eingesetzt wird.
As ein Test, ob der Anruf zu ChangeBackColor arbeitete, habe ich ein MsgBox in das
Sub ChangeBackColor eingesetzt und das MsgBox zeigt sich, wann Form1 oben lädt, aber die Farbe von Button1 nicht ändert. Ich würde für Hilfe im Erzielen von this.

Thank Sie für Ihre Hilfe in der Erwartung dankbar sein.
Please Anmerkung benutze ich Visual Basic im Sichtstudio 2008.

Antwort : Das BackColor eines Knopfes auf einer Form durch den Code ändern gelegt in ein Modul

Unter welchen Umständen wird der Code im Modul benannt?

Eine unterschiedliche Annäherung ist, über dem MdiChildren () Eigentum Ihrer Hauptform anstatt zu wiederholen und den Fall von Form1 zu finden, das Weise:

    Allgemeines VorChangeBackColor ()
        Für jedes Kind als Form in Main.MdiChildren
            Wenn TypeOf Kind Form1 dann ist
                Schwaches f1 als Form1 = C (Kind, Form1)
                f1.Button1.BackColor = Color.RoyalBlue
            Beenden wenn
        Zunächst
    Enden-Unterseeboot

Es sieht wie Sie hat bereits einen Hinweis auf Ihrem Fall von Form1 über Ihre Variable „frm1“ aus (vermutlich auf Kategorienniveau in der Hauptleitung?).  Sie konnten das in ChangeBackColor führen ():

    Allgemeines VorChangeBackColor (ByVal f1 als Form1)
        f1.Button1.BackColor = Color.RoyalBlue
    Enden-Unterseeboot

Innerhalb von der Hauptleitung würden Sie tun:

    ChangeBackColor (frm1)