'宣言 Public Delegate Sub TabMovingEventHandler( _ ByVal sender As Object, _ ByVal e As TabMovingEventArgs _ )
public delegate void TabMovingEventHandler( object sender, TabMovingEventArgs e )
Imports Infragistics.Win Imports Infragistics.Win.UltraWinTabs Imports Infragistics.Win.UltraWinTabControl Private Sub ultraTabControl1_TabMoving(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTabControl.TabMovingEventArgs) Handles ultraTabControl1.TabMoving ' The following code prevents any tab from being moved ' before the first tab. If e.RelativeTab.VisibleIndex = 0 And e.RelativePosition = RelativePosition.Before Then e.Cancel = True Debug.WriteLine("Can't move tab '" + e.Tab.Text + "' before 1st tab.") End If End Sub
using System.Diagnostics; using Infragistics.Win; using Infragistics.Win.UltraWinTabs; using Infragistics.Win.UltraWinTabControl; private void ultraTabControl1_TabMoving(object sender, Infragistics.Win.UltraWinTabControl.TabMovingEventArgs e) { // The following code prevents any tab from being moved // before the first tab. if ( e.RelativeTab.VisibleIndex == 0 && e.RelativePosition == RelativePosition.Before ) { e.Cancel = true; Debug.WriteLine("Can't move tab '" + e.Tab.Text + "' before 1st tab."); } }