Fråga : Ändra BackColoren av en knäppas på en bilda kodifiera igenom förlagt i en enhet

Jag har en Form1 i en visuellt hjälpmedelstudio 2008 att projektera med en Button1 på skulle något liknande för it.
I till uppsättningen som BackColoren av denna Button1 kodifierar igenom satt i en Sub i en Module1 i min Project.
I har efter kodifiera i under() hälsningar för
Public/>
MsgBox ”- låt oss se, om färga av Button1 ska ändring? ” hade har

Form1.Button1.BackColor = Color.RoyalBlue

End Sub

I satt en appell till ChangeBackColor () i laddahändelsen av Form1
I hoppas att, när Form1 laddar det ska appellen ChangeBackColor, och till och med denna färga av Button1 bildar på ska ändring till RoyalBlue.
However som denna inte är funktionsduglig. Jag önskar att veta att huruvida vad jag förväntade för att hända var orealistiskt, och om det finns långt av att uppnå vad jag önskade att uppnå - som ändrar BackColoren av en knäppas på Form1 till och med en Sub som sätts i en annan enhet i ditt, projekterar.
As en testa appellen till ChangeBackColor var huruvida funktionsduglig, har jag satt en MsgBox i Sub ChangeBackColor, och MsgBoxen visar upp när Form1 laddar upp men färga av Button1 inte ändrar. Jag skulle är tacksam för hjälp, i att uppnå this.

Thank dig för din hjälp i förväntan.
Please noterar I-förmiddag using Visual Basic i visuellt hjälpmedelstudion 2008.
" klar "

Svar : Ändra BackColoren av en knäppas på en bilda kodifiera igenom förlagt i en enhet

Under vilka omständigheter som ska kodifiera i enheten, kallas?

Olik en att närma sig är i stället att iterate över den MdiChildren () egenskapen av ditt huvudsakligt bildar och finner anföra som exempel av Form1 ditåt:

    Offentliga underChangeBackColor ()
        För varje barn som bildar i Main.MdiChildren
            Om det TypeOf barnet är Form1 därefter
                Dunkel f1 som Form1 = CType (barnet, Form1)
                f1.Button1.BackColor = Color.RoyalBlue
            Avsluta om
        Därefter
    Avsluta suben

Den ser lik dig har redan en hänvisa till till ditt att anföra som exempel av Form1 via din variabel ”frm1” (på klassificera antagligen jämnt i huvudsakligt?).  Du kunde passera det in i ChangeBackColor ():

    Offentliga underChangeBackColor (ByVal f1 som Form1)
        f1.Button1.BackColor = Color.RoyalBlue
    Avsluta suben

Inifrån huvudsaklig, du skulle gör:

    ChangeBackColor (frm1)