1. 在項目中添加引用 DevExpress.BonusSkins和 DevExpress.OfficeSkins (這兩個引用中有大量的皮膚,默認的只有幾個)

2.在啟動Form的 Designer文件中添加main函數

Shared Sub main()
'注冊皮膚
DevExpress.UserSkins.OfficeSkins.Register()
DevExpress.UserSkins.BonusSkins.Register()
DevExpress.Skins.SkinManager.EnableFormSkins()

Application.Run(New XtraForm1())'啟動窗口
End Sub

3.將項目的啟動項修改為sub main(), 若無此項,將下面的"啟動應用程序框架"的勾去掉

4.在啟動窗口添加控件DefaultLookAndFeel,

5.啟動時在load事件中 添加

Me.DefaultLookAndFeel1.LookAndFeel.SkinName = "Office 2007 Blue" '皮膚名,可用其他

至此,實現換膚功能. 如果要實現啟動后更換皮膚, 可以把所有可用的皮膚名放到ComboBoxEdit1中即可.

附:

默認的皮膚名:Caramel,Money Twins,Lilian,The Asphalt World,iMaginary,Black,Blue

BonusSkins的皮膚名:Coffee,Liquid Sky,London Liquid Sky,Glass Oceans,Stardust,Xmas 2008 Blue,Valentine,McSkin,Summer 2008,Pumpkin,Dark Side,Springtime,Darkroom,Foggy,High Contrast,Seven,Seven Classic,Sharp,Sharp Plus,DevExpress Style

Office的皮膚名:Office 2007 Blue,Office 2007 Black,Office 2007 Silver,Office 2007 Green,Office 2007 Pink,Office 2010 Blue,Office 2010 Black,Office 2010 Silver

得到皮膚名的代碼

<pre class="vb" name="code">Dim str As String = ""
For Each skinName As DevExpress.Skins.SkinContainer In DevExpress.Skins.SkinManager.Default.Skins
str = str & skinName.SkinName & ","
Next</pre>
<pre></pre>
<pre></pre>