Office中国论坛/Access中国论坛

标题: 有关于TreeView拖拽的逻辑有点混乱，需要高人指点。 [打印本页]

作者: doney88 时间: 2015-1-28 22:10
标题: 有关于TreeView拖拽的逻辑有点混乱，需要高人指点。
有关于TreeView拖拽移动节点的代码中：

'    开始拖动时，设定选择为空，已备选择数据

  Private Sub objTreeview_OLEStartDrag(Data As Object, AllowEffects As Long)
      Me!objTreeview.Object.SelectedItem = Nothing 这里设置了选中为空
   End Sub

-------------------------------------------------------------------------------------------

'    拖动鼠标事件，选择拖放节点，并高亮度显示放开Mouse时接受数据的节点，本程序设置已选节点为已拖动过，这样，程序将不再重置它，后半部分程序高亮显示结果
   Private Sub objTreeView_OLEDragOver (Data As Object,Effect As Long, Button As Integer, Shift As Integer,  x As Single, y As Single, State As Integer)
   Dim oTree As TreeView
   set oTree = Me!objTreeView.Object
   '如无节点被选中，则选择你曾经拖过的第一个
   If oTree SelectedItem Is Nothing Then
      Set oTree SelectedItem = oTree.HitTest(X,Y)
   End If
   ' 高亮显示
   Set oTree.DropHighlight = oTree.HitTest(x, y)

----------------------------------------------------------------------------------------------
'移动节点在TreeView空间中的位置，并更改数据表记录。程序先检查是否存在一个已选节点，并继续检查是否高亮显示放下对象，如果未高亮显示，表示用户将其放入了空白区域，则将其赋值为根节点
   Private Sub objTreeView_OLEDragDrop( Data as object,Effect As Long, Button As Integer,Shift As Integer, x as single, y as single)
   on error goto Err_ObjTreeView_OLEDragdrop
   Dim oTree as TreeView, strKey As String, StrText As String
   Dim nodNow As Node, nodDragged As Node
   Dim db as Database, rs as Recordset

   set db = CurrentDb
   '打开表进行编辑
   Set rs = db.OpenRecordset("tblBOM",adOpenDynaset)
   Set oTree = Me!objTreeView.Object
   '如误解点被选中，则下课休息
   If oTree SelectedItem is Nothing Then
   Else     '相反
      Set nodDragged = oTree.SelectedItem          但是这里又有SelectedItem了。之前不是已经设置为空了吗?为什么还能有?
      '如果节点被拖放到空白区，则修改数据表并将其设为根节点
      If oTree.DropHighLight Is Nothing Then
             '保存Text值及显示文本以备重新装入时使用
            strKey = nodDragged.Key
            strText = nodDragged.Text
            ' 删除当前对象的节点
            oTree.Nodes.Remove NodDragged.Index
            '在数据表中查找记录并修改之
            rs.FindFirst "FBOMID=" & Mid(strKey,2)
            rs.Edit
                  rs!FMainID = Me.FMaterial
            rs.Update
            '将其装入为根节点
            Set nodNew = oTree.Nodes.Add( , , strKey,StrText,1,2)
             '装入其所有子节点
            AddChild nodNew,rs
      ElseIf nodDragged.Index<> oTree.DropHighLight.Index Then
            Set nodeDragged.Parent = oTree.DropHighLight
            rs.findFirst "[ID]=" & mid(nodDragged.Key,2)
            rs.Edit
                  rs!MainID = Mid(oTree.DropHighlight.Key, 2)
            rs.Update
      End If
   End IF
   '取消选择
   Set NodDragged = Nothing
   '取消高亮
   Set oTree.DropHIghLight = Nothing
Exit_objTreeVeiw_OLEDrapDrop:
   Exit Sub
Err_objTreeView_OLEDrapDrop:

   If Err.Number = 35614 Then
      MsgBox "母件不得直接成为子件的子件!“

   Else
      MsgBox "节点移动错误！"
   End If
   Resume Exit_objTreeVeiw_OLEDrapDrop

=======================================================

在OLEStartDrag事件中明明已经设置SeletedItem为Nothing了，为什么OLEDragDrop 事件中还能取得SelecteItem的变量?

我看着的一脸茫然。请大神帮个忙指点下迷津。

在此先谢过了。

作者: 盗梦 时间: 2015-1-29 10:40
无表无图无文件，很难看下去

作者: t小宝 时间: 2015-2-4 23:14
在 objTreeview_OLEStartDrag 事件中是设置为空了，但在objTreeView_OLEDragOver事件中又设置为 oTree.HitTest(X,Y) 了
注意事件的顺序：objTreeview_OLEStartDrag->objTreeView_OLEDragOver->objTreeView_OLEDragDrop

作者: doney88 时间: 2015-2-7 08:23

t小宝发表于 2015-2-4 23:14
在 objTreeview_OLEStartDrag 事件中是设置为空了，但在objTreeView_OLEDragOver事件中又设置为 oTree.HitT ...

这个顺序我理解，我现在搞不清楚的是。

在拖拽中原理应该是将原来选中的SelectedItem 拖拽至DropHighLight的根目录下。

但是拖拽的功能实现必须现在StratDrag事件中将selectedItem设置为Nothing。但拖拽功能是必须需要这样原来选中节点变量对象。

设置为nothing以后为什么在DragDrop事件中取到SelectedItem对象？

作者: t小宝 时间: 2015-2-7 09:58
那些代码处理是要确保拖动的节点是鼠标按下的节点！
在鼠标按下并开始移动时，发生objTreeview_OLEStartDrag事件，但这时不会改变选择的节点（鼠标释放后才改变），也就是说这个时候SelectedItem可能不是鼠标按下的（我们想要拖动的）节点。要想办法把SelectedItem改为鼠标按下的节点，但在objTreeview_OLEStartDrag事件无法判断按下哪个节点，所以先在这个事件中把SelectedItem设为nothing，紧接着会发生objTreeView_OLEDragOver事件，这个事件有x,y参数，这样就可在objTreeView_OLEDragOver事件获得鼠标按下的节点了：Set oTree.SelectedItem = oTree.HitTest(X,Y)
其他的就不用解释了吧

作者: doney88 时间: 2015-2-7 11:47

t小宝发表于 2015-2-7 09:58
那些代码处理是要确保拖动的节点是鼠标按下的节点！
在鼠标按下并开始移动时，发生objTreeview_OLEStartDr ...

了解了。多谢了

作者: WFH6898 时间: 2015-12-11 11:55
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)