Function R(s As String) As Single Return Integer.Parse(s.Substring(1, 2), NumberStyles.HexNumber) End Function Function G(s As String) As Single Return Integer.Parse(s.Substring(3, 2), NumberStyles.HexNumber) End Function Function B(s As String) As Single Return Integer.Parse(s.Substring(5, 2), NumberStyles.HexNumber) End Function
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.