Norbert
You can use the tree view control to achieve seamless drag drop capability to MS Access form.
1 - Add the treeview activex control to the form. Name it "treeDD"
2 - The form OnLoad event add the code "Me.treeDD.OLEDropMode = ccOLEDropManual"
3 - Add this code to treeview Control
-------------------------------------------------------------------------------
Private Sub treeDD_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Fcount
Fcount = 1
Do While Fcount <= Data.Files.Count
Debug.Print Data.Files(Fcount)
Fcount = Fcount + 1
Loop
End Sub
---------------------------------------------------------------------------------------------
Rajiv
__._,_.___
Posted by: Rajiv <torajiv@gmail.com>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (4) |
.
__,_._,___
Tidak ada komentar:
Posting Komentar