逻辑调色板的值怎么取出来

Question

如上

Answer 1

'RGB(Red As Integer ,Green As Integer ,Blue as Integer )Private Sub Command1_Click()
    Form1.BackColor = RGB(100, 200, 200)
End Sub

Answer 2

我的意思是说逻辑调色板的索引对应的RGB值。有没有这样的API。唉，我的表达力这么差，你们都听不懂呀。

Answer 3

Private Sub Command1_Click()
    Dim a As Long
    Dim c As Integer
    a = RGB(10, 20, 30)
    c = a Mod 256
    a = a \ 256
    Debug.Print "红：", c
    c = a Mod 256
    a = a \ 256
    Debug.Print "绿：", c
    c = a Mod 256
    a = a \ 256
    Debug.Print "蓝：", c
End Sub