Imports System.Diagnostics Imports Infragistics.Win Imports Infragistics.Win.UltraWinExplorerBar Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button25.Click ' Set the font to bold for each group that is Selected, Active or Expanded. ' For each Group that contains a Checked Item, set the font to Italic. Dim group As UltraExplorerBarGroup For Each group In Me.ultraExplorerBar1.Groups If (group.Selected = True Or group.Active = True Or group.Expanded = True) Then group.Settings.AppearancesSmall.Appearance.FontData.Bold = DefaultableBoolean.True End If If (Not group.CheckedItem Is Nothing) Then group.Settings.AppearancesSmall.Appearance.FontData.Italic = DefaultableBoolean.True End If Next End Sub
using System.Diagnostics; using Infragistics.Win; using Infragistics.Win.UltraWinExplorerBar; private void button25_Click(object sender, System.EventArgs e) { // Set the font to bold for each group that is Selected, Active or Expanded. // For each Group that contains a Checked Item, set the font to Italic. foreach(UltraExplorerBarGroup group in this.ultraExplorerBar1.Groups) { if (group.Selected == true || group.Active == true || group.Expanded == true) group.Settings.AppearancesSmall.Appearance.FontData.Bold = DefaultableBoolean.True; if (group.CheckedItem != null) group.Settings.AppearancesSmall.Appearance.FontData.Italic = DefaultableBoolean.True; } }