From bb6492c6085f10570ae5087b667aaaa1e8fa3d01 Mon Sep 17 00:00:00 2001 From: Jamie Mansfield Date: Sat, 7 Mar 2015 19:10:16 +0000 Subject: 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 --- Backup/windows 95/Start Runner.vb | 54 --------------------------------------- 1 file changed, 54 deletions(-) delete mode 100755 Backup/windows 95/Start Runner.vb (limited to 'Backup/windows 95/Start Runner.vb') diff --git a/Backup/windows 95/Start Runner.vb b/Backup/windows 95/Start Runner.vb deleted file mode 100755 index 57c0bce..0000000 --- a/Backup/windows 95/Start Runner.vb +++ /dev/null @@ -1,54 +0,0 @@ -Public Class Start_Runner - Dim beginlocation As System.Drawing.Point - Dim randnumb As New Random - Dim taskbarlenght As Integer - Dim ylocation As Integer - Dim xlocation As Integer - Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click - Windows95.startbutton.Location = beginlocation - Me.Close() - End Sub - - 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 Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click - Windows95.startbutton.Location = beginlocation - Me.Close() - End Sub - - Private Sub Start_Runner_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load - beginlocation = Windows95.startbutton.Location - taskbarlenght = Windows95.taskbar.Size.Width - look.Start() - End Sub - - Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick - xlocation = randnumb.Next(1, taskbarlenght) - Windows95.startbutton.Location = New Point(xlocation, Windows95.startbutton.Location.Y) - End Sub - - Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click - Timer1.Start() - End Sub - - Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click - Timer1.Stop() - Windows95.startbutton.Location = beginlocation - 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 -- cgit v1.2.3