Soyez le premier à donner votre avis sur cette source.
Snippet vu 12 109 fois - Téléchargée 21 fois
Public Function ColorTranslation(ByVal ColorInt As Integer) As Color If Math.Sign(ColorInt) = -1 Then Return Color.FromArgb(ColorInt) Else Dim A, R, G, B As Integer Dim STColor As String = System.Convert.ToString(ColorInt, 16) STColor = STColor.PadLeft(6, "0"c) A = 255 B = System.Convert.ToInt32(STColor.Substring(0, 2), 16) G = System.Convert.ToInt32(STColor.Substring(2, 2), 16) R = System.Convert.ToInt32(STColor.Substring(4, 2), 16) Return System.Drawing.Color.FromArgb(A, R, G, B) End If End Function
20 mai 2008 à 17:01
Je cherche tout simplement a enregistrer une couleur dans une base MS SQL 2005.
16 janv. 2008 à 13:10
9 janv. 2008 à 09:29
8 janv. 2008 à 20:07
Attention aux types de données.
System.Convert.ToInt64 renvoie un long, donc c'est plutôt System.Convert.ToInt32
STColor.PadLeft(6, "0") :
Le deuxieme argument est un char. en vb.net, on met "0"c
Hex(ColorInt) :
Utilise les outils du framework comme tu l'as fait plus bas :
System.Convert.ToString(ColorInt, 16)
Sinon, il aurait été mieux de faire ca sans passer par une transormation hexadécimale.
Extrait directment les composantes (Bytes) par calcule.
l'outil est tout fait: System.BitConverter.GetBytes
Il manque aussi la fonction inverse.
__
Kenji
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.