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

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

أكواد جد بسيطة و مختصرة و بدون تعقيدات .. و ضبطت تمام التمام و لله الحمد و الشكر .. و يتم ضمان دائما قيمة مبدئية مسجلة بالسيتينغ ..

بارك الله فيك و لك و أنعم عليك بما تحبه بطاعة الله و مرضاته أخي الكريم

شوف لو سمحت أخي أنس ..

أنا أقوم باختيار السكاين من خلال الكومبوبوكس ..

و الكود بهذا الشكل شغّال و الحمد لله .. لكن من باب المراجعة لو تكرّمت تلقي نظرة عليه

كود :

Imports DevExpress.XtraEditors
Imports DevExpress.Skins
Public Class Form1
   Sub New()
       InitializeComponent()
       DevExpress.Skins.SkinManager.EnableFormSkins()
       DevExpress.UserSkins.BonusSkins.Register()
       'ComboBox Skins
       For Each cn As SkinContainer In SkinManager.Default.Skins
           ComboBoxEdit1.Properties.Items.Add(cn.SkinName)
       Next
   End Sub
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = My.Settings.SkinName
   End Sub
   Private Sub ComboBoxEdit1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBoxEdit1.SelectedIndexChanged
       DevExpress.LookAndFeel.UserLookAndFeel.Default.SetSkinStyle(ComboBoxEdit1.Text)
   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

           My.Settings.SkinName = Me.ComboBoxEdit1.Text
           My.Settings.Save()

           End()
           
       End If
   End Sub
End Class

تحياتي واحتراماتي