在TreeView中,開放DragDrop功能
在使用TreeViewDragDropTarget後,還是無法位置交換
將 a2 拖到 a3 (兩個位置交換)


找了一天相關網站及資料,始終無法完成,網路上的資料都是以ListBox為主
沒有提供TreeView之範例
請各位前輩指教一下
謝謝


XML檔
<?xml version="1.0" encoding="utf-8" ?> <root> <node name="a1" Text="a1"> <node name="a2" Text="a2" /> <node name="a3" Text="a3" /> <node name="a4" Text="a4" /> </node> </root>

XAML
<UserControl xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" xmlns:controls="clr-namespace:System.Windows.Controls;assembly=System.Windows.Controls" xmlns:common="clr-namespace:System.Windows;assembly=System.Windows.Controls" xmlns:d="http://schemas.microsoft.com/expression/blend/2008" xmlns:toolkit="clr-namespace:System.Windows.Controls;assembly=System.Windows.Controls.Toolkit" xmlns:mswindows="clr-namespace:Microsoft.Windows;assembly=System.Windows.Controls.Toolkit" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" x:Class="HR_Organize_Constitute.MainPage" Width="900" Height="500" mc:Ignorable="d"> <Grid x:Name="LayoutRoot" Background="White"> <toolkit:TreeViewDragDropTarget x:Name="TreeViewDragDrop" mswindows:DragDrop.AllowDrop="True"> <controls:TreeView x:Name="TreeView1" Margin="0,0,11,0" Width="822" Height="427"> <controls:TreeView.ItemTemplate> <common:HierarchicalDataTemplate ItemsSource="{Binding Children}"> <StackPanel> <TextBlock Text="{Binding Text}" /> </StackPanel> </common:HierarchicalDataTemplate> </controls:TreeView.ItemTemplate> </controls:TreeView> </toolkit:TreeViewDragDropTarget> </Grid> </UserControl>


vb
Partial Public Class MainPage Inherits UserControl Public Sub New() InitializeComponent() End Sub Private Sub MainPage_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded Dim XmlRoot As System.Xml.Linq.XElement = System.Xml.Linq.XElement.Load("XML/Test1.xml") Dim result = GetLoadData(XmlRoot) TreeView1.ItemsSource = result End Sub Public Function GetLoadData(ByVal root As System.Xml.Linq.XElement) As List(Of clsTreeViewModel) If root Is Nothing Then Return Nothing Dim result = From n In root.Elements("node") _ Select New clsTreeViewModel With {.Name = n.Attribute("name").Value, _ .Text = n.Attribute("Text").Value, _ .Children = getLoadData(n)} Return result.ToList End Function Public Class clsTreeViewModel Private _Name As String Private _Text As String Private _Children As List(Of clsTreeViewModel) Public Property Name() As String Get Return Me._Name End Get Set(ByVal value As String) Me._Name = value End Set End Property Public Property Text() As String Get Return Me._Text End Get Set(ByVal value As String) Me._Text = value End Set End Property Public Property Children() As List(Of clsTreeViewModel) Get Return Me._Children End Get Set(ByVal value As List(Of clsTreeViewModel)) Me._Children = value End Set End Property End Class End Class

---