xtragrid set behavior
Imports DevExpress.Utils.Behaviors
Imports DevExpress.Utils.DragDrop
Dim behaviorManager1 As New BehaviorManager(Me.components)
'To assign the Behavior to a control in code, use the Attach method.
behaviorManager1.Attach(Of DragDropBehavior)(gridView1, Sub(behavior)
behavior.Properties.AllowDrop = True
behavior.Properties.InsertIndicatorVisible = True
behavior.Properties.PreviewVisible = True
AddHandler behavior.DragDrop, AddressOf Behavior_DragDropToGrid1
End Sub)
behaviorManager1.Attach(Of DragDropBehavior)(gridView2, Sub(behavior)
behavior.Properties.AllowDrop = False
behavior.Properties.InsertIndicatorVisible = False
behavior.Properties.PreviewVisible = False
AddHandler behavior.DragDrop, AddressOf Behavior_DragDropToGrid2
End Sub)
'To remove the Behavior, use the Detach method.
behaviorManager1.Detach(Of DragDropBehavior)(gridView1)
behaviorManager1.Detach(Of DragDropBehavior)(gridView2)