vb.net - 用于更改所有表单背景颜色的按钮

Question

我在学校只学了一点视觉基础知识，现在我正在尝试自己做一些事情，如果这是一个愚蠢的问题，抱歉。

我创建了一些使用以下方法更改背景颜色的按钮:

Private Sub bgcblue_Click(sender As Object, e As EventArgs) Handles bgcblue.Click
        BackColor = Color.DeepSkyBlue
    End Sub

但是，我不知道如何让它改变其他表单上的颜色。这是您唯一可以选择的形式，因此，例如，如果您选择蓝色，则以下表单也将具有蓝色背景。

我能想到的唯一方法是在每个表单的开头编写一个 if 子句，说明如果在前一个表单上单击该按钮，那么它应该具有那种颜色，但这似乎有很多代码......有人可以帮忙吗？如果您不明白我说的话或者我说错了，我很抱歉......

Answer 1

Create a public property in module which will be used by all forms to set initial background color in there load event. when you set color of this property change background color of all open forms

模块中的属性

Module Module1
    Private m_FormBackgroundColor As Color
    Public Property FormBackgroundColor As Color
        Get
            Return m_FormBackgroundColor
        End Get
        Set(value As Color)
            m_FormBackgroundColor = value
            For Each Frm As Form In Application.OpenForms
                Frm.BackColor = m_FormBackgroundColor
            Next
        End Set
    End Property
End Module

为每个加载事件设置背景颜色

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.BackColor = FormBackgroundColor
    End Sub
End Class

点击按钮设置背景颜色

Private Sub bgcblue_Click(sender As Object, e As EventArgs) Handles bgcblue.Click
    FormBackgroundColor = Color.DeepSkyBlue
End Sub