Использование цветов в качестве переменной в 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».Пожалуйста, убедитесь, что ссылка на сборку, которая содержит этот тип.Если этот тип является частью вашего проекта разработки, убедитесь, что проект был успешно построен с использованием настроек для вашей текущей платформы или любого ЦП.

Может кто-нибудь знать, как определять пользовательские цвета и использовать ихв фоне панелей и других элементов управления WinForm?

Answer 1

Если бы у вас было Option Strict On, вы могли бы найти ошибку здесь: Me.Panel1.BackColor = Mycolor1

Ошибка:

Параметр Строгое При запрещает неявное преобразование из «Объекта» в «Цвет».

Измените:

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

на:

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

Решает ли это вашу первоначальную проблему, я не уверен, но попробовать стоит.

Answer 2

Как описано, он отлично работает для меня.У вас либо поврежденная установка, либо вы описали ее неточно:

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