+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف عمل load لى ملف NoteBad (/showthread.php?tid=7435)
كيف عمل load لى ملف NoteBad - مبتدئ - 19-12-12
كود :
Label1.ForeColor = Label2.ForeColor
If Label2.Text = "AliceBlue" Then
Label2.ForeColor = Color.AliceBlue
End If
If Label2.Text = "AntiqueWhite" Then
Label2.ForeColor = Color.AntiqueWhite
End If
If Label2.Text = "Aqua" Then
Label2.ForeColor = Color.Aqua
End If
If Label2.Text = "Aquamarine" Then
Label2.ForeColor = Color.Aquamarine
End If
If Label2.Text = "Azure" Then
Label2.ForeColor = Color.Azure
End If
If Label2.Text = "Beige" Then
Label2.ForeColor = Color.Beige
End If
If Label2.Text = "Bisque" Then
Label2.ForeColor = Color.Bisque
End If
If Label2.Text = "Beige" Then
Label2.ForeColor = Color.Beige
End If
If Label2.Text = "Bisque" Then
Label2.ForeColor = Color.Bisque
End If
If Label2.Text = "Black" Then
Label2.ForeColor = Color.Black
End If
If Label2.Text = "BlanchedAlmond" Then
Label2.ForeColor = Color.BlanchedAlmond
End If
If Label2.Text = "Blue" Then
Label2.ForeColor = Color.Blue
End Ifكيف عمل load لى ملف NoteBad - learning.net - 19-12-12
اخى الكريم يكفيك هذا الكود للاستغناء عن كل هذه الاكواد التى كتبتها
Label2.ForeColor = Color.FromName(Label1.Text)
وبالتوفيق ان شاء الله