商信互联
本主题演示了当IModelOptionsWin.FormStyle属性设置为Ribbon(启用功能区界面时)时,如何访问用于显示WinForms应用程序菜单的功能区控件。请参阅“如何:自定义动作控件”主题以了解如何自定义条形项目。
DevExpress代码示例数据库(http://www.devexpress.com/example=E4027)中提供了完整的示例项目。
请按照以下步骤访问RibbonControl对象并自定义其设置:
using System;
using DevExpress.ExpressApp;
using DevExpress.XtraBars.Ribbon;
using DevExpress.Utils;
// ...
public class RibbonCustomizationWindowController : WindowController {
protected override void OnActivated() {
base.OnActivated();
Window.TemplateChanged = Window_TemplateChanged;
}
private void Window_TemplateChanged(object sender, EventArgs e) {
RibbonForm ribbonForm = Frame.Template as RibbonForm;
if (ribbonForm != null && ribbonForm.Ribbon != null) {
RibbonControl ribbon = ribbonForm.Ribbon;
ribbon.PageHeaderMinWidth = 100;
ribbon.ShowExpandCollapseButton = DefaultBoolean.False;
}
}
protected override void OnDeactivated() {
Window.TemplateChanged -= Window_TemplateChanged;
base.OnDeactivated();
}
}
Imports System
Imports DevExpress.ExpressApp
Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.Utils
' ...
Public Class RibbonCustomizationWindowController
Inherits WindowController
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
AddHandler Window.TemplateChanged, AddressOf Window_TemplateChanged
End Sub
Private Sub Window_TemplateChanged(ByVal sender As Object, ByVal e As EventArgs)
Dim ribbonForm As RibbonForm = TryCast(Frame.Template, RibbonForm)
If ribbonForm IsNot Nothing AndAlso ribbonForm.Ribbon IsNot Nothing Then
Dim ribbon As RibbonControl = ribbonForm.Ribbon
ribbon.PageHeaderMinWidth = 100
ribbon.ShowExpandCollapseButton = DefaultBoolean.False
End If
End Sub
Protected Overrides Sub OnDeactivated()
RemoveHandler Window.TemplateChanged, AddressOf Window_TemplateChanged
MyBase.OnDeactivated()
End Sub
End Class
运行该应用程序,以确保应用功能区控件自定义。