RGB2HEX

    • VB.NET

      RGB2HEX

      Hey Leute,
      hier ein Code mit dem man RGB zu HEX Umwandeln kann:

      VB.NET-Quellcode

      1. Dim CLRDialog As New ColorDialog
      2. If CLRDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
      3. Dim Farbe As Color = CLRDialog.Color
      4. Dim R = Hex(Farbe.R)
      5. Dim G = Hex(Farbe.G)
      6. Dim B = Hex(Farbe.B)
      8. If R.Length < 2 Then
      9. R = R.Insert(0, "0")
      10. End If
      12. If G.Length < 2 Then
      13. G = G.Insert(0, "0")
      14. End If
      16. If B.Length < 2 Then
      17. B = B.Insert(0, "0")
      18. End If
      20. MsgBox("RGB: " & Farbe.R & ", " & Farbe.G & ", " & Farbe.B & Chr(13) & _
      21. "HEX: " & R & ", " & G & ", " & B)
      22. End If


      Ich hoffe ihr könnt damit etwas anfangen

      lg.

    Facebook