'宣言 Public Class XamOutlookBar Inherits System.Windows.Controls.Control
public class XamOutlookBar : System.Windows.Controls.Control
void CreateXOB() { //create new instance of XamOutlookBar class Infragistics.Windows.OutlookBar.XamOutlookBar xamOutlook = new Infragistics.Windows.OutlookBar.XamOutlookBar(); xamOutlook.SelectedAreaMinHeight = 79; xamOutlook.NavigationAreaMaxGroups = 0; xamOutlook.MinimizedWidth = 60; xamOutlook.Theme = "Office2k7Silver"; xamOutlook.ToolTip = "XamOutlookBar tooltip"; xamOutlook.AllowMinimized = true; xamOutlook.ShowToolTips = true; xamOutlook.ShowGroupHeaderAsToolTip = true; xamOutlook.IsMinimized = true; xamOutlook.MinimizedStateThreshold = 20; // set minimized threshold to 10 points over MinimizedWidth }
Sub CreateXOB() 'create new instance of XamOutlookBar class Dim xamOutlook As New Infragistics.Windows.OutlookBar.XamOutlookBar() xamOutlook.SelectedAreaMinHeight = 79 xamOutlook.NavigationAreaMaxGroups = 0 xamOutlook.MinimizedWidth = 60 xamOutlook.Theme = "Office2k7Silver" xamOutlook.ToolTip = "XamOutlookBar tooltip" xamOutlook.AllowMinimized = True xamOutlook.ShowToolTips = True xamOutlook.ShowGroupHeaderAsToolTip = True xamOutlook.IsMinimized = True xamOutlook.MinimizedStateThreshold = 20 ' set minimized threshold to 10 points over MinimizedWidth End Sub