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

1 files changed, 17 insertions, 0 deletions

diff --git a/windows 95/Windowsxp2002damaged.vb b/windows 95/Windowsxp2002damaged.vb
index 3a60a42..86a93df 100755
--- a/windows 95/Windowsxp2002damaged.vb
+++ b/windows 95/Windowsxp2002damaged.vb
@@ -36,6 +36,8 @@
         commandpromptstartup.Start()

         System.Windows.Forms.Application.VisualStyleState = VisualStyles.VisualStyleState.ClientAndNonClientAreasEnabled

         System.Windows.Forms.Application.EnableVisualStyles()

+        desktopicons.AutoArrange = False

+        desktopicons.AllowDrop = True

     End Sub

 

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

@@ -424,4 +426,19 @@
         showmess.errormessage.Text = "your save code is: bsdn98e5"

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