Question

我想更改标签的backgroundcolor，使其逐渐变化，但由于某种原因，我无法使用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

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

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

2 个答案: