手把手教你用DevExpress WinForm添加和自定义工具栏皮肤选择器

2023-12-30 16:29| 来源: 网络整理| 查看: 265

DevExpress WinForms拥有180+组件和UI库，能为Windows Forms平台创建具有影响力的业务解决方案。DevExpress WinForms能完美构建流畅、美观且易于使用的应用程序，无论是Office风格的界面，还是分析处理大批量的业务数据，它都能轻松胜任！

您可以向工具栏(BarManager)和Ribbon Control添加skin selectors（皮肤选择器），来允许用户在运行时选择皮肤。

获取DevExpress 最新版下载

向工具栏添加Skin Selector（皮肤选择器）

在设计时，单击工具栏中的[Add]按钮，并从skin Item子菜单中选择一个皮肤选择器。

以下皮肤选择器可用：

Skin Menu (SkinBarSubItem) — 以菜单的形式显示皮肤名称。

Skin List (SkinDropDownButtonItem) — 显示皮肤名称作为一个可滚动的列表，带有一个内置的搜索框，来根据名称定位皮肤。

Skin Palette List (SkinPaletteDropDownButtonItem) — 显示当前选定矢量皮肤的调色板。

您可以在代码中修改皮肤选择器，为此使用皮肤选择器的BarCustomContainerItem.ItemLinks集合。

当您创建皮肤选择器(SkinBarSubItem, SkinDropDownButtonItem, skinpaletdropdownbuttonitem, SkinRibbonGalleryBarItem和SkinPaletteRibbonGalleryBarItem)并将它们添加到代码中的工具栏或Ribbon控件时，确保调用了皮肤选择器的Initialize方法。

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()

隐藏皮肤和皮肤组

你可以在皮肤选择器中隐藏单独的项目，如下所示：

1. 创建要排除的皮肤名称的字符串数组，您可以使用全名(例如，“Office 2016 Colorful”)或部分名称(例如，“2007”)。

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. 创建一个自定义方法(HideSkins)，遍历皮肤选择器的项，并删除与数组中值匹配的皮肤。

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事件处理程序调用HideSkins方法。

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

更改标题和图标

遍历皮肤选择器的ItemLinks集合以更改项标题或符号。

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

下图显示了结果：

使用定位器更改皮肤标题

还可以使用Localizer对象重命名皮肤项。

【本文地址】

公司简介

联系我们