Sub setrgb()
Label1.BackColor = Color.FromArgb(scrR.Value, scrG.Value, scrB.Value)
End Sub
Private Sub TrackBarB_ValueChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TrackBarB.ValueChanged
setrgb()
End Sub
Private Sub TrackBarG_ValueChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TrackBarG.ValueChanged
setrgb()
End Sub
Private Sub TrackBarR_ValueChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TrackBarR.ValueChanged
setrgb()
End Sub
Private Sub btnCopy_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnCopy.Click
Clipboard.SetDataObject(CStr(Label1.BackColor.R) & ", " & CStr(Label1.BackColor.G)
& ", " & CStr(Label1.BackColor.B))
End Sub
Als je wil kan je de RGB code van de kleur weergeven met deze functie:
Function hexmetvoorloop(kleurcode As Integer) As String
Dim buffer As String
buffer = Hex(kleurcode)
If Len(buffer) = 1 Then buffer = "0" & buffer
hexmetvoorloop = buffer
End Function
en
txtCode.Text = "#" & hexmetvoorloop(scrRed.Value) & hexmetvoorloop(scrGreen.Value) & hexmetvoorloop(scrBlue.Value)
Je kan de kleur ook opbouwen met de Color.FromArgb methode, die een R, een G en een waarde aanneemt.
