TileGroup detection

[Jeroen]

Is there a way to detect to which TileGroup the Tile has moved to?

[Jeroen]

In the mean time I have found an option that does the trick: Tile1.Group.ToString
However this doesn't work 100%. For example:

Private Sub Tile1_Drop(sender As Object, e As DragEventArgs) Handles Tile1.Drop
Debug.Print(Tile1.Group.ToString)
End Sub

does not consistently give me the TileGroup name it belongs to when dragging and dropping it into a different TileGroup, it does simply not give me anything or it gives me the name of the TileGroup.

I have tried other options but not consistently getting the TileGroup name is pretty consistent.

[Dilyan Traykov]

Hello Jeroen,

I'm posting the answer from the support ticket you opened here as well so that it's beneficial to the community.

You can achieve the desired behavior using Telerik's DragDropManager and handling the DragInitialize and DragDropCompleted events.

Public Sub New()
    InitializeComponent()
    Me.RadTileList.ItemsSource = EmployeeService.GetEmployees()
    DragDropManager.AddDragInitializeHandler(Me.RadTileList, New DragInitializeEventHandler(AddressOf OnDragInitialized))
    DragDropManager.AddDragDropCompletedHandler(Me.RadTileList, New Telerik.Windows.DragDrop.DragDropCompletedEventHandler(AddressOf OnDropCompleted))
End Sub

Private Sub OnDropCompleted(ByVal sender As Object, ByVal e As DragDropCompletedEventArgs)
    Dim tile = TryCast(e.OriginalSource, Tile)
    Debug.WriteLine("Dragged to: " + tile.Group.Header.ToString())
End Sub

Private Sub OnDragInitialized(ByVal sender As Object, ByVal e As DragInitializeEventArgs)
    Dim tile = TryCast(e.OriginalSource, Tile)
    Debug.WriteLine("Dragged from: " + tile.Group.Header.ToString())
End Sub

I've also attached a small sample project as a demonstration.

I hope this is helpful.

Regards,
Dilyan Traykov
Progress Telerik