درر العراق

spyman · 27/October/2011

مرحبا :

شرح حصري لدرر العراق .. يرجى عند النقل ذكر المصدر

بيئة العمل ... الفيجول دوت نت 2005 - 2008 - 2010

تغير لون الخلفية هي احد الامور الي تضيفها الى برنامجك لجعل برنامجك بشكل اجمل

مثال للبرنامج الي رح نعمله ....

[flash=http://www.dorar-aliraq.net/ext/uploader/fileup/1319681996.swf]WIDTH=500 HEIGHT =300 [/flash]

الشرح :

رح اتطرق الى طريقتين لتغير لون الخلــــــــــــفية .....

أ - تغير اللون من خلال زر امـــــــــــــر (Button )

ب - عن طريق Track Bar وهي الافضل والاجمل

أ - طــــــــــــريقـــــــــ ــة الــــــــــــــــــعــــ ــــــمل :

1- ادرج ثلاث track bar وثلاث text box وزر امر واحد

ملاحظة : وظيفة التيكست بوكس هنا اظهار قيم اللون RGB عند تحريك التراك بار ..

واذا تريد تستغني عن text box بالـ Label مع مراعاة تغير الكــــــــــــــــــــــ ـــود

* غير الخاصية Maximum الى 255 والخاصية Minimum الى صفر ( الخاصة بجميع التراكات )

الاكواد :

* في حدث Scroll الخاص بالتراك بار الاول اكتب الكود ادناه :

كود PHP:


 TextBox1.Text = TrackBar1.Value

* في حدث Scroll الخاص بالتراك بار الثاني اكتب الكود ادناه :

كود PHP:


 TextBox2.Text = TrackBar2.Value

* في حدث Scroll الخاص بالتراك بار الثالث اكتب الكود ادناه :

كود PHP:


TextBox3.Text = TrackBar3.Value

* في حدث Button Click اكتب الكود ادناه :

كود PHP:


Me.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)

شغل البرنامج وغير القيم من التراك بار واضغط على الكوماند لتطبيق اللون ..

ب - الطريقة الثاني وهي الافضل .. لا تحتاج الى زر امر لتطبيق اللون وانما اللون يعمل تلقائياً عند تحريك التراك بار

طريقة العمل :

اضف ثلاث تراك بار وثلاث تيكست بوكس ... في هذه الطريقة نحتاج الى حدث جديد وهو الحدث TrackBar - MouseUp

1- اضف في حدث MouseUp للتراك الاول الكود ادناه :

كود PHP:


Me.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)

2 - اضف في حدث MouseUp للتراك بار الثاني الكود ادناه :

كود PHP:


  Me.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)

3 - اضف في حدث MouseUp للتراك بار الثالث الكود ادناه :

كود PHP:


  Me.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)

4 - و في حدث السكرول الخاص بالتراكات نفس اكواد الطريقة الاولى

الان شغل البرنامج ..

من خلال هذه الطريقة يمكنك ايضاَ تغير لون rich text box مثلاً او لون الخط الموجود بداخله وهكذا

وهذا كود المشروع كاملاً :

كود:

Public Class Form1

    ' coded by spyman 

    Private Sub TrackBar1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TrackBar1.MouseUp
        Me.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)
    End Sub
    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        TextBox1.Text = TrackBar1.Value
    End Sub
    Private Sub TrackBar2_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TrackBar2.MouseUp
        Me.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)
    End Sub
    Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
        TextBox2.Text = TrackBar2.Value
    End Sub
    Private Sub TrackBar3_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TrackBar3.MouseUp
        Me.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)
    End Sub
    Private Sub TrackBar3_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar3.Scroll
        TextBox3.Text = TrackBar3.Value
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.BackColor = Color.FromArgb(TrackBar1.Value, TrackBar2.Value, TrackBar3.Value)
    End Sub
End Class

لتحميل مشروع جاهز من المرفقات ...