構建自定義最終用戶皮膚選擇器

---

立即下載DevExpress WinForms

本節介紹如何用DevExpress皮膚項填充ComboBoxEdit控件。

 1.要填充組合框編輯器，迭代集合(它返回所有當前可用的DevExpress皮膚)，并為每個適用的皮膚創建一個新的組合框項。如下面的代碼所示：

C#：

//Uncomment the following line to add bonus and theme skins
//DevExpress.UserSkins.BonusSkins.Register();
foreach (SkinContainer cnt in SkinManager.Default.Skins) {
comboBoxEdit1.Properties.Items.Add(cnt.SkinName);
}

VB.NET：

'Uncomment the following line to add bonus and theme skins
'DevExpress.UserSkins.BonusSkins.Register()
For Each cnt As SkinContainer In SkinManager.Default.Skins
comboBoxEdit1.Properties.Items.Add(cnt.SkinName)
Next cnt

 您可以實現更復雜的邏輯來跳過或重命名特定的皮膚。例如，下面的代碼示例排除了“Caramel”皮膚和任何“Office 2007…”皮膚，并將“DevExpress Style”和“DevExpress Dark Style”皮膚分別重命名為“Default skin”和“Default Dark skin”。

C#：

DevExpress.UserSkins.BonusSkins.Register();
foreach (SkinContainer cnt in SkinM說anager.Default.Skins) {
if (cnt.SkinName.Contains("Office 2007") || cnt.SkinName == "Caramel")
continue;
if(!cnt.SkinName.Contains("DevExpress"))
comboBoxEdit1.Properties.Items.Add(cnt.SkinName);
else switch(cnt.SkinName) {
case "DevExpress Style":
comboBoxEdit1.Properties.Items.Add("Default Skin");
break;
case "DevExpress Dark Style":
comboBoxEdit1.Properties.Items.Add("Default Dark Skin");
break;
}
}

VB.NET：

DevExpress.UserSkins.BonusSkins.Register()
For Each cnt As SkinContainer In SkinManager.Default.Skins
If cnt.SkinName.Contains("Office 2007") OrElse cnt.SkinName = "Caramel" Then
Continue For
End If
If Not cnt.SkinName.Contains("DevExpress") Then
comboBoxEdit1.Properties.Items.Add(cnt.SkinName)
Else
Select Case cnt.SkinName
Case "DevExpress Style"
comboBoxEdit1.Properties.Items.Add("Default Skin")
Case "DevExpress Dark Style"
comboBoxEdit1.Properties.Items.Add("Default Dark Skin")
End Select
End If
Next cnt

2.處理事件，以便在用戶選擇組合框項時應用相應的皮膚。

C#：

private void ComboBoxEdit1_SelectedIndexChanged(object sender, EventArgs e) {
ComboBoxEdit comboBox = sender as ComboBoxEdit;
string skinName = comboBox.Text;
switch (skinName) {
case "Default Skin":
DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = "DevExpress Style";
break;
case "Default Dark Skin":
DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = "DevExpress Dark Style";
break;
default:
DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = skinName;
break;
}
}

VB.NET：

Private Sub ComboBoxEdit1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
Dim comboBox As ComboBoxEdit = TryCast(sender, ComboBoxEdit)
Dim skinName As String = comboBox.Text
Select Case skinName
Case "Default Skin"
DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = "DevExpress Style"
Case "Default Dark Skin"
DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = "DevExpress Dark Style"
Case Else
DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = skinName
End Select
End Sub

3.運行應用程序來查看結果。

SkinHelper方法

 DevExpress.XtraBars.Helper.SkinHelper類提供了多個Init…方法，這些方法允許您使用皮膚/調色板項填充自定義控件。

 在下面的圖中，兩個功能區按鈕是自定義皮膚和調色板選擇器，兩個按鈕的BarButtonItemButtonStyle屬性都等于DropDown。每個按鈕都有一個關聯的PopupControlContainer分配給BarButtonItemDropDownControl屬性，彈出控件容器承載的庫控件的Dock屬性設置為“填充”。

 下面的代碼演示了如何使用InitSkinGallery和InitSkinPaletteGallery方法填充這些選擇器。

C#：

//Container and gallery settings
popupControlContainer1.AutoSize =
popupControlContainer2.AutoSize = true;
popupControlContainer1.AutoSizeMode =
popupControlContainer2.AutoSizeMode = AutoSizeMode.GrowAndShrink;
galleryControl1.Gallery.AutoSize =
galleryControl2.Gallery.AutoSize = GallerySizeMode.Both;

//Populate the skin gallery
galleryControl2.Gallery.RowCount = 6;
SkinHelper.InitSkinGallery(galleryControl2);

#region Optional Settings
//Uncomment these lines to modify the gallery
//---Enlarge item images
/*foreach (GalleryItem item in galleryControl2.Gallery.GetAllItems())
item.ImageOptions.Image = item.ImageOptions.HoverImage;
galleryControl2.Gallery.ImageSize = new Size(48, 48);
galleryControl2.Gallery.AllowHoverImages = false;*/
//---Hide item and group captions
/*galleryControl2.Gallery.ShowItemText = false;
galleryControl2.Gallery.ShowGroupCaption = false;*/
//---Hide group selector
/*galleryControl2.Gallery.AllowFilter = false;*/
//---Remove "Custom Skins" and "Theme Skins" groups
/*galleryControl2.Gallery.Groups.RemoveAt(3);
galleryControl2.Gallery.Groups.RemoveAt(2);*/
#endregion

//Populate the palette gallery
galleryControl1.Gallery.ColumnCount = 6;
SkinHelper.InitSkinPaletteGallery(galleryControl1);

VB.NET：

'Container and gallery settings
popupControlContainer2.AutoSize = True
popupControlContainer1.AutoSize = popupControlContainer2.AutoSize
popupControlContainer2.AutoSizeMode = AutoSizeMode.GrowAndShrink
popupControlContainer1.AutoSizeMode = popupControlContainer2.AutoSizeMode
galleryControl2.Gallery.AutoSize = GallerySizeMode.Both
galleryControl1.Gallery.AutoSize = galleryControl2.Gallery.AutoSize

'Populate the skin gallery
galleryControl2.Gallery.RowCount = 6
SkinHelper.InitSkinGallery(galleryControl2)

'#Region "Optional Settings"
'Uncomment these lines to modify the gallery
'---Enlarge item images
'foreach (GalleryItem item in galleryControl2.Gallery.GetAllItems())
' item.ImageOptions.Image = item.ImageOptions.HoverImage;
'galleryControl2.Gallery.ImageSize = new Size(48, 48);
'galleryControl2.Gallery.AllowHoverImages = false;
'---Hide item and group captions
'galleryControl2.Gallery.ShowItemText = false;
'galleryControl2.Gallery.ShowGroupCaption = false;
'---Hide group selector
'galleryControl2.Gallery.AllowFilter = false;
'---Remove "Custom Skins" and "Theme Skins" groups
'galleryControl2.Gallery.Groups.RemoveAt(3);
'galleryControl2.Gallery.Groups.RemoveAt(2);
'#End Region

'Populate the palette gallery
galleryControl1.Gallery.ColumnCount = 6
SkinHelper.InitSkinPaletteGallery(galleryControl1)