From 886804440ef3957c4fa882261d9325418d44bed6 Mon Sep 17 00:00:00 2001 From: TheUltimateHacker Date: Mon, 2 Mar 2015 10:56:05 -0500 Subject: Draggable Desktop Icons added (Vista skipped until start menu is finished to prevent messing with Whistler's code.) --- windows 95/Windowsxp2002damaged.vb | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'windows 95/Windowsxp2002damaged.vb') 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 -- cgit v1.2.3