在vb.net中使用颜色作为变量

Question

我想在我的“GlobalColors.vb”模块中创建自定义颜色，下面是示例代码;

Public Mycolor1 As Object = System.Drawing.Color.FromArgb(30, 155, 0, 144)

我试图在我的一个小组中实现这一点。

Me.Panel1.BackColor = Mycolor1
Me.Panel1.Location = New System.Drawing.Point(54, 47)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(200, 100)
Me.Panel1.TabIndex = 0

但我有一个像下面这样的错误;

找不到类型'TestApp.GlobalColors'。请确保引用包含此类型的程序集。如果此类型是开发项目的一部分，请确保使用当前平台或任何CPU的设置成功构建项目。

谁能知道如何定义自定义颜色并在面板和其他WinForm控件元素的背景中使用它们？

Answer 1

如上所述，它对我来说很好。您有一个损坏的设置，或者您已经不准确地描述它：

Module GlobalColors

    Public Mycolor1 As Object = System.Drawing.Color.FromArgb(30, 155, 0, 144)

End Module

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Panel1.BackColor = Mycolor1
    End Sub

End Class

Answer 2

如果你有Option Strict On，你会在这里找到一个错误：Me.Panel1.BackColor = Mycolor1

错误：

Option Strict On禁止从“对象”到“颜色”的隐式转换。

更改：

Public Mycolor1 As Object = System.Drawing.Color.FromArgb(30, 155, 0, 144)

至：

Public Mycolor1 As Color = System.Drawing.Color.FromArgb(30, 155, 0, 144)

是否能解决原始问题，我不确定，但值得一试。