تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف نستعيد قيمة من دالة ضمن مسار مستقل justforit 2 393 21-11-23, 10:51 AM
آخر رد: justforit
  كيف اجعل قيمة dateTimePicker2 تساوي dateTimePicker1 Adel27213 2 280 09-11-23, 09:07 PM
آخر رد: Adel27213
  كيفية جمع قيمة على تاريخ معين واستنتاج تاريخ أخر Ahmed.vb 1 317 02-11-23, 03:52 AM
آخر رد: Taha Okla
  ارجاع قيمة Function سعد منصور 1 268 01-11-23, 02:10 AM
آخر رد: Taha Okla
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 909 11-10-23, 10:35 PM
آخر رد: aljzazy
  البرنامج لدي يعمل على ويندوز 11 والان لا يعمل على ويندوز 10 ماهو الحل moh61 1 280 01-09-23, 04:38 AM
آخر رد: اسامه الهرماوي
  كيف الحصول على قيمة الخلية بعد تحديد الصف في datagridview؟ hazim1 2 558 06-08-23, 01:12 AM
آخر رد: hazim1
  ممكن الحل masport tv 0 295 07-04-23, 11:36 AM
آخر رد: masport tv
  تعبئة كومبو بوكس بالاعتماد على قيمة كومبو بوكس اخر ahmaddrawshih 4 623 15-01-23, 09:49 PM
آخر رد: مصمم هاوي
  مشكلة في نقل قيمة الخلية الفارغة من data grid view الى ملف الاكسل Mohammed Nafa 1 350 12-01-23, 08:32 PM
آخر رد: salamandal

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


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