[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

تمام أخي الغالي و أستاذي القدير أنس محمود

بارك الله فيك و لك و في صحتك و أوقاتك و جميع أعمالك .. أنت و كل الأسرة الكريمة كبيرها و صغيرها و جزاك خير الجزاء إن شاء الله

بال 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

تحياتي للجميع