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

4 files changed, 70 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
diff --git a/windows 95/Windows98.vb b/windows 95/Windows98.vb
index 168533f..e86f07b 100755
--- a/windows 95/Windows98.vb
+++ b/windows 95/Windows98.vb
@@ -24,6 +24,8 @@
         Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None

         Me.WindowState = FormWindowState.Maximized

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

+        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,19 @@
         showmess.infomessage.Text = "Your save code is: sdu247w4"

         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

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
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