shiftos-archive/ShiftOS
1
0
Fork 0
mirror of https://github.com/TheUltimateHacker/ShiftOS.git synced 2025-01-22 16:12:14 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Draggable Icons added.

Browse source 
I got them working again, so yeah! Don't touch the last 3 subs at the
direct bottom of ShiftOSDesktop.
This commit is contained in:
TheUltimateHacker 2015-03-09 20:55:16 -04:00
parent 996b7ea76e
commit 583b06b4be
1 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
ShiftOS/ShiftOSDesktop.vb
View file

@ -4743,4 +4743,20 @@
File_Opener.lbtitletext.Text = "Create Shortcut"
File_Opener.Show()
End Sub
Private Sub desktopicons_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles desktopicons.ItemDrag
Dim lvi As ListViewItem = CType(e.Item, ListViewItem)
desktopicons.DoDragDrop(New DataObject("System.Windows.Forms.ListViewItem", lvi), DragDropEffects.Move)
End Sub
Private Sub desktopicons_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles desktopicons.DragEnter
If e.Data.GetDataPresent("System.Windows.Forms.ListViewItem") Then
e.Effect = DragDropEffects.Move
End If
End Sub
Private Sub desktopicons_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles desktopicons.DragOver
Dim lvi As ListViewItem = CType(e.Data.GetData("System.Windows.Forms.ListViewItem"), ListViewItem)
Dim Offset As Size = Size.Subtract(Cursor.Size, New Size(Cursor.HotSpot.X, Cursor.HotSpot.Y))
lvi.Position = Point.Subtract(desktopicons.PointToClient(New Point(e.X, e.Y)), Offset)
e.Effect = DragDropEffects.Move
End Sub
End Class