From 886804440ef3957c4fa882261d9325418d44bed6 Mon Sep 17 00:00:00 2001 From: TheUltimateHacker Date: Mon, 2 Mar 2015 10:56:05 -0500 Subject: [PATCH] Draggable Desktop Icons added (Vista skipped until start menu is finished to prevent messing with Whistler's code.) --- windows 95/Windows2000.vb | 18 ++++++++++++++++++ windows 95/Windows98.vb | 17 +++++++++++++++++ windows 95/Windowsxp2002damaged.vb | 17 +++++++++++++++++ windows 95/windows me.vb | 18 ++++++++++++++++++ 4 files changed, 70 insertions(+) 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