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/Windows98.vb | 198 ----------------------------------------- 1 file changed, 198 deletions(-) delete mode 100755 Backup/windows 95/Windows98.vb (limited to 'Backup/windows 95/Windows98.vb') diff --git a/Backup/windows 95/Windows98.vb b/Backup/windows 95/Windows98.vb deleted file mode 100755 index 65cb311..0000000 --- a/Backup/windows 95/Windows98.vb +++ /dev/null @@ -1,198 +0,0 @@ -Public Class Windows98 - Dim count As Integer - Dim txtcount As Integer - Dim usersave As String - - Private Sub startbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) - startmenu.Show() - End Sub - - Private Sub windows98_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click - startmenu.Hide() - End Sub - - Private Sub windows98Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load - If My.Resources.windows98bootsound.CanRead Then - Dim bStr(My.Resources.windows98bootsound.Length) As Byte - My.Resources.windows98bootsound.Read(bStr, 0, My.Resources.windows98bootsound.Length) - My.Computer.Audio.Play(bStr, AudioPlayMode.Background) - End If - startmenu.Hide() - program.Hide() - Timer1.Start() - exampleprogramtopbar.Show() - Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None - Me.WindowState = FormWindowState.Maximized - - End Sub - - Private Sub NotePadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NotePadToolStripMenuItem.Click - Dim opennotepad As New formnotepad - opennotepad.Show() - startmenu.Hide() - End Sub - - Private Sub Closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) - program.Hide() - exampleprogramtext.Text = "" - program.Size = New Size(367, 253) - End Sub - - Private Sub fullscreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) - program.Dock = DockStyle.Fill - End Sub - - Private Sub minimize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) - - program.Dock = DockStyle.None - End Sub - - - Private Sub HelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripMenuItem.Click - Dim windowshelpopen As New formwindowshelp - windowshelpopen.Show() - startmenu.Hide() - End Sub - - Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) - program.Hide() - End Sub - - Private Sub CalculatorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculatorToolStripMenuItem.Click - Dim opencalc As New formcalculator - opencalc.Show() - startmenu.Hide() - End Sub - - Private Sub Desktop_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) - If e.Button = Windows.Forms.MouseButtons.Right Then - rightclickbackproperties.Show() - rightclickbackproperties.BringToFront() - rightclickbackproperties.Location = MousePosition - End If - If e.Button = Windows.Forms.MouseButtons.Left Then - End If - If e.Button = Windows.Forms.MouseButtons.Middle Then - End If - - End Sub - - Private Sub minimizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) - program.Dock = DockStyle.None - End Sub - - Private Sub maximizebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) - program.Dock = DockStyle.Fill - End Sub - - Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles startbutton.Click - startmenu.Show() - End Sub - - Private Sub PropertiesToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PropertiesToolStripMenuItem1.Click - Dim oform As New formDisplayproperties - oform.Show() - startmenu.Hide() - End Sub - - Private Sub ShutdownToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShutdownToolStripMenuItem1.Click - Me.Close() - End Sub - - Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick - desktopicons.BackColor = Me.BackColor - taskbartime.Text = TimeOfDay - End Sub - - Private Sub PhoneDialerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) - Dim openphonedialer As New phone_dialer - openphonedialer.Show() - startmenu.Hide() - End Sub - - Private Sub AddressBookToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddressBookToolStripMenuItem.Click - Dim openaddressbook As New Address_Book - openaddressbook.Show() - startmenu.Hide() - End Sub - - Private Sub VolumeControlToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VolumeControlToolStripMenuItem.Click - Dim openvolumecontrol As New volume_control - openvolumecontrol.Show() - startmenu.Hide() - End Sub - - Private Sub RunToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RunToolStripMenuItem.Click - Dim openrun As New run - openrun.Show() - startmenu.Hide() - End Sub - - Private Sub PaintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PaintToolStripMenuItem.Click - Dim openpaint As New paint - openpaint.Show() - startmenu.Hide() - End Sub - - Private Sub WindowsExplorerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsExplorerToolStripMenuItem.Click - Dim openinternetexplorer As New internet_explorer_5 - openinternetexplorer.Show() - startmenu.Hide() - End Sub - - Private Sub FolderToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FolderToolStripMenuItem.Click - desktopicons.Items.Add("New Folder") - End Sub - - Private Sub desktopicons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles desktopicons.MouseDown - startmenu.Hide() - - End Sub - - Private Sub WindowsExplorerToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsExplorerToolStripMenuItem1.Click - Dim openexplorer As New windows_explorer - openexplorer.Show() - startmenu.Hide() - End Sub - - Private Sub GuessTheNumberToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuessTheNumberToolStripMenuItem.Click - Dim openguessnumber As New Guess_The_Number_app() - openguessnumber.Show() - startmenu.Hide() - End Sub - - Private Sub StartRunnerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartRunnerToolStripMenuItem.Click - Dim openstartrunner As New Start_Runner - openstartrunner.Show() - startmenu.Hide() - End Sub - - Private Sub ErrorBlasterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ErrorBlasterToolStripMenuItem.Click - Dim openerror As New errorblaster - openerror.Show() - startmenu.Hide() - End Sub - - Private Sub desktopicons_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) - - End Sub - - Private Sub SkindowsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SkindowsToolStripMenuItem.Click - Dim openskin As New Skindows_95 - openskin.Show() - startmenu.Hide() - End Sub - - Private Sub WebChatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WebChatToolStripMenuItem.Click - Dim openchat As New Webchat - openchat.Show() - startmenu.Hide() - End Sub - - Private Sub TimeDistorterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimeDistorterToolStripMenuItem.Click - Dim opentimedistorter As New time_distorter - opentimedistorter.Show() - startmenu.Hide() - End Sub - -End Class -- cgit v1.2.3