时间戳

首页 > 解决方案 > 如何在所有表单上更改相同的背景颜色？

vb.net - 如何在所有表单上更改相同的背景颜色？

问题描述

我正在做这个项目，我需要允许用户从颜色选择器中选择一种颜色，然后它会变成当前表单的背景，我使用的代码是：

Dim cd As New ColorDialog()
        If cd.ShowDialog() = DialogResult.OK Then
            Me.BackColor = cd.Color
        End If

这段代码工作正常，但它只改变了当前表单的背景颜色，我将如何制作它以便同时改变项目中所有表单的背景颜色，例如表单 1,2 和 3。

标签： vb.netvisual-studio

解决方案

我会创建一个名为 BackColor 的设置。这样做：

Project -> Properties -> Settings.

然后创建设置：

Put the Name you'd like

Type as String

Scope as User

然后在你的代码中放这个：

Dim cd As New ColorDialog()
        If cd.ShowDialog() = DialogResult.OK Then
            Me.BackColor = cd.Color
            My.Settings.BackColor = cd.color
            My.Settings.Save()
        End If

然后在每个表单加载上放置以下代码：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.BackColor = My.Settings.BackColor
    My.Settings.Save()
End Sub

推荐阅读