shiftos-archive/Histacom
1
0
Fork 0
mirror of https://github.com/Histacom/Histacom.git synced 2025-01-22 09:02:00 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #4 from TheUltimateHacker/master

Browse source 
Fix the Windows ME desktop
This commit is contained in:
Jamie Mansfield 2015-03-02 22:10:36 +00:00
commit 3ad025e3d2
3 changed files with 24 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
windows 95/Resources/Windows ME Shutdown.wav Normal file
View file

Binary file not shown.

10
windows 95/Windows2000.vb
View file

@ -258,7 +258,15 @@
End Sub End Sub
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
Title_Screen.Close() startmenu.Hide()
desktopicons.Hide()
taskbar.Hide()
startbutton.Hide()
Dim bStr(My.Resources.Windows_ME_Shutdown.Length) As Byte
My.Resources.Windows_ME_Shutdown.Read(bStr, 0, My.Resources.Windows_ME_Shutdown.Length)
My.Computer.Audio.Play(bStr, AudioPlayMode.WaitToComplete)
Me.Close()
End Sub End Sub

18
windows 95/windows me.vb
View file

@ -72,8 +72,8 @@
If Not IsNothing(objListViewItem) Then If Not IsNothing(objListViewItem) Then
If objListViewItem.Text = "Internet Explorer" Then If objListViewItem.Text = "Internet Explorer" Then
Dim openerror As New windows2000messagebox Dim IE As New Internet_Explorer_52001
openerror.infomessage.Text = "You have reached the End of Histcom 1.9, Please save your game now by clicking on the time in the start menu so that you can continue your game from here when the next version of histacom comes out." IE.Show()
End If End If
If objListViewItem.Text = "Guess The Number 2 Setup" Then If objListViewItem.Text = "Guess The Number 2 Setup" Then
@ -255,7 +255,19 @@
End Sub End Sub
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
Title_Screen.Close() startmenu.Hide()
desktopicons.Hide()
taskbar.Hide()
startbutton.Hide()
Dim bStr(My.Resources.Windows_ME_Shutdown.Length) As Byte
My.Resources.Windows_ME_Shutdown.Read(bStr, 0, My.Resources.Windows_ME_Shutdown.Length)
My.Computer.Audio.Play(bStr, AudioPlayMode.WaitToComplete)
Me.Close()
End Sub
Private Sub Form_IsClosing(sender As Object, e As EventArgs) Handles MyBase.FormClosing
End Sub End Sub
Private Sub WindowsExplorerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsExplorerToolStripMenuItem.Click Private Sub WindowsExplorerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsExplorerToolStripMenuItem.Click