Question : Changeant le BackColor d'un bouton sur une forme par le code placé dans un module

J'ai un Form1 dans un projet visuel du studio 2008 avec un Button1 sur it.
I voudrais placer le BackColor de ce Button1 par le code mis dans un sous-marin dans un Module1 dans mon Project.
I ai le code suivant dans le
MsgBox de Module1

Public ChangeBackColor () « bonjour - voyons si la couleur de Button1 changera ? le »

Form1.Button1.BackColor = Color.RoyalBlue

End Sub

I ont mis un appel à ChangeBackColor () dans l'événement de charge de Form1
I avait espéré que quand les charges Form1 il appelleront ChangeBackColor et par ceci la couleur de Button1 sur la forme changera en RoyalBlue.
However que ceci ne fonctionne pas. Je souhaite savoir si ce que je m'attendais à ce que se produise était peu réaliste et s'il y a manière de réaliser ce que j'ai voulu réaliser - qui change le BackColor d'un bouton sur Form1 par un sous-marin mis dans un autre module dans votre projet. le
As un essai si l'appel à ChangeBackColor fonctionnait, j'ai mis un MsgBox dans le
Sub ChangeBackColor et le MsgBox révèle quand Form1 charge vers le haut mais la couleur de Button1 ne change pas. Je serais reconnaissant pour l'aide en réalisant this.

Thank vous pour votre aide d'avance. note du
Please j'emploie Visual Basic dans le studio visuel 2008.
class= de

Réponse : Changeant le BackColor d'un bouton sur une forme par le code placé dans un module

Dans quelles circonstances le code dans le module s'appellera-t-il ?

Une approche différente est à la place de réitérer au-dessus de la propriété de MdiChildren () de votre forme principale et de trouver l'exemple de Form1 qui manière :

    ChangeBackColor secondaire public ()
        Pour chaque enfant comme forme dans Main.MdiChildren
            Si l'enfant de TypeOf est Form1 alors
                Faible f1 en tant que Form1 = C (enfant, Form1)
                f1.Button1.BackColor = Color.RoyalBlue
            Finir si
        Après
    Sous-marin d'extrémité

Il ressemble à vous ont déjà une référence à votre exemple de Form1 par l'intermédiaire de votre variable « frm1 » (probablement au niveau de classe dans la force ?).  Vous pourriez passer cela dans ChangeBackColor () :

    ChangeBackColor secondaire public (ByVal f1 comme Form1)
        f1.Button1.BackColor = Color.RoyalBlue
    Sous-marin d'extrémité

De la force, vous feriez :

    ChangeBackColor (frm1)