CouleursRésolu

Question

Salut tout le monde,

J'ai un string comme ceci "&H000000FF&" que je desire transformer en couleur pour que je puisse modifier la couleur de mes composant.

Je ne trouve pas de fonction de conversion de string -> color.

Quelqu'un peut-il m'aider?

<hr size="2" width="100%" />  
  zen69 aka Ortho Le Profett

cs_Orohena · Accepted Answer

Bonjour zen69

Le Sub test( ) ci-dessous permet de décomposer ton code RGB en ses composantes. C'est ce que tu veux obtenir ? 

Option Explicit
Type COMPOSANTESRGB
        rouge As Integer
        vert As Integer
        bleu As Integer
End Type



Sub test()
Dim couleurs As COMPOSANTESRGB
Dim codeRGB As Long
codeRGB = Val("&H000000FF&")
couleurs = couleursRGB(codeRGB)
MsgBox couleurs.rouge & " " & couleurs.vert & " " & couleurs.bleu
End Sub

Function couleursRGB(codeRGB As Long) As COMPOSANTESRGB
'
' retourne les composantes rouge vert bleu du code RGB dans une variable
' de type utilisateur COMPOSANTESRGB
'
    With couleursRGB
        .rouge = codeRGB Mod 256
        .bleu = Int(codeRGB / 65536)
        .vert = (codeRGB - (.bleu * 65536) - .rouge) / 256
    End With
End Function


Cordialement

jmfmarques · Answer

Bonsoir,

La fonction Val (la lire dans ton aide en ligne) retourne la valeur d'une chaine

Essaye avec un lbel label1:

 toto = "&H80000009&"
 Label1.BackColor = Val(toto)

Dur ?

zen69 · Answer

[auteur/OROHENA/1483575.aspx Orohena]
 Dla bombe 




<hr size="2" width="100%" />  
  zen69 aka Ortho Le Profett

Couleurs

3 réponses

Votre réponse

Discussions similaires