ما فعلته صحيح .
ضع صورة عن الخطئ و الكود الذي توقف عنده .
الغ خاصية transparent background colors للأزرار و استبدلها بـ
BtnPraview.FlatStyle = 1
صورة عن الخطئ و الكود الذي توقف عنده
الكود صحيح لكن التكست لا تدعم الشفافية .
ماهوا التعديل الرجاء التوضيح بالكود
(26-10-18, 02:58 AM)sads كتب : [ -> ]ماهوا التعديل الرجاء التوضيح بالكود
لم أفهم ما تعنيه .
بالنسبة للتكست بوكس فهي لا تدعم الشفافية .
هذه أداة تكست تدعم الشفافية اطلع عليها .
تكست تدعم الشفافية
كيف ألغي خاصية الشفافية لكي يعمل الكود بشكل سليم أنا لاأحتاج إلى شفافية أريد تغير لون الخلفية فقط
عند حدث اللود عطل تحميل الحدث و ضع بدلا عنه الكود التالي :
كود :
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
قم باضافة 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()
أخي ahmadpal طبقت كما قلت لي ولاكن ظهر لي الخطأ التالي فما الحل
Error 1 'ColorSetting' is not a member of 'WindowsApplication19.My.MySettings'.
أضف ColorSetting الى Settings