[Zuhare]

الكود منقول

PHP كود :

    Private Sub TextBox3_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox3.TextChanged
        Dim c = TextBox3.Text.Split(",")
        If c.Count = 3 Then
            Dim r, g, b As Integer
            r = If(Math.Abs(Val(c(0))) > 255, 255, Math.Abs(Val(c(0))))
            g = If(Math.Abs(Val(c(1))) > 255, 255, Math.Abs(Val(c(1))))
            b = If(Math.Abs(Val(c(2))) > 255, 255, Math.Abs(Val(c(2))))
            Me.TextBox4.BackColor = Color.FromArgb(r, g, b)
        End If
    End Sub