Private Sub Principal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DevExpress.UserSkins.BonusSkins.register()
SkinHelper.InitSkinPopupMenu(SeleccionaSkin)
End Sub
so far, apply the skin in a normal way, I do not know if using this method you can get the name of the selected skin, this in order to save the last one and apply it when starting the program again.
SelectSkin is a SkinBarSubItem
You can get the current skin with:
Dim skinActual As String = UserLookAndFeel.Default.SkinName
Hello, how I use the Component SkinRibbonGalleryBarItem that filled it with a StyleManager and DefaultLookAndFeel
and in the Gallery Event: GalleryItemClick in its attribute e.Item.Tag comes the exact name of the Skin that is selected, I save it in a variable of application or do not know what they are called, like this:
Dim style As String
style = e.Item.Tag
style = Replace(style, "(", "")
style = Replace(style, ")", "")
My.Settings.StyleForm = style
My.Settings.Save()
and to apply it in Load like you, I did this:
Dim style As String
style = My.Settings.StyleForm
UserLookAndFeel.Default.SetSkinStyle(style)
DefaultLookAndFeel1.LookAndFeel.ActiveLookAndFeel.SetSkinStyle(style)
I hope you help Greetings.