summaryrefslogtreecommitdiff
path: root/Backup/windows 95/windows explorer.vb
diff options
context:
space:
mode:
authorJamie Mansfield <[email protected]>2015-03-07 19:10:16 +0000
committerJamie Mansfield <[email protected]>2015-03-07 19:10:16 +0000
commitbb6492c6085f10570ae5087b667aaaa1e8fa3d01 (patch)
tree07f0d7011ec4e2755396a65fabe7440b2ddabca1 /Backup/windows 95/windows explorer.vb
parentf4e124e5da7d1959ede71a31bb96d519f913b623 (diff)
downloadhistacom-bb6492c6085f10570ae5087b667aaaa1e8fa3d01.tar.gz
histacom-bb6492c6085f10570ae5087b667aaaa1e8fa3d01.tar.bz2
histacom-bb6492c6085f10570ae5087b667aaaa1e8fa3d01.zip
Make .gitignore work. Fixes #15
Thanks to @kenzierocks and http://stackoverflow.com/questions/19663093/apply-gitignore-on-an-existing-repository-already-tracking-large-number-of-files
Diffstat (limited to 'Backup/windows 95/windows explorer.vb')
-rwxr-xr-xBackup/windows 95/windows explorer.vb45
1 files changed, 0 insertions, 45 deletions
diff --git a/Backup/windows 95/windows explorer.vb b/Backup/windows 95/windows explorer.vb
deleted file mode 100755
index 08cde17..0000000
--- a/Backup/windows 95/windows explorer.vb
+++ /dev/null
@@ -1,45 +0,0 @@
-Public Class windows_explorer
-
-
-
- Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
- If e.Button = MouseButtons.Left Then
- programtopbar.Capture = False
- Const WM_NCLBUTTONDOWN As Integer = &HA1S
- Const HTCAPTION As Integer = 2
- Dim msg As Message = _
- Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
- New IntPtr(HTCAPTION), IntPtr.Zero)
- Me.DefWndProc(msg)
- End If
- End Sub
-
- Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click
- Me.Close()
- End Sub
-
- Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
- ListView1.Items.Clear()
- Dim childamount As TreeNodeCollection
- childamount = TreeView1.SelectedNode.Nodes
- lblamountofobjects.Text = (childamount.Count & " objects(s)")
- For Each TreeNode In TreeView1.SelectedNode.Nodes
- If TreeNode.tag = "file" Then
- TreeNode.forecolor = TreeView1.BackColor
- End If
- ListView1.Items.Add(TreeNode.text)
- Next
-
- End Sub
-
- Private Sub windows_explorer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- lblamountofobjects.Text = "0 objects"
- look.Start()
- End Sub
-
- Private Sub look_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles look.Tick
- Me.programtopbar.BackColor = Windows95.exampleprogramtopbar.BackColor
- Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage
- Me.programname.BackColor = Windows95.exampleprogramtext.BackColor
- End Sub
-End Class \ No newline at end of file