منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
جلب اللون الى التاكست بكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : جلب اللون الى التاكست بكس (/showthread.php?tid=50961)

جلب اللون الى التاكست بكس - محمد خيري - 17-01-25

اخواني كيف يمكن لما اكتب ارقام اللون بالتاكست بكس رقم 3 يظهرلي اللون المطابق له في التاكست بكس رقم 4 
و بارك الله فيكم

RE: جلب اللون الى التاكست بكس - Zuhare - 17-01-25

الكود منقول
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 


RE: جلب اللون الى التاكست بكس - محمد خيري - 17-01-25

الله يجازيك كل خير و يبارك فيك و يرزقك من حيث لا تحتسب اخ Zuhare
تمام ان شاء الله و عمل رائع الهي يحسن اليك