10-09-20, 01:58 PM
(آخر تعديل لهذه المشاركة : 10-09-20, 02:04 PM {2} بواسطة عبد العزيز البسكري.)
صحيح أستاذنا .. و الله دخت
بارك الله فيك و لك و جزاك خير الجزاء أخي الكريم الغالي أنس محمود
عسى الله أن يزيدها بموازين حسناتك إن شاء الله
أوّلا ..
أرجو من أحد السادة المشرفين نقل الموضوع لقسم الديف إكسبرس لأنّي كتبته بالخطأ هنا .. آسف على مخالفة النظام
ثانيا ..
أخي الفاضل أنس .. أرجو منك السماح و المعذرة لأنّي سأتعبك معي قليلا ..
بقيت لي نقطة أخيرة و لأنها بنفس سياق الموضوع إرتأيت إدراجها هنا .. حتى أخلص من هذه الفزّورة بشكل نهائي ..
بعض السكاينات من نوع ما يسمى Vector Skin ببعض إصدارات الديف إكسبرس نجد أنّها تحتوي على ما يسمى Palette للألوان ..
و بعض السكاينات العادية لا تحتوي على ذلك ..
الأمر بالنسبة للسكاينات العادية تمام التمام و يشتغل بصورة رائعة و الحمد لله
ما أريده هو عند الخروج يتم حفظ كذلك اسم ال اللون الذي تم إختياره من ال Palette .. مثلا
و بالفورم لود لم أتمكن من عمل الشرط ..
إذا كانت سكاين عادية يتم جلب قيمة السكاين
و إذا كانت سكاين ب شريط الألوان يتم قيمة السكاين و كذلك اللون الذي إخترناه عند غلق المشروع
حاولت بهذه الكيفية لكن ينتج خطأ ..
كود :
Public Sub Enregistrer_Last_Theme_Palette_Gallery_In_Setting()
If IsVectorSkin(UserLookAndFeel.Default.SkinName) Then
My.MySettings.Default("Personal_Palette_Theme") = UserLookAndFeel.Default.ActiveSvgPaletteName
End If
My.MySettings.Default.Save()
End Sub
كود :
If IsVectorSkin(UserLookAndFeel.Default.SkinName) Then
If My.MySettings.Default("Personal_Palette_Theme") IsNot Nothing AndAlso My.MySettings.Default("Personal_Palette_Theme").ToString() <> String.Empty Then
UserLookAndFeel.Default.SetSkinStyle(My.MySettings.Default("Personal_Palette_Theme").ToString())
End If
End If
مواضيع مشابهة :
إحتراماتي
قناتنا على اليوتوب