تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[ تمّ الحل ] : جلب قيمة من الريجيستري
#11
صحيح أستاذنا .. و الله دخت
بارك الله فيك و لك و جزاك خير الجزاء أخي الكريم الغالي أنس محمود
عسى الله أن يزيدها بموازين حسناتك إن شاء الله
أوّلا ..
أرجو من أحد السادة المشرفين نقل الموضوع لقسم الديف إكسبرس لأنّي كتبته بالخطأ هنا .. آسف على مخالفة النظام
ثانيا ..
أخي الفاضل أنس .. أرجو منك السماح و المعذرة لأنّي سأتعبك معي قليلا ..
بقيت لي نقطة أخيرة و لأنها بنفس سياق الموضوع إرتأيت إدراجها هنا .. حتى أخلص من هذه الفزّورة بشكل نهائي ..
 بعض السكاينات من نوع ما يسمى 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
مواضيع مشابهة :

إحتراماتي
الرد
تم الشكر بواسطة: Anas Mahmoud , asemshahen5 , WaeLx
#12
السّلام عليكم و رحمة الله و بركاته
تمام أخي الغالي و أستاذي القدير أنس محمود
بارك الله فيك و لك و في صحتك و أوقاتك و جميع أعمالك .. أنت و كل الأسرة الكريمة كبيرها و صغيرها و جزاك خير الجزاء إن شاء الله
بال MDIParent1 .. يتم إضافة
RibbonControl1
SkinRibbonGalleryBarItem1
BarButtonItem1
SimpleButton1
نضيف بالسيتينغ هذه القيم :
SkinDevExpressName
PaletteDevExpressName
و أخيرا هذا الكود :
كود :
Imports DevExpress.Skins
Imports DevExpress.XtraEditors
Imports DevExpress.LookAndFeel
Public Class MDIParent1
   Public Sub New()
       InitializeComponent()
       DevExpress.Skins.SkinManager.EnableFormSkins()
       DevExpress.UserSkins.BonusSkins.Register()
       AddHandler Me.FormClosing, AddressOf MDIParent1_FormClosing
   End Sub
   Private Sub barButtonItem1_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
       ShowSwatchPicker(Me)
   End Sub
Private Function IsVectorSkin(ByVal skinName As String) As Boolean
       Return SkinCollectionHelper.GetSkinCategory(skinName) = SkinCategory.SVG
   End Function
   Private Sub Get_Palette_Gallery_From_Setting()
       If My.MySettings.Default("SkinDevExpressName") IsNot Nothing AndAlso My.MySettings.Default("SkinDevExpressName").ToString() <> String.Empty Then
           If IsVectorSkin(My.MySettings.Default("SkinDevExpressName").ToString()) AndAlso My.MySettings.Default("PaletteDevExpressName") IsNot Nothing AndAlso My.MySettings.Default("PaletteDevExpressName").ToString() <> String.Empty Then
               UserLookAndFeel.Default.SetSkinStyle(My.MySettings.Default("SkinDevExpressName").ToString(), My.MySettings.Default("PaletteDevExpressName").ToString())
           Else
               SetSkin(My.MySettings.Default("SkinDevExpressName").ToString())
           End If
       ElseIf My.MySettings.Default("PaletteDevExpressName") IsNot Nothing AndAlso My.MySettings.Default("PaletteDevExpressName").ToString() <> String.Empty Then
           UserLookAndFeel.Default.SetSkinStyle(SkinStyle.Bezier, My.MySettings.Default("PaletteDevExpressName").ToString())
       End If
   End Sub
   Private Sub Save_Palette_Gallery_In_Setting()
       My.MySettings.Default("SkinDevExpressName") = UserLookAndFeel.Default.SkinName
       If IsVectorSkin(UserLookAndFeel.Default.SkinName) Then
           My.MySettings.Default("PaletteDevExpressName") = UserLookAndFeel.Default.ActiveSvgPaletteName
       End If
       My.MySettings.Default.Save()
   End Sub
   Private Sub SetSkin(ByVal skinName As String)
       UserLookAndFeel.Default.SetSkinStyle(skinName)
   End Sub
   Private Sub ShowSwatchPicker(ByVal owner As Form)
       Using dialog = New DevExpress.Customization.SvgSkinPaletteSelector(owner)
           dialog.ShowDialog()
           Call Save_Palette_Gallery_In_Setting()
       End Using
   End Sub
   Protected Overrides Sub OnShown(ByVal e As EventArgs)
       MyBase.OnShown(e)
       Call Get_Palette_Gallery_From_Setting()
   End Sub
   Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
       Dim Frm As New DialogResult
       Frm = XtraMessageBox.Show("هل تريد فعلا الخروج من المنظومة ؟", "تنبيه", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
       If Frm = DialogResult.Yes Then

           Call Save_Palette_Gallery_In_Setting()

           Me.Dispose()
           System.Windows.Forms.Application.Exit()
           End
       End If
   End Sub
   Private Sub MDIParent1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
       e.Cancel = True
   End Sub
End Class

تحياتي للجميع
الرد
تم الشكر بواسطة: asemshahen5 , WaeLx , Anas Mahmoud


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كود يبحث في ملفات وورد docx ولا يبحث في doc فما الحل؟ السندبااد 1 93 20-11-20, 10:45 PM
آخر رد: السندبااد
  [VB.NET] اخذ قيمة الProgressBar من صفحة ويب aldery 1 112 25-10-20, 07:44 PM
آخر رد: bidaya
  مشكلة في قيمة ابتدائية في داتاجريد فيو cordava 2 205 24-10-20, 09:33 PM
آخر رد: 8409953
  [ تمّ الحل ] : عدم القدرة على عمل أتاش لقاعدة البيانات عبد العزيز البسكري 23 1,214 24-10-20, 12:48 AM
آخر رد: عبد العزيز البسكري
  عملية جمع قيمة التكست ZaerAllail 10 526 15-09-20, 09:24 PM
آخر رد: ZaerAllail
  [سؤال] تنظيم ارفاق المستندات في قاعدة البيانات Sql واحضار الملفات حسب قيمة البحث محمد العامر 10 754 07-09-20, 12:28 AM
آخر رد: محمد العامر
  [سؤال] [تم الحل]استعراض بيانات في Datagridview واضافة جميع البيانات لجدول محدد محمد العامر 6 845 22-08-20, 08:15 AM
آخر رد: محمد العامر
  [كود] كود لإظهار قيمة في TextBox حسب ما يقابلها من قيمة في combobox momiana1 8 17,313 18-08-20, 12:51 PM
آخر رد: mohammed1994
  [ تمّ الحل ] : جعل الآلة الحاسبة بمقدّمة الشاشة عبد العزيز البسكري 12 812 16-08-20, 03:26 AM
آخر رد: مصمم هاوي
  التعديل على عمود في الداتاقريد فيو دفعة واحد بناء على قيمة معينة جيولوجي مبتدئ 3 409 02-08-20, 02:10 AM
آخر رد: ابراهيم ايبو

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم