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

时间:2018-10-20 21:44:09

标签: vb.net colors

我想在我的“ 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 Control元素的背景吗?

2 个答案:

答案 0 :(得分: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

答案 1 :(得分:0)

如果您有Option Strict On,则会在这里发现错误:Me.Panel1.BackColor = Mycolor1

错误:

  

Option Strict On不允许从'Object'隐式转换为   “颜色”。

更改:

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

收件人:

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

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