+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كيف يكون الكود الصحيح الخاص بالالوان (/showthread.php?tid=10618)
كيف يكون الكود الصحيح الخاص بالالوان - محمد مسافر - 07-11-14
عندي 200 موظف عندي في في البوتون في مشروعي اسمة state والتاكس بوكس بيكون ثلاة خيارات Normal ,Unpaid ,Sick اريد لكل موظف في التاكي بوكس اذا طلعت الكتابة Sick تطلع بالاحمر لكل موظف يطلع في بيانتة كذة تلقائياً ، اما Normal يكون اسود طبيعي ، اما unpaid تطلع باللون الازرق اتمنى تكون الفكرة وصلت.
وموضح لكم بالصور
وهذاء هو الكود
Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
If State = "Normal" Then
TextBox1.ForeColor = Color.Red
ElseIf
If Label11 = "Unpaid" Then
TextBox1.ForeColor = Color.Blue
ElseIf
If Label11 = "Sick" Then
TextBox1.ForeColor = Color.Beige
End If
End Sub
End Class
RE: كيف يكون الكود الصحيح الخاص بالالوان - الوليد ☺ - 07-11-14
السلام عليكم ورحمة الله
الي فهمته إنه لمن تطلع الكتابة في مربع نص رقم 8 يتغير لون كتابة نفس مربع النص حسب تصنيف الكلمة الموجوده فيه، جرب هذا
وحسب ما ذكرت أن Normal أسود وUnpaid أزرق وSick أحمر
لكن أنا ما فهمت إيش دور الليبل11
PHP كود :
Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
Select Case sender.Text
Case "Normal"
sender.ForeColor = Color.Black
Case "Unpaid"
sender.ForeColor = Color.Blue
Case "Sick"
sender.ForeColor = Color.Red
End Select
End Sub
RE: كيف يكون الكود الصحيح الخاص بالالوان - محمد مسافر - 07-11-14
(07-11-14, 07:57 PM)الوليد ☺ كتب :
السلام عليكم ورحمة الله
الي فهمته إنه لمن تطلع الكتابة في مربع نص رقم 8 يتغير لون كتابة نفس مربع النص حسب تصنيف الكلمة الموجوده فيه، جرب هذا
وحسب ما ذكرت أن Normal أسود وUnpaid أزرق وSick أحمر
لكن أنا ما فهمت إيش دور الليبل11
PHP كود :
Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
Select Case sender.Text
Case "Normal"
sender.ForeColor = Color.Black
Case "Unpaid"
sender.ForeColor = Color.Blue
Case "Sick"
sender.ForeColor = Color.Red
End Select
End Sub
عفواً لم اكن اقصد الليبل كنت اقصد التاكس بوكس 8 واشتغل كويس شكراً لك