Draggable Desktop Icons added (Vista skipped until start menu is finished to prevent messing with Whistler's code.)

1 files changed, 18 insertions, 0 deletions

diff --git a/windows 95/Windows2000.vb b/windows 95/Windows2000.vb
index 2788cae..6929fa4 100755
--- a/windows 95/Windows2000.vb
+++ b/windows 95/Windows2000.vb
@@ -35,6 +35,8 @@
         Me.desktopicons.BackgroundImage = bmp

         commandpromptstartup.Start()

         comn = 100

+        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

@@ -400,4 +402,20 @@
         opentime.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