I am creating a form with a listview and a treeview.
I am progging the function to drag and drop the listview items on the treeview.
I have the following code :
Private Sub lvwLinks_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
Set mltmCurrent = lvwLinks.HitTest(x, y)
lvwLinks.DragIcon = mltmCurrent.CreateDragImage
lvwLinks.Drag vbBeginDrag
End If
End Sub
But it doesn 't seem to work.
If i use the breakpoints, it doesn 't seem to get into the if statement, no matter what I trie to do.
Can anyone help me with this?
thanx.
I am progging the function to drag and drop the listview items on the treeview.
I have the following code :
Private Sub lvwLinks_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
Set mltmCurrent = lvwLinks.HitTest(x, y)
lvwLinks.DragIcon = mltmCurrent.CreateDragImage
lvwLinks.Drag vbBeginDrag
End If
End Sub
But it doesn 't seem to work.
If i use the breakpoints, it doesn 't seem to get into the if statement, no matter what I trie to do.
Can anyone help me with this?
thanx.