使用Access VB.net更改表单控件的背景颜色

Question

我想更改标签的背景色，使其逐渐改变，但是由于某些原因，我无法使用RGB功能。 我的老师不是真正的帮助，因为他不是真的教，请帮助

Public Class Form1
Dim r, g, b As Integer

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Timer1.Enabled = True

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Timer1.Enabled = False

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    r = 0
    g = 0
    b = 0

    For r = 1 To 225
        r += 1
        LblColor.BackColor = RGB(r, g, b)
    Next
    For g = 1 To 255
        g += 1
        LblColor.BackColor = RGB(r, g, b)
    Next
    For b = 1 To 255
        b += 1
        LblColor.BackColor = RGB(r, g, b)
    Next

End Sub

Private Function RGB(r As Integer, g As Integer, b As Integer) As Color

End Function

Private Sub LblColor_Click(sender As Object, e As EventArgs) Handles LblColor.Click

End Sub

末级

Answer 1

RGB()函数内置于VBA中。 尝试删除自己的版本-可能会妨碍您的工作。

Private Function RGB()...  '  |   
   ...                        |    <--- remove this bit
End Function                  |

Answer 2

恩，所以我发现对于VB.Net，我必须使用它： LblColor.BackColor = Color.FromArgb(r, g, b) ，现在它正在工作，感谢您的帮助