使用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) ，現在它正在工作，感謝您的幫助