'宣言 Public Delegate Sub TreeScrollEventHandler( _ ByVal sender As Object, _ ByVal e As TreeScrollEventArgs _ )
public delegate void TreeScrollEventHandler( object sender, TreeScrollEventArgs e )
Imports Infragistics.Win.UltraWinTree Private Sub ultraTree1_Scroll(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTree.TreeScrollEventArgs) Handles ultraTree1.Scroll Dim sb As New System.Text.StringBuilder() sb.Append("The tree has scrolled. ScrollbarType :") sb.Append(e.ScrollBarType) sb.Append(" ScrollEventType: ") sb.Append(e.ScrollEventArgs.Type) sb.Append(" new value: ") sb.Append(e.ScrollEventArgs.NewValue) Debug.WriteLine(sb.ToString()) End Sub
using System.Diagnostics; using Infragistics.Win.UltraWinTree; private void ultraTree1_Scroll(object sender, Infragistics.Win.UltraWinTree.TreeScrollEventArgs e) { System.Text.StringBuilder sb = new System.Text.StringBuilder(); sb.Append("The tree has scrolled. ScrollbarType :"); sb.Append(e.ScrollBarType); sb.Append(" ScrollEventType: "); sb.Append(e.ScrollEventArgs.Type); sb.Append(" new value: "); sb.Append(e.ScrollEventArgs.NewValue); Debug.WriteLine( sb.ToString() ); }