17-01-25, 12:04 AM
17-01-25, 01:54 AM
الكود منقول
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
17-01-25, 03:26 AM
الله يجازيك كل خير و يبارك فيك و يرزقك من حيث لا تحتسب اخ Zuhare
تمام ان شاء الله و عمل رائع الهي يحسن اليك
تمام ان شاء الله و عمل رائع الهي يحسن اليك