DevExpress WinForm擁有180+組件和UI庫(kù)，能為Windows Forms平臺(tái)創(chuàng)建具有影響力的業(yè)務(wù)解決方案。DevExpress WinForms能完美構(gòu)建流暢、美觀且易于使用的應(yīng)用程序，無(wú)論是Office風(fēng)格的界面，還是分析處理大批量的業(yè)務(wù)數(shù)據(jù)，它都能輕松勝任！

您可以向工具欄(BarManager)和Ribbon Control添加skin selectors（皮膚選擇器），來(lái)允許用戶在運(yùn)行時(shí)選擇皮膚。

獲取DevExpress 最新版下載

向工具欄添加Skin Selector（皮膚選擇器）

在設(shè)計(jì)時(shí)，單擊工具欄中的[Add]按鈕，并從skin Item子菜單中選擇一個(gè)皮膚選擇器。

以下皮膚選擇器可用：

• Skin Menu (SkinBarSubItem) — 以菜單的形式顯示皮膚名稱。

• Skin List (SkinDropDownButtonItem) — 顯示皮膚名稱作為一個(gè)可滾動(dòng)的列表，帶有一個(gè)內(nèi)置的搜索框，來(lái)根據(jù)名稱定位皮膚。

• Skin Palette List (SkinPaletteDropDownButtonItem) — 顯示當(dāng)前選定矢量皮膚的調(diào)色板。

您可以在代碼中修改皮膚選擇器，為此使用皮膚選擇器的集合。

當(dāng)您創(chuàng)建皮膚選擇器(SkinBarSubItem, SkinDropDownButtonItem, skinpaletdropdownbuttonitem, SkinRibbonGalleryBarItem和SkinPaletteRibbonGalleryBarItem)并將它們添加到代碼中的工具欄或Ribbon控件時(shí)，確保調(diào)用了皮膚選擇器的Initialize方法。

C#

SkinBarSubItem skinBarSubItem1 = new SkinBarSubItem();
barManager1.Items.Add(skinBarSubItem1);
bar1.ItemLinks.Add(skinBarSubItem1);
skinBarSubItem1.Initialize();

VB.NET

Dim skinBarSubItem1 As New SkinBarSubItem()
BarManager1.Items.Add(skinBarSubItem1)
Bar1.ItemLinks.Add(skinBarSubItem1)
skinBarSubItem1.Initialize()

隱藏皮膚和皮膚組

你可以在皮膚選擇器中隱藏單獨(dú)的項(xiàng)目，如下所示：

1. 創(chuàng)建要排除的皮膚名稱的字符串?dāng)?shù)組，您可以使用全名(例如，“Office 2016 Colorful”)或部分名稱(例如，“2007”)。

C#

string[] skinsToHide = { "Seven Classic", "DevExpress Style", "Dark", "2010", "2007", "Sharp" };

VB.NET

Dim skinsToHide() As String = { "Seven Classic", "DevExpress Style", "Dark", "2010", "2007", "Sharp" }

 2. 創(chuàng)建一個(gè)自定義方法(HideSkins)，遍歷皮膚選擇器的項(xiàng)，并刪除與數(shù)組中值匹配的皮膚。

C#

private void HideSkins(string[] skinsToHide) {
for(var i = 0; i < skinBarSubItem1.ItemLinks.Count; i++) {
//Check regular button items
if(skinBarSubItem1.ItemLinks[i] is BarButtonItemLink) {
var item = skinBarSubItem1.ItemLinks[i];
foreach(var skin in skinsToHide) {
if(item.Caption.Contains(skin)) {
item.Visible = false;
}
}
}
//Check buttons nested in the "Bonus Skins" sub-menu
if(skinBarSubItem1.ItemLinks[i] is BarSubItemLink && skinBarSubItem1.ItemLinks[i].Caption == "Bonus Skins") {
BarSubItemLink group = (BarSubItemLink)skinBarSubItem1.ItemLinks[i];
for(var j = 0; j < group.Item.ItemLinks.Count; j++) {
var item = group.Item.ItemLinks[j];
foreach(var skin in skinsToHide) {
if(item.Caption.Contains(skin)) {
item.Visible = false;
}
}
}
}
//Hide theme skins
if(skinBarSubItem1.ItemLinks[i] is BarSubItemLink && skinBarSubItem1.ItemLinks[i].Caption == "Theme Skins") {
skinBarSubItem1.ItemLinks[i].Visible = false;
}
}
}

VB.NET

Private Sub HideSkins(ByVal skinsToHide() As String)
For i = 0 To skinBarSubItem1.ItemLinks.Count - 1
'Check Items
If TypeOf skinBarSubItem1.ItemLinks(i) Is BarButtonItemLink Then
Dim item = skinBarSubItem1.ItemLinks(i)
For Each skin In skinsToHide
If item.Caption.Contains(skin) Then
item.Visible = False
End If
Next skin
End If
'Check bonus skins
If TypeOf skinBarSubItem1.ItemLinks(i) Is BarSubItemLink AndAlso skinBarSubItem1.ItemLinks(i).Caption <> "Theme Skins" Then
Dim group As BarSubItemLink = CType(skinBarSubItem1.ItemLinks(i), BarSubItemLink)
For j = 0 To group.Item.ItemLinks.Count - 1
Dim item = group.Item.ItemLinks(j)
For Each skin In skinsToHide
If item.Caption.Contains(skin) Then
item.Visible = False
End If
Next skin
Next j
End If
'Hide theme skins
If TypeOf skinBarSubItem1.ItemLinks(i) Is BarSubItemLink AndAlso skinBarSubItem1.ItemLinks(i).Caption = "Theme Skins" Then
skinBarSubItem1.ItemLinks(i).Visible = False
End If
Next i
End Sub

3. 從Load事件處理程序調(diào)用HideSkins方法。

C#

void ucBar_Load(object sender, EventArgs e) {
HideSkins(skinsToHide);
}

VB.NET

Private Sub ucBar_Load(ByVal sender As Object, ByVal e As EventArgs)
HideSkins(skinsToHide)
End Sub

更改標(biāo)題和圖標(biāo)

遍歷皮膚選擇器的ItemLinks集合以更改項(xiàng)標(biāo)題或符號(hào)。

C#

void ucBar_Load(object sender, EventArgs e) {
RenameSkins();
}
private void RenameSkins() {
for(var i = 0; i < skinBarSubItem1.ItemLinks.Count; i++) {
if(skinBarSubItem1.ItemLinks[i].Caption == "DevExpress Style") {
BarButtonItem parentItem = (BarButtonItem)skinBarSubItem1.ItemLinks[i].Item;
parentItem.Caption = "Default Skin";
parentItem.ImageUri.Uri = "Apply";
}
}
}

VB.NET

Private Sub ucBar_Load(ByVal sender As Object, ByVal e As EventArgs)
RenameSkins()
End Sub
Private Sub RenameSkins()
For i = 0 To skinBarSubItem1.ItemLinks.Count - 1
If skinBarSubItem1.ItemLinks(i).Caption = "DevExpress Style" Then
Dim parentItem As BarButtonItem = CType(skinBarSubItem1.ItemLinks(i).Item, BarButtonItem)
parentItem.Caption = "Default Skin"
parentItem.ImageUri.Uri = "Apply"
End If
Next i
End Sub

下圖顯示了結(jié)果：

使用定位器更改皮膚標(biāo)題

還可以使用Localizer對(duì)象重命名皮膚項(xiàng)。

DevExpress技術(shù)交流群6：600715373      歡迎一起進(jìn)群討論