Valeur RGB des couleurs systemesRésolu

Question

Lu a tous



voila, j'aurais voulu savoir comment r&#233;cuperer les valeur des
composantes (Rouge, Vert bleu), des couleurs systeme ? exemple :
vbApplicationWorkspace



vbApplicationWorkspace renvoi vers une constante, qui, appliqu&#233; &#224; un
controle, donne la couleur systeme, mais ne permet pas de connaitre ses
composantes.



merci d'avance pour votre aide

http://www.amx-plugin-creator.fr.st/

Gobillot · Accepted Answer

Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)


Private Sub Command1_Click()
    Dim couleur As Long
    Dim c(2)    As Byte
    Dim RealColor As Long
    Dim index     As Byte
    
    index = vbApplicationWorkspace And 255
    couleur = GetSysColor(index)
    CopyMemory c(0), couleur, 3
    MsgBox "Rouge= " & c(0)
    MsgBox "vert= " & c(1)
    MsgBox "Bleu= " & c(2)
End Sub

Daniel

cs_Stephane · Answer

Yeah merci bcp !

http://www.amx-plugin-creator.fr.st/

Valeur RGB des couleurs systemes

2 réponses

Discussions similaires