'宣言 Public Delegate Sub GroupExpandingEventHandler( _ ByVal sender As Object, _ ByVal e As CancelableGroupEventArgs _ )
public delegate void GroupExpandingEventHandler( object sender, CancelableGroupEventArgs e )
Imports System.Diagnostics Imports Infragistics.Win Imports Infragistics.Win.UltraWinExplorerBar Private Sub ultraExplorerBar1_GroupExpanding(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinExplorerBar.CancelableGroupEventArgs) Handles ultraExplorerBar1.GroupExpanding ' Close any other open groups before expanding this one. Dim group As UltraExplorerBarGroup For Each group In Me.ultraExplorerBar1.Groups If ((Not group Is e.Group) AndAlso (group.Expanded = True)) Then group.Expanded = False End If Next End Sub
using System.Diagnostics; using Infragistics.Win; using Infragistics.Win.UltraWinExplorerBar; private void ultraExplorerBar1_GroupExpanding(object sender, Infragistics.Win.UltraWinExplorerBar.CancelableGroupEventArgs e) { // Close any other open groups before expanding this one. foreach(UltraExplorerBarGroup group in this.ultraExplorerBar1.Groups) { if (group != e.Group && group.Expanded == true) group.Expanded = false; } }