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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=27107)

الصفحات: 1 2

RE: كود يقوم بتغير اللون للحقول - asemshahen5 - 26-10-18

ما فعلته صحيح .
ضع صورة عن الخطئ و الكود الذي توقف عنده .
الغ خاصية transparent background colors للأزرار و استبدلها بـ
 
BtnPraview.FlatStyle = 1

RE: كود يقوم بتغير اللون للحقول - sads - 26-10-18

صورة عن الخطئ و الكود الذي توقف عنده

RE: كود يقوم بتغير اللون للحقول - asemshahen5 - 26-10-18

الكود صحيح لكن التكست لا تدعم الشفافية .

RE: كود يقوم بتغير اللون للحقول - sads - 26-10-18

ماهوا التعديل الرجاء التوضيح بالكود

RE: كود يقوم بتغير اللون للحقول - asemshahen5 - 26-10-18

(26-10-18, 02:58 AM)sads كتب : ماهوا التعديل الرجاء التوضيح بالكود

لم أفهم ما تعنيه .
بالنسبة للتكست بوكس فهي لا تدعم الشفافية .
هذه أداة تكست تدعم الشفافية اطلع عليها .
تكست تدعم الشفافية

RE: كود يقوم بتغير اللون للحقول - sads - 26-10-18

كيف ألغي خاصية الشفافية لكي يعمل الكود بشكل  سليم أنا لاأحتاج إلى شفافية أريد تغير لون الخلفية فقط

RE: كود يقوم بتغير اللون للحقول - asemshahen5 - 26-10-18

عند حدث اللود عطل تحميل الحدث و ضع بدلا عنه الكود التالي :

كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       'LoadSavedThems(Me)'كود الاستدعاء
       My.Settings.TextBoxBackColor = Color.Blue.Name
       My.Settings.Save()
       MsgBox("تمت عملية الحفظ بنجاح", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.MsgBoxRight, "حفظ سمة")
End Sub


عند ظهور الرسالة ضع موافق ثم أغلق البرنامج و ألغ الكود و أعد الكود السابق الى حدث
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       LoadSavedThems(Me)'كود الاستدعاء
End Sub


RE: كود يقوم بتغير اللون للحقول - ahmadpal - 27-10-18

قم باضافة color ColorDialog وليكن اسمة ColorDialog1
ثم قم بانشاء زر وضع هذا الكود في الحدث click
If ColorDialog1.ShowDialog = DialogResult.OK Then
          

            For Each ctrl As Control In Me.Controls
                If TypeOf ctrl Is Button Then
                    ctrl.BackColor = Me.ColorDialog1.Color

                End If
            Next
      


        End If


قم بتغيير button على حسب الاداة التي تريد ان يتغير لونها اما بالنسبه للحفظ فيجب عليك الذهاب الى setting وعمل الاتي 
name : color    type : system.drawing color    scope : user     value : red
ومن ثم اضافة زر للحفظ ونضع الكود التالي عند الحدث click
  My.Settings.ColorSetting = Me.ColorDialog1.Color

        My.Settings.Save()

RE: كود يقوم بتغير اللون للحقول - sads - 27-10-18

أخي ahmadpal طبقت كما قلت لي ولاكن ظهر لي الخطأ التالي فما الحل


Error 1 'ColorSetting' is not a member of 'WindowsApplication19.My.MySettings'.  


RE: كود يقوم بتغير اللون للحقول - asemshahen5 - 27-10-18

أضف ColorSetting الى Settings