Merge pull request #3 from TheUltimateHacker/master

Draggable desktop icons

1 files changed, 18 insertions, 0 deletions

diff --git a/windows 95/windows me.vb b/windows 95/windows me.vb
index 73f3c7c..ceffb41 100755
--- a/windows 95/windows me.vb
+++ b/windows 95/windows me.vb
@@ -32,6 +32,8 @@
         End Using

         Me.BackgroundImage = bmp

         Me.desktopicons.BackgroundImage = bmp

+        desktopicons.AutoArrange = False

+        desktopicons.AllowDrop = True

     End Sub

 

     Private Sub NotePadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NotePadToolStripMenuItem.Click

@@ -261,4 +263,20 @@
         openinternet.Show()

         startmenu.Hide()

     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
\ No newline at end of file