<Canvas x:Name="LayoutRoot" AllowDrop="True"
             MouseLeftButtonUp="LayoutRoot_MouseLeftButtonUp"
             MouseMove= "LayoutRoot_MouseMove">
         <!--這個(gè)是左邊的ListBox，鼠標(biāo)將從此ListBox拖出圖標(biāo)-->
         <ListBox Name="listBox1" Background="AliceBlue" Width="100" 
                      HorizontalAlignment= "Left" VerticalAlignment="Top" 
                      Height= "550" >
             <ListBox.ItemTemplate>
                 <DataTemplate>
                     <StackPanel>
                         <Border BorderThickness="1">
                             <TextBlock  Text="{Binding IcoConcent}"
   Height= "15" Margin="0,5,6,0"
     Tag= "{Binding IcoName}"
    MouseLeftButtonDown= "Image_MouseLeftButtonDown"
   HorizontalAlignment= "Center"></TextBlock>
                         </Border>
                     </StackPanel>
                 </DataTemplate>
             </ListBox.ItemTemplate> 
         </ListBox>
         <!--這個(gè)在鼠標(biāo)拖動(dòng)過(guò)程中顯示的圖標(biāo)-->
         <TextBlock Name="tab" Opacity="0.5" Width="30" Height="30"
             Margin= "0,5,6,0" Visibility="Collapsed"  HorizontalAlignment="Center" />

         <sdk:TreeView Name="treDetail" Margin="200 0 0 0" 
Background="AliceBlue"  Height="550" Width="300" >
                 <toolkit:ContextMenuService.ContextMenu>
                     <toolkit:ContextMenu Name="ContextMenu1">
                         <toolkit:MenuItem Header="{StaticResource Delete}"  Name="treiDelete"  x:FieldModifier="public"/>
                     </toolkit:ContextMenu>
                 </toolkit:ContextMenuService.ContextMenu>
          </sdk:TreeView>

        ' 標(biāo)示是否按下鼠標(biāo)左鍵
         Private leftMouseflag As Boolean = False

         ' 右邊ListBox的結(jié)果集合
           Private Sub Image_MouseLeftButtonDown
(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
             '鼠標(biāo)在ListBox中按下準(zhǔn)備拖出圖片的時(shí)候，設(shè)置leftMouseflag為true，并且設(shè)置Image為可見
             leftMouseflag = True
             Dim _textbox As TextBlock = TryCast(sender, TextBlock)
             Dim _point As Point = e.GetPosition(_textbox)

             Me.tab.Text = _textbox.Text
             Me.tab.Tag = _textbox.Tag
             Me.tab.SetValue(Canvas.LeftProperty, _point.X)
             Me.tab.SetValue(Canvas.TopProperty, _point.Y - 5)
             Me.tab.Visibility = Visibility.Visible
         End Sub
         Private Sub LayoutRoot_MouseLeftButtonUp

(ByVal sender As Object, ByVal e As MouseButtonEventArgs)

             '如果得知鼠標(biāo)左鍵松動(dòng)的位置是右邊的ListBox上時(shí)則為右邊的ListBox添加一列
             Dim point As Point = e.GetPosition(LayoutRoot)

             If point.X  > 200 AndAlso point.X < 500 AndAlso point.Y
 < 650 AndAlso leftMouseflag = True Then
                     If listBox1.SelectedItem IsNot Nothing Then
                         Me.tab.Visibility = Visibility.Collapsed
                         Dim returnValue As IEnumerable(Of UIElement)
                         returnValue = VisualTreeHelper.FindElementsInHostCoordinates
(e.GetPosition(Nothing), treDetail)

                         For Each _r As Object In returnValue
                             If _r.ToString =  "System.Windows.Controls.TreeViewItem" Then
                                 p_ingteger = p_ingteger + 1
                                 Dim _tre As New TreeViewItem
                                 _tre.Header = Me.tab.Text
                                  _tre.IsExpanded = True
                                 _r.Items.Add(_tre)
                                 Exit For
                             End If
                         Next
                         listBox1.SelectedItem = Nothing
                         leftMouseflag = False
                 End If
             Else
                 Me.tab.Visibility = Visibility.Collapsed
                 leftMouseflag = False
             End If
         End Sub
  Private Sub LayoutRoot_MouseMove
(ByVal sender As Object, ByVal e As MouseEventArgs)
             '讓圖片跟隨鼠標(biāo)的移動(dòng)而移動(dòng)
             Dim _point As Point = e.GetPosition(sender)
             Me.tab.SetValue(Canvas.LeftProperty, _point.X)
             Me.tab.SetValue(Canvas.TopProperty, _point.Y - 5)
         End Sub