'宣言 Public Delegate Sub GroupDragOverEventHandler( _ ByVal sender As Object, _ ByVal e As GroupDragOverEventArgs _ )
public delegate void GroupDragOverEventHandler( object sender, GroupDragOverEventArgs e )
Imports System.Diagnostics Imports Infragistics.Win Imports Infragistics.Win.UltraWinExplorerBar Private Sub ultraExplorerBar1_GroupDragOver(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinExplorerBar.GroupDragOverEventArgs) Handles ultraExplorerBar1.GroupDragOver Dim beforeAfter As String If (e.TargetGroupRelativePosition = GroupDropPosition.After) Then beforeAfter = "after" Else beforeAfter = "before" End If Debug.WriteLine(String.Format("The group '{0}' is being dragged " + beforeAfter + " group '{1}'", e.Group.Text, e.TargetGroup)) Debug.WriteLine(String.Format("The group is currently over point: ", New Point(e.X, e.Y).ToString())) ' Don't allow the Group to be dropped if the target group has a key of "System" If e.TargetGroup.Key = "System" Then e.AllowDrop = False e.DragCursor = Cursors.No End If End Sub
using System.Diagnostics; using Infragistics.Win; using Infragistics.Win.UltraWinExplorerBar; private void ultraExplorerBar1_GroupDragOver(object sender, Infragistics.Win.UltraWinExplorerBar.GroupDragOverEventArgs e) { string beforeAfter = (e.TargetGroupRelativePosition == GroupDropPosition.After) ? "after" : "before"; Debug.WriteLine(string.Format("The group '{0}' is being dragged " + beforeAfter + " group '{1}'", e.Group.Text, e.TargetGroup)); Debug.WriteLine(string.Format("The group is currently over point: ", new Point(e.X, e.Y).ToString())); // Don't allow the Group to be dropped if the target group has a key of "System" if (e.TargetGroup.Key == "System") { e.AllowDrop = false; e.DragCursor = Cursors.No; } }