VBA drag/drop

'************************* DRAG DROP ***********************

Private Sub ctlTree_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim strkey As String, strText As String
    Dim nodnew As Node, nodDragged As Node

    If objTree.SelectedItem Is Nothing Then
    Else
        Set nodDragged = objTree.SelectedItem
        If objTree.DropHighlight Is Nothing Then
            strkey = nodDragged.Key
            strText = nodDragged.Text
            objTree.Nodes.Remove nodDragged.Index
            objTree.Nodes.Add , , strkey, strText
            Call loadTree(Mid(strkey, 3), 1)
            DoCmd.RunSQL "update tblNode set parrentid = 0 WHERE " & _
                "nodeid = " & Mid(strkey, 3)
        ElseIf nodDragged.Index <> objTree.DropHighlight.Index Then
            Set nodDragged.Parent = objTree.DropHighlight
            DoCmd.RunSQL "update tblNode set parrentid = " & _
                Mid(objTree.DropHighlight.Key, 3) & " WHERE " & _
                "nodeid = " & Mid(nodDragged.Key, 3)
        End If
    End If
    Set nodDragged = Nothing
  Set objTree.DropHighlight = Nothing
 
 
End Sub

Private Sub ctlTree_OLEDragOver(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
    If objTree.SelectedItem Is Nothing Then
        objTree.SelectedItem = ctlTree.HitTest(x, y)
    End If
    objTree.DropHighlight = ctlTree.HitTest(x, y)
End Sub

Private Sub ctlTree_OLEStartDrag(Data As Object, AllowedEffects As Long)
    ctlTree.SelectedItem = Nothing
End Sub

'*************************** DRAG DROP SLUT **********

Hvis nogen ved hvorledes man bruger parametrene:
        Data As Object, Effect As Long

eller har links til gode eksempler, er de også MEGET velkomne  :o)

Niels

Jeg kunne egentlig godt tænke mig at se det. Er det i en Access 97 database?

2000 - men har du ikke noget om drag/drop i vb
læg din e-mail

lukker !!!

3xa -> hvis du vil se det, er du nødt til at lægge din mail.