RGB-Tool

    • Release

    Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ThuCommix.

      RGB-Tool

      Joa, für Leute, die grade ne Homepage oder sowas erstellen, sollte sowas nicht schaden. ;)
      Es hilft nämlich eine passende Farbe(in Hexadezimal) zu finden.

      Programmiert in: VB 2010 Express

      So funktionierts:
      1. Ihr könnt in den 3 kleinen Textboxen eine 0 - FF große Hexadezimalzahl eingeben. 0 = kein Licht, FF = So hell, wie es geht.
        Die linke Textbox ist für den Rotanteil, die mittlere für den Grünanteil und die rechte für den Blauanteil.
      2. Unten seht ihr, wie eure Farbe aussieht.
      3. Die obere Textbox ist der Farbcode.


      Screenshot und Download im Anhang. Hoffe euch nütz es ;)

      Wer ein besseres RGB-Tool machen will, kann mein Quellcode als kleine Hilfe nehmen(kommentiert):
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class Form1
      2. Dim r As String 'für Rot
      3. Dim g As String 'für Grün
      4. Dim b As String 'für Blau
      6. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
      7. 'Die Farbenwerte von Rot, Grün und Blau werden in Dezimalzahlen umgewandelt.
      8. 'Dann bekommt RectangleShape1 die Rot-Grün-Blau Werte als Farbe.
      9. RectangleShape1.BackColor = Color.FromArgb(Val("&H" & Mid(TextBox1.Text, 1, 2)), Val("&H" & Mid(TextBox1.Text, 3, 2)), Val("&H" & Mid(TextBox1.Text, 5, 2)))
      10. End Sub
      12. Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
      13. 'Da der Farbwert 6 Ziffern haben soll, werden hier, wenn es nötig ist, die Nullen ergänzt..
      14. If TextBox2.TextLength < "2" Then
      15. If TextBox2.TextLength = "1" Then
      16. r = "0" + TextBox2.Text
      17. Else
      18. r = "00"
      19. End If
      20. Else
      21. r = TextBox2.Text
      22. End If
      24. TextBox1.Text = r + g + b
      25. End Sub
      27. Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
      28. 's.O.
      29. If TextBox3.TextLength < "2" Then
      30. If TextBox3.TextLength = "1" Then
      31. g = "0" + TextBox3.Text
      32. Else
      33. g = "00"
      34. End If
      35. Else
      36. g = TextBox3.Text
      37. End If
      39. TextBox1.Text = r + g + b
      40. End Sub
      42. Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
      43. 's.O.
      44. If TextBox4.TextLength < "2" Then
      45. If TextBox4.TextLength = "1" Then
      46. b = "0" + TextBox4.Text
      47. Else
      48. b = "00"
      49. End If
      50. Else
      51. b = TextBox4.Text
      52. End If
      54. TextBox1.Text = r + g + b
      55. End Sub
      56. End Class
      Bilder

      • screen.png

        6,71 kB, 176×170, 398 mal angesehen
      Dateien

      • RGB-Tool.exe

        (19,46 kB, 140 mal heruntergeladen, zuletzt: )

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „jngr“ ()

      Wie wärs wenn du einen Colorpicker mit einbaust, sodass ich sehe, welche Werte eine bestimmte Seite hat? Das wär definitiv noch nützlich.
      Ansonsten tut es was es soll. Aber nützlich ist es noch nicht so ganz.

      Grüße

    Facebook